219 lines
9.2 KiB
Common Lisp
219 lines
9.2 KiB
Common Lisp
(defpackage cl-sbt/tests/utility
|
|
(:use
|
|
:cl
|
|
:cl-sbt
|
|
:rove)
|
|
(:import-from
|
|
:cl-sbt/utility
|
|
:background
|
|
:color
|
|
:opacity
|
|
:overflow
|
|
:sizing
|
|
:spacing
|
|
:text
|
|
:valign))
|
|
|
|
(in-package :cl-sbt/tests/utility)
|
|
|
|
(deftest test-background-color
|
|
(testing "Generates correct background class with color"
|
|
(ok (string= (background :color "primary") "bg-primary"))
|
|
(ok (string= (background :color "danger") "bg-danger"))
|
|
(ok (string= (background :color "light") "bg-light"))
|
|
(ok (string= (background :color "dark") "bg-dark"))))
|
|
|
|
(deftest test-background-gradient
|
|
(testing "Generates correct background class with gradient"
|
|
(ok (string= (background :color "primary" :gradient t)
|
|
"bg-primary bg-gradient"))
|
|
(ok (string= (background :color "danger" :gradient t) "bg-danger 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
|
|
(testing "Generates correct background class with no arguments"
|
|
(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"
|
|
(ok (string= (color :text "primary") "text-primary"))
|
|
(ok (string= (color :text "danger") "text-danger"))
|
|
(ok (string= (color :text "light") "text-light"))
|
|
(ok (string= (color :text "dark") "text-dark"))))
|
|
|
|
(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"))))
|
|
|
|
(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"))))
|
|
|
|
(deftest test-color-no-arguments
|
|
(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"))
|
|
(ok (string= (opacity :level 25) "opacity-25"))
|
|
(ok (string= (opacity :level 50) "opacity-50"))
|
|
(ok (string= (opacity :level 75) "opacity-75"))
|
|
(ok (string= (opacity :level 100) "opacity-100"))))
|
|
|
|
(deftest test-opacity-auto
|
|
(testing "Generates correct opacity class for auto"
|
|
(ok (string= (opacity :level "auto") "opacity-auto"))))
|
|
|
|
(deftest test-opacity-no-arguments
|
|
(testing "Generates correct opacity class with no arguments"
|
|
(ok (signals (opacity)))))
|
|
|
|
(deftest test-opacity-invalid-arguments
|
|
(testing "Asserts error is signaled for invalid opacity levels"
|
|
(ok (signals (opacity :level :invalid)))
|
|
(ok (signals (opacity :level "invalid")))
|
|
(ok (signals (opacity :level -100)))))
|
|
|
|
(deftest test-overflow-direction-value
|
|
(testing "Generates correct overflow class for direction and value"
|
|
(ok (string= (overflow :direction "x" :value "auto") "overflow-x-auto"))
|
|
(ok (string= (overflow :direction "y" :value "hidden") "overflow-y-hidden"))
|
|
(ok (string= (overflow :direction "x" :value "visible") "overflow-x-visible"))
|
|
(ok (string= (overflow :direction "y" :value "scroll") "overflow-y-scroll"))))
|
|
|
|
(deftest test-overflow-direction
|
|
(testing "Generates correct overflow class for direction only"
|
|
(ok (string= (overflow :direction "x") "overflow-x"))
|
|
(ok (string= (overflow :direction "y") "overflow-y"))))
|
|
|
|
(deftest test-overflow-value
|
|
(testing "Generates correct overflow class for value only"
|
|
(ok (string= (overflow :value "auto") "overflow-auto"))
|
|
(ok (string= (overflow :value "hidden") "overflow-hidden"))
|
|
(ok (string= (overflow :value "visible") "overflow-visible"))
|
|
(ok (string= (overflow :value "scroll") "overflow-scroll"))))
|
|
|
|
(deftest test-overflow-no-arguments
|
|
(testing "Asserts error is signaled for invalid opacity levels"
|
|
(ok (signals (overflow)))
|
|
(ok (signals (overflow :direction :invalid)))
|
|
(ok (signals (overflow :value :invalid)))))
|
|
|
|
(deftest test-sizing-direction-size
|
|
(testing "Generates correct sizing class for direction and size"
|
|
(ok (string= (sizing :direction :w :size 50) "w-50"))
|
|
(ok (string= (sizing :direction :h :size :auto) "h-auto"))
|
|
(ok (string= (sizing :direction :w :size :100) "w-100"))
|
|
(ok (string= (sizing :direction :h :size 75) "h-75"))))
|
|
|
|
(deftest test-sizing-direction
|
|
(testing "Generates correct sizing class for direction only"
|
|
(ok (string= (sizing :direction :w) "w-"))
|
|
(ok (string= (sizing :direction :h) "h-"))))
|
|
|
|
(deftest test-sizing-size
|
|
(testing "Generates correct sizing class for size only"
|
|
(ok (string= (sizing :size 50) "50"))
|
|
(ok (string= (sizing :size :auto) "auto"))
|
|
(ok (string= (sizing :size :100) "100"))
|
|
(ok (string= (sizing :size 75) "75"))))
|
|
|
|
(deftest test-sizing-no-arguments
|
|
(testing "Generates correct sizing class with no arguments"
|
|
(ok (string= (sizing) ""))))
|
|
|
|
(deftest test-spacing-all-arguments
|
|
(testing "Generates correct spacing class with all arguments"
|
|
(ok (string= (spacing :property :m :side :t :size 3 :breakpoint :md)
|
|
"mt-md-3"))
|
|
(ok (string= (spacing :property :p :side :b :size 2 :breakpoint :lg)
|
|
"pb-lg-2"))))
|
|
|
|
(deftest test-spacing-some-arguments
|
|
(testing "Generates correct spacing class with some arguments"
|
|
(ok (string= (spacing :property :m :size :auto) "m-auto"))
|
|
(ok (string= (spacing :property :p :side :x :size 5) "px-5"))))
|
|
|
|
(deftest test-spacing-single-argument
|
|
(testing "Generates correct spacing class with a single argument"
|
|
(ok (signals (spacing :property :m)))
|
|
(ok (signals (spacing :side :t)))
|
|
(ok (signals (spacing :size 3)))
|
|
(ok (signals (spacing :breakpoint :md)))))
|
|
|
|
(deftest test-spacing-no-arguments
|
|
(testing "Generates correct spacing class with no arguments"
|
|
(ok (signals (spacing)))))
|
|
|
|
(deftest test-spacing-invalid-arguments
|
|
(testing "Generates correct spacing class with invalid arguments"
|
|
(ok (signals (spacing :property :invalid :side :t :size 3 :breakpoint :md)))
|
|
(ok (signals (spacing :property :m :side :invalid :size 3 :breakpoint :md)))
|
|
(ok (signals (spacing :property :m :side :t :size -1 :breakpoint :md)))
|
|
(ok (signals (spacing :property :m :side :t :size 3 :breakpoint :invalid)))))
|
|
|
|
(deftest test-text-all-arguments
|
|
(testing "Generates correct text utility class with all arguments"
|
|
(ok (string= (text :alignment :center :transform :uppercase :weight :bolder :wrap :nowrap :monospace t)
|
|
"text-center text-uppercase fw-bolder text-nowrap font-monospace"))))
|
|
|
|
(deftest test-text-some-arguments
|
|
(testing "Generates correct text utility class with some arguments"
|
|
(ok (string= (text :alignment :start) "text-start"))
|
|
(ok (string= (text :transform :uppercase) "text-uppercase"))
|
|
(ok (string= (text :weight :bold :monospace t) "fw-bold font-monospace"))
|
|
(ok (string= (text :alignment :center :transform :lowercase)
|
|
"text-center text-lowercase"))
|
|
(ok (string= (text :alignment :end :weight :light :monospace t)
|
|
"text-end fw-light font-monospace"))
|
|
(ok (string= (text :transform :capitalize :wrap :wrap)
|
|
"text-capitalize text-wrap"))))
|
|
|
|
(deftest test-text-single-argument
|
|
(testing "Generates correct text utility class with a single argument"
|
|
(ok (string= (text :alignment :start) "text-start"))
|
|
(ok (string= (text :transform :uppercase) "text-uppercase"))
|
|
(ok (string= (text :weight :bold) "fw-bold"))
|
|
(ok (string= (text :wrap :wrap) "text-wrap"))
|
|
(ok (string= (text :monospace t) "font-monospace"))))
|
|
|
|
(deftest test-text-no-arguments
|
|
(testing "Generates correct text utility class with no arguments"
|
|
(ok (string= (text) ""))))
|
|
|
|
(deftest test-valign-all-arguments
|
|
(testing "Generates correct vertical align class with all arguments"
|
|
(ok (string= (valign :align :baseline) "align-baseline"))
|
|
(ok (string= (valign :align :top) "align-top"))
|
|
(ok (string= (valign :align :middle) "align-middle"))
|
|
(ok (string= (valign :align :bottom) "align-bottom"))
|
|
(ok (string= (valign :align :text-bottom) "align-text-bottom"))
|
|
(ok (string= (valign :align :text-top) "align-text-top"))))
|
|
|
|
(deftest test-valign-no-arguments
|
|
(testing "Generates correct vertical align class with no arguments"
|
|
(ok (string= (valign) ""))))
|