Minify props string

2024-10-03 09:54:43 +09:00 · 2024-10-03 09:54:43 +09:00 · b430b42699
commit b430b42699
parent 6f8df3e00d
5 changed files with 61 additions and 33 deletions
--- a/tests/utils.lisp
+++ b/tests/utils.lisp
@ -0,0 +1,23 @@
+(defpackage #:hsx-test/utils
+  (:use #:cl
+        #:rove
+        #:hsx/utils))
+(in-package #:hsx-test/utils)
+
+(deftest text-util-test
+  (testing "escape-html-attribute"
+    (ok (string= "&quot;foo&quot;"
+                 (escape-html-attribute "\"foo\""))))
+  
+  (testing "escape-html-text-content"
+    (ok (string= "&amp;&lt;&gt;&quot;&#x27;&#x2F;&grave;&#x3D;"
+                 (escape-html-text-content "&<>\"'/`="))))
+  
+  (testing "minify"
+    ;; Test with Alpine.js
+    (ok (string= (minify "{
+                     open: false,
+                     get isOpen() { return this.open },
+                     toggle() { this.open = ! this.open },
+                 }")
+                 "{ open: false, get isOpen() { return this.open }, toggle() { this.open = ! this.open }, }"))))