2024-04-21 11:40:50 +02:00
|
|
|
(defpackage dev.metalisp.sbt/tests/badge
|
2023-07-27 16:18:37 +02:00
|
|
|
(:use
|
|
|
|
|
:cl
|
2024-04-21 11:40:50 +02:00
|
|
|
:dev.metalisp.sbt/badge
|
2024-03-30 09:17:04 +01:00
|
|
|
:rove))
|
2023-07-27 16:18:37 +02:00
|
|
|
|
2024-04-21 11:40:50 +02:00
|
|
|
(in-package :dev.metalisp.sbt/tests/badge)
|
2023-07-27 16:18:37 +02:00
|
|
|
|
|
|
|
|
(deftest test-badge-macro
|
|
|
|
|
(testing "Testing badge macro"
|
2023-08-09 15:06:10 +02:00
|
|
|
(let ((result (spinneret:with-html-string (badge (:color "primary")))))
|
2023-07-27 16:18:37 +02:00
|
|
|
(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)))))
|
