diff --git a/cl-sbt.asd b/cl-sbt.asd
index 7bbb0f7..4cec37a 100644
--- a/cl-sbt.asd
+++ b/cl-sbt.asd
@@ -45,6 +45,7 @@
                (:module "tests/component"
                 :components
                 ((:file "accordion")
-                 (:file "alert"))))
+                 (:file "alert")
+                 (:file "badge"))))
   :description "Test system for cl-sbt"
   :perform (test-op (op c) (symbol-call :rove :run c)))
diff --git a/tests/component/badge.lisp b/tests/component/badge.lisp
new file mode 100644
index 0000000..eb0671e
--- /dev/null
+++ b/tests/component/badge.lisp
@@ -0,0 +1,27 @@
+(defpackage cl-sbt/tests/badge
+  (:use
+   :cl
+   :cl-sbt
+   :rove)
+  (:import-from
+   :cl-sbt/badge
+   :badge
+   :badge-primary
+   :badge-pill-primary))
+
+(in-package :cl-sbt/tests/badge)
+
+(deftest test-badge-macro
+  (testing "Testing badge macro"
+    (let ((result (spinneret:with-html-string (badge (:type "primary")))))
+      (ok (search "class=\"badge text-bg-primary\"" result)))))
+
+(deftest test-badge-primary
+  (testing "Testing badge primary"
+    (let ((result (spinneret:with-html-string (badge-primary "foo"))))
+      (ok (search "class=\"badge text-bg-primary\"" result)))))
+
+(deftest test-badge-pill-primary
+  (testing "Testing badge pill primary"
+    (let ((result (spinneret:with-html-string (badge-pill-primary "foo"))))
+      (ok (search "class=\"badge text-bg-primary rounded-pill\"" result)))))