2024-05-31 09:39:25 +00:00
|
|
|
(defpackage #:hsx-test/escaper
|
|
|
|
|
(:use #:cl
|
2024-09-28 17:10:25 +00:00
|
|
|
#:rove
|
2024-05-31 09:39:25 +00:00
|
|
|
#:hsx/escaper))
|
|
|
|
|
(in-package #:hsx-test/escaper)
|
|
|
|
|
|
2024-09-28 17:10:25 +00:00
|
|
|
(deftest escaper-test
|
|
|
|
|
(testing "escape-html-attribute"
|
|
|
|
|
(ok (string= ""foo""
|
|
|
|
|
(escape-html-attribute "\"foo\""))))
|
|
|
|
|
|
|
|
|
|
(testing "escape-html-text-content"
|
|
|
|
|
(ok (string= "&<>"'/`="
|
|
|
|
|
(escape-html-text-content "&<>\"'/`=")))))
|
