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

Add more tests for color

Browse source
This commit is contained in:
Marcus Kammer 2023-07-23 14:11:20 +02:00
parent f5d4ddec59
commit 5c589bf202
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 17 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
tests/utility.lisp
View file

@ -32,7 +32,11 @@
(deftest test-background-no-arguments
(testing "Generates correct background class with no arguments"
(ok (string= (background) ""))))
(ok (string= (background) "bg-primary"))))
(deftest test-background-color-nil
(testing "Generates correct background class with no arguments"
(ok (signals (background :color nil)))))
(deftest test-color-text
(testing "Generates correct color class for text"
@ -57,6 +61,18 @@
(testing "Generates correct color class with no arguments"
(ok (string= (color) ""))))
(deftest test-color-text-emphasis
(ok (string= (color :text :primary :emphasis t) "text-primary-emphasis"))
(ok (string= (color :text :secondary :emphasis t) "text-secondary-emphasis")))
(deftest test-color-body
(ok (string= (color :body t) "text-body"))
(ok (string= (color :body :secondary) "text-body-secondary"))
(ok (string= (color :body :tertiary) "text-body-tertiary")))
(deftest test-color-body-emphasis
(ok (string= (color :body t :emphasis t) "text-body-emphasis")))
(deftest test-opacity-level
(testing "Generates correct opacity class for level"
(ok (string= (opacity :level 0) "opacity-0"))