Add group package

tests/group.lisp

@@ -0,0 +1,16 @@
+(defpackage #:hsx-test/group
+  (:use #:cl
+        #:fiveam
+        #:hsx/group))
+(in-package #:hsx-test/group)
+
+(def-suite group-test)
+(in-suite group-test)
+
+(defgroup fruit
+  apple banana orange)
+
+(test defgroup
+  (is (hash-table-p *fruit*))
+  (is (fruit-p :apple))
+  (is (not (fruit-p :tomato))))

tests/renderer.lisp

@@ -48,6 +48,10 @@
                          "foo"
                          (span "bar"))))))
 
+(test self-closing-tag
+  (is (string= "<img src=\"/background.png\">"
+               (render (img :src "/background.png")))))
+
 (test fragment
   (let ((frg (<>
                (li "bar")