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

Better test for small string pieces

Browse source
This commit is contained in:
Marcus Kammer 2023-07-27 13:55:25 +02:00
parent 2e4f6e4419
commit 967028a93b
1 changed files with 12 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
tests/component/accordion.lisp
View file

@ -11,20 +11,19 @@
(in-package :cl-sbt/tests/accordion) (in-package :cl-sbt/tests/accordion)
(deftest test-header (deftest test-header
(let ((result (spinneret:with-html-string (header "collapseOne" "Heading" t)))) (let ((result (spinneret:with-html-string (header "collapseOne" "Heading" t))))
(testing "Generates correct HTML for accordion header" (testing "Generates correct HTML for accordion header"
(ok (string= result (ok (search "class=accordion-header" result))
"<h2 class=accordion-header> (ok (search "class=accordion-button" result))
<button class=accordion-button type=button data-bs-toggle=collapse (ok (search "data-bs-target=#collapseOne" result))
data-bs-target=#collapseOne aria-expanded=true (ok (search "aria-expanded=true" result))
aria-controls=#collapseOne>Heading</button> (ok (search "aria-controls=#collapseOne" result))
</h2>"))))) (ok (search "Heading" result)))))
(deftest test-collapse (deftest test-collapse
(let ((result (spinneret:with-html-string (collapse "accordionExample" "collapseOne" t)))) (let ((result (spinneret:with-html-string (collapse "accordionExample" "collapseOne" t))))
(testing "Generates correct HTML for accordion collapse" (testing "Generates correct HTML for accordion collapse"
(ok (string= result (ok (search "class=\"accordion-collapse collapse show\"" result))
"<div class=\"accordion-collapse collapse show\" id=collapseOne (ok (search "id=collapseOne" result))
data-bs-parent=#accordionExample> (ok (search "data-bs-parent=#accordionExample" result))
<div class=accordion-body></div> (ok (search "class=accordion-body" result)))))
</div>")))))