feat: add 13 components adapted from Oat UI
Components (.cljc + .css + tests): - Alert (success/warning/danger/info variants) - Badge (primary/secondary/outline/success/warning/danger) - Card (card/card-header/card-body/card-footer) - Accordion (collapsible with open/closed state) - Table (headers/rows, striped/bordered variants) - Dialog (modal with header/body/footer sections) - Breadcrumb (nav with active item) - Pagination (current/total with prev/next) - Progress (value bar with color variants) - Spinner (sm/md/lg sizes) - Skeleton (line/box/circle/heading placeholders) - Switch (toggle with checked/disabled states) - Tooltip (hover text via data-tooltip attr) CSS-only additions: - Form elements (inputs, selects, checkboxes, radios, range, groups) - Grid (12-column system with offsets, responsive) - Utilities (flex, spacing, alignment, sr-only) Also adds warning/fg-on-warning tokens to light and dark themes. All 3 dev targets updated with full component showcase. 40 tests, 213 assertions, all passing.
This commit is contained in:
31
test/ui/accordion_test.clj
Normal file
31
test/ui/accordion_test.clj
Normal file
@@ -0,0 +1,31 @@
|
||||
(ns ui.accordion-test
|
||||
(:require [clojure.test :refer [deftest is testing]]
|
||||
[ui.accordion :as accordion]))
|
||||
|
||||
(deftest accordion-class-list-test
|
||||
(testing "closed accordion"
|
||||
(is (= ["accordion"] (accordion/accordion-class-list {})))
|
||||
(is (= ["accordion"] (accordion/accordion-class-list {:open false}))))
|
||||
|
||||
(testing "open accordion"
|
||||
(is (= ["accordion" "accordion--open"] (accordion/accordion-class-list {:open true})))))
|
||||
|
||||
(deftest accordion-classes-test
|
||||
(testing "space-joined output"
|
||||
(is (= "accordion" (accordion/accordion-classes {})))
|
||||
(is (= "accordion accordion--open" (accordion/accordion-classes {:open true})))))
|
||||
|
||||
(deftest accordion-component-test
|
||||
(testing "closed accordion renders trigger only"
|
||||
(let [result (accordion/accordion {:title "Question?"} "Answer.")]
|
||||
(is (= :div (first result)))
|
||||
(is (= "accordion" (get-in result [1 :class])))
|
||||
;; trigger is present
|
||||
(is (= "accordion-trigger" (get-in result [2 1 :class])))))
|
||||
|
||||
(testing "open accordion includes content"
|
||||
(let [result (accordion/accordion {:title "Q?" :open true} "A.")]
|
||||
(is (= "accordion accordion--open" (get-in result [1 :class])))
|
||||
;; should contain accordion-content div
|
||||
(is (some #(and (vector? %) (= "accordion-content" (get-in % [1 :class])))
|
||||
(rest (rest result)))))))
|
||||
Reference in New Issue
Block a user