marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Add tests for btn component

Browse source
This commit is contained in:
Marcus Kammer 2023-07-28 15:43:04 +02:00
parent f6c752cf6b
commit 58b24535e6
2 changed files with 29 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
cl-sbt.asd
View file

@ -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)))

27
tests/component/button.lisp Normal file
View file

@ -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)))))