2023-07-28 15:43:04 +02:00
|
|
|
(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"
|
2023-08-09 15:06:10 +02:00
|
|
|
(let ((result (spinneret:with-html-string (btn (:color "primary") "foo"))))
|
2023-07-28 15:43:04 +02:00
|
|
|
(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)))))
|
