diff --git a/cl-sbt.asd b/cl-sbt.asd
index 4cec37a..f260c0f 100644
--- a/cl-sbt.asd
+++ b/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)))
diff --git a/tests/component/button.lisp b/tests/component/button.lisp
new file mode 100644
index 0000000..5ce1ee3
--- /dev/null
+++ b/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)))))