Add raw-fragment

2025-03-28 12:47:37 +09:00 · 2025-03-28 12:47:37 +09:00 · aa1efe72cd
commit aa1efe72cd
parent 19baec2ee0
5 changed files with 31 additions and 66 deletions
--- a/tests/utils.lisp
+++ b/tests/utils.lisp
@ -12,19 +12,3 @@
  (testing "escape-html-text-content"
    (ok (string= "&amp;&lt;&gt;&quot;&#x27;&#x2F;&grave;&#x3D;"
                 (escape-html-text-content "&<>\"'/`=")))))
-
-(defgroup fruit
-  apple banana)
-
-(deftest group-util-test
-  (testing "defgroup"
-    (ok (expands '(defgroup fruit apple banana)
-                 '(progn
-                   (defparameter *fruit*
-                     (hsx/utils::make-keyword-hash-table '(apple banana)))
-                   (defun fruit-p (keyword)
-                     (gethash keyword *fruit*)))))
-    (ok (hash-table-p *fruit*))
-    (ok (fboundp 'fruit-p))
-    (ok (fruit-p :apple))
-    (ng (fruit-p :tomato))))