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-25 17:24:38 +02:00
parent fec6387f65
commit c8e38fe270
1 changed files with 13 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
tests/utility.lisp
View file

@ -27,9 +27,12 @@
(testing "Generates correct background class with gradient" (testing "Generates correct background class with gradient"
(ok (string= (background :color "primary" :gradient t) (ok (string= (background :color "primary" :gradient t)
"bg-primary bg-gradient")) "bg-primary bg-gradient"))
(ok (string= (background :color "danger" :gradient t) "bg-danger bg-gradient")) (ok (string= (background :color "danger" :gradient t)
(ok (string= (background :color "light" :gradient t) "bg-light bg-gradient")) "bg-danger bg-gradient"))
(ok (string= (background :color "dark" :gradient t) "bg-dark bg-gradient")))) (ok (string= (background :color "light" :gradient t)
"bg-light bg-gradient"))
(ok (string= (background :color "dark" :gradient t)
"bg-dark bg-gradient"))))
(deftest test-background-no-arguments (deftest test-background-no-arguments
(testing "Generates correct background class with no arguments" (testing "Generates correct background class with no arguments"
@ -148,22 +151,22 @@
(deftest test-spacing-all-arguments (deftest test-spacing-all-arguments
(testing "Generates correct spacing class with all arguments" (testing "Generates correct spacing class with all arguments"
(ok (string= (spacing :property :m :side :t :size 3 :breakpoint :md) (ok (string= (spacing :property "m" :side "t" :size 3 :breakpoint "md")
"mt-md-3")) "mt-md-3"))
(ok (string= (spacing :property :p :side :b :size 2 :breakpoint :lg) (ok (string= (spacing :property "p" :side "b" :size 2 :breakpoint "lg")
"pb-lg-2")))) "pb-lg-2"))))
(deftest test-spacing-some-arguments (deftest test-spacing-some-arguments
(testing "Generates correct spacing class with some arguments" (testing "Generates correct spacing class with some arguments"
(ok (string= (spacing :property :m :size :auto) "m-auto")) (ok (string= (spacing :property "m" :size "auto") "m-auto"))
(ok (string= (spacing :property :p :side :x :size 5) "px-5")))) (ok (string= (spacing :property "p" :side "x" :size 5) "px-5"))))
(deftest test-spacing-single-argument (deftest test-spacing-single-argument
(testing "Generates correct spacing class with a single argument" (testing "Generates correct spacing class with a single argument"
(ok (signals (spacing :property :m))) (ok (signals (spacing :property "m")))
(ok (signals (spacing :side :t))) (ok (signals (spacing :side "t")))
(ok (signals (spacing :size 3))) (ok (signals (spacing :size 3)))
(ok (signals (spacing :breakpoint :md))))) (ok (signals (spacing :breakpoint "md")))))
(deftest test-spacing-no-arguments (deftest test-spacing-no-arguments
(testing "Generates correct spacing class with no arguments" (testing "Generates correct spacing class with no arguments"