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

Make tests/grid run

Browse source
This commit is contained in:
Marcus Kammer 2024-04-21 12:33:14 +02:00
parent 3aa703df79
commit 7ce1ad1abb
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tests/grid.lisp
View file

@ -2,7 +2,12 @@
(:use
:cl
:dev.metalisp.sbt/grid
:rove))
:rove)
(:import-from
:dev.metalisp.sbt/grid
:make-con-class
:make-row-class
:make-col-class))
(in-package :dev.metalisp.sbt/tests/grid)
@ -101,7 +106,7 @@
(ok (search "<div class=\"container container-md\"></div>" result)))))
(deftest test-con-text
(let ((result (spinneret:with-html-string (con (:text (:alignment "center"))))))
(let ((result (with-output-to-string (spinneret:*html*) (con (:text (:alignment "center"))))))
(testing "Generates correct HTML for container with text utilities"
(ok (search "<div class=\"container text-center\"></div>" result)))))