Add tests for btn component

cl-sbt.asd

@@ -46,6 +46,7 @@
                 :components
                 ((:file "accordion")
                  (:file "alert")
-                 (:file "badge"))))
+                 (:file "badge")
+                 (:file "button"))))
   :description "Test system for cl-sbt"
   :perform (test-op (op c) (symbol-call :rove :run c)))

tests/component/button.lisp

@@ -0,0 +1,27 @@
+(defpackage cl-sbt/tests/btn
+  (:use
+   :cl
+   :cl-sbt
+   :rove)
+  (:import-from
+   :cl-sbt/btn
+   :btn
+   :btn-primary
+   :btn-outline-primary))
+
+(in-package :cl-sbt/tests/btn)
+
+(deftest test-btn-macro
+  (testing "Testing btn macro"
+    (let ((result (spinneret:with-html-string (btn (:type "primary") "foo"))))
+      (ok (search "class=\"btn btn-primary\"" result)))))
+
+(deftest test-btn-primary
+  (testing "Testing btn primary"
+    (let ((result (spinneret:with-html-string (btn-primary "foo"))))
+      (ok (search "class=\"btn btn-primary\"" result)))))
+
+(deftest test-btn-outline-primary
+  (testing "Testing btn outline primary"
+    (let ((result (spinneret:with-html-string (btn-outline-primary "foo"))))
+      (ok (search "class=\"btn btn-outline-primary\"" result)))))