2023-11-25 09:59:03 +01:00
|
|
|
(defpackage dev.metalisp.sbt/tests/list-group
|
2023-07-29 17:38:15 +02:00
|
|
|
(:use
|
|
|
|
|
:cl
|
2023-11-25 09:59:03 +01:00
|
|
|
:dev.metalisp.sbt
|
2023-07-29 17:38:15 +02:00
|
|
|
:rove)
|
|
|
|
|
(:import-from
|
2023-12-18 12:12:53 +01:00
|
|
|
:dev.metalisp.sbt/component/list-group
|
2023-07-29 17:38:15 +02:00
|
|
|
:item
|
|
|
|
|
:list-group))
|
|
|
|
|
|
2023-11-25 09:59:03 +01:00
|
|
|
(in-package :dev.metalisp.sbt/tests/list-group)
|
2023-07-29 17:38:15 +02:00
|
|
|
|
|
|
|
|
(deftest test-item
|
|
|
|
|
(let ((result (spinneret:with-html-string (item "Item 1"))))
|
|
|
|
|
(testing "Generates correct HTML for a list group item"
|
|
|
|
|
(ok (search "class=list-group-item" result))
|
|
|
|
|
(ok (search "Item 1" result)))))
|
|
|
|
|
|
|
|
|
|
(deftest test-list-group
|
|
|
|
|
(let ((result (spinneret:with-html-string (list-group (:content "Item 1") (:content "Item 2")))))
|
|
|
|
|
(testing "Generates correct HTML for a list group with items"
|
|
|
|
|
(ok (search "class=\"list-group list-group-flush\"" result))
|
|
|
|
|
(ok (search "class=list-group-item" result))
|
|
|
|
|
(ok (search "Item 1" result))
|
|
|
|
|
(ok (search "Item 2" result)))))
|
