14 lines
515 B
EmacsLisp
14 lines
515 B
EmacsLisp
|
;;; lang/web/test/autoload-html.el -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
(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")))
|