(defpackage ml-sbt/tests/badge
  (:use
   :cl
   :ml-sbt/badge
   :rove))

(in-package :ml-sbt/tests/badge)

(deftest test-badge-macro
  (testing "Testing badge macro"
    (let ((result (spinneret:with-html-string (badge (:color "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)))))