Merge hsx/group into hsx/utils

tests/group.lisp

@@ -1,14 +0,0 @@
-(defpackage #:hsx-test/group
-  (:use #:cl
-        #:rove
-        #:hsx/group))
-(in-package #:hsx-test/group)
-
-(defgroup fruit
-  apple banana orange)
-
-(deftest group-test
-  (testing "defgroup"
-    (ok (hash-table-p *fruit*))
-    (ok (fruit-p :apple))
-    (ng (fruit-p :tomato))))

tests/utils.lisp

@@ -21,3 +21,19 @@
                      toggle() { this.open = ! this.open },
                  }")
                  "{ open: false, get isOpen() { return this.open }, toggle() { this.open = ! this.open }, }"))))
+
+(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))))