14 lines
518 B
EmacsLisp
14 lines
518 B
EmacsLisp
;; -*- no-byte-compile: t; -*-
|
|
;;; lang/web/test/autoload-html.el
|
|
|
|
(def-test! encode-entities
|
|
(should (equal (+web-encode-entities "Hello world")
|
|
"Hello world"))
|
|
(should (equal (+web-encode-entities "H€llø wørld")
|
|
"H€llø wørld")))
|
|
|
|
(def-test! decode-entities
|
|
(should (equal (+web-decode-entities "Hello world")
|
|
"Hello world"))
|
|
(should (equal (+web-decode-entities "H€llø wørld")
|
|
"H€llø wørld")))
|