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

Update tests

Browse source
This commit is contained in:
Marcus Kammer 2023-07-23 19:10:13 +02:00
parent 1ecdcc8394
commit 6513479b2c
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

@ -47,15 +47,15 @@
(deftest test-color-background
(testing "Generates correct color class for background"
(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"))))
(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 '(:color :dark)) "text-info bg-dark"))
(ok (string= (color :text :white :background '(:color :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"