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

Update syntax in utility tests

Browse source
This commit is contained in:
Marcus Kammer 2023-07-22 17:56:53 +02:00
parent 9f4e5ea485
commit bd1f5c8bf8
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
tests/utility.lisp
View file

@ -43,15 +43,15 @@
(deftest test-color-background
(testing "Generates correct color class for background"
(ok (string= (color :background :primary) "bg-primary"))
(ok (string= (color :background :danger) "bg-danger"))
(ok (string= (color :background :light) "bg-light"))
(ok (string= (color :background :dark) "bg-dark"))))
(ok (string= (color :background '(:color :primary)) "bg-primary"))
(ok (string= (color :background '(:color :danger)) "bg-danger"))
(ok (string= (color :background '(:color :light)) "bg-light"))
(ok (string= (color :background '(:color :dark)) "bg-dark"))))
(deftest test-color-text-background
(testing "Generates correct color class for text and background"
(ok (string= (color :text :info :background :dark) "text-info bg-dark"))
(ok (string= (color :text :white :background :primary) "text-white bg-primary"))))
(ok (string= (color :text :info :background '(:color :dark)) "text-info bg-dark"))
(ok (string= (color :text :white :background '(:color :primary)) "text-white bg-primary"))))
(deftest test-color-no-arguments
(testing "Generates correct color class with no arguments"