(defpackage #:hsx-test/escaper
  (:use #:cl
        #:rove
        #:hsx/escaper))
(in-package #:hsx-test/escaper)

(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 "&<>\"'/`=")))))