Init

test/ui/button_test.clj

@@ -0,0 +1,76 @@
+(ns ui.button-test
+  (:require [clojure.test :refer [deftest is testing]]
+            [ui.button :as button]))
+
+(deftest button-class-list-test
+  (testing "default variant and size"
+    (is (= ["btn" "btn--secondary"] (button/button-class-list {}))))
+
+  (testing "explicit variant"
+    (is (= ["btn" "btn--primary"] (button/button-class-list {:variant :primary})))
+    (is (= ["btn" "btn--ghost"] (button/button-class-list {:variant :ghost})))
+    (is (= ["btn" "btn--danger"] (button/button-class-list {:variant :danger}))))
+
+  (testing "explicit size"
+    (is (= ["btn" "btn--secondary" "btn--sm"] (button/button-class-list {:size :sm})))
+    (is (= ["btn" "btn--secondary"] (button/button-class-list {:size :md})))
+    (is (= ["btn" "btn--secondary" "btn--lg"] (button/button-class-list {:size :lg}))))
+
+  (testing "variant + size combined"
+    (is (= ["btn" "btn--primary" "btn--lg"] (button/button-class-list {:variant :primary :size :lg})))))
+
+(deftest button-classes-test
+  (testing "default variant and size"
+    (is (= "btn btn--secondary" (button/button-classes {}))))
+
+  (testing "explicit variant"
+    (is (= "btn btn--primary" (button/button-classes {:variant :primary})))
+    (is (= "btn btn--ghost" (button/button-classes {:variant :ghost})))
+    (is (= "btn btn--danger" (button/button-classes {:variant :danger})))
+    (is (= "btn btn--secondary" (button/button-classes {:variant :secondary}))))
+
+  (testing "explicit size"
+    (is (= "btn btn--secondary btn--sm" (button/button-classes {:size :sm})))
+    (is (= "btn btn--secondary" (button/button-classes {:size :md})))
+    (is (= "btn btn--secondary btn--lg" (button/button-classes {:size :lg}))))
+
+  (testing "variant + size combined"
+    (is (= "btn btn--primary btn--lg" (button/button-classes {:variant :primary :size :lg})))
+    (is (= "btn btn--danger btn--sm" (button/button-classes {:variant :danger :size :sm}))))
+
+  (testing "nil variant falls back to default"
+    (is (= "btn btn--secondary" (button/button-classes {:variant nil}))))
+
+  (testing "nil size falls back to default (md, no size class)"
+    (is (= "btn btn--secondary" (button/button-classes {:size nil}))))
+
+  (testing "string variants work"
+    (is (= "btn btn--primary" (button/button-classes {:variant "primary"})))))
+
+(deftest button-component-test
+  (testing "basic button renders correct hiccup (clj target)"
+    (let [result (button/button {:variant :primary} "Click me")]
+      (is (= :button (first result)))
+      (is (= "btn btn--primary" (get-in result [1 :class])))
+      (is (= "Click me" (nth result 2)))))
+
+  (testing "disabled button has disabled attr"
+    (let [result (button/button {:variant :primary :disabled true} "Disabled")]
+      (is (true? (get-in result [1 :disabled])))))
+
+  (testing "non-disabled button has no disabled attr"
+    (let [result (button/button {:variant :primary} "Enabled")]
+      (is (nil? (get-in result [1 :disabled])))))
+
+  (testing "extra class gets appended"
+    (let [result (button/button {:variant :primary :class "extra"} "Test")]
+      (is (= "btn btn--primary extra" (get-in result [1 :class])))))
+
+  (testing "extra attrs get merged"
+    (let [result (button/button {:variant :primary :attrs {:id "my-btn"}} "Test")]
+      (is (= "my-btn" (get-in result [1 :id])))))
+
+  (testing "multiple children"
+    (let [result (button/button {:variant :primary} "A" "B")]
+      (is (= "A" (nth result 2)))
+      (is (= "B" (nth result 3))))))

test/ui/theme_test.clj

@@ -0,0 +1,64 @@
+(ns ui.theme-test
+  (:require [clojure.test :refer [deftest is testing]]
+            [clojure.string :as str]
+            [ui.css.gen :as gen]
+            [ui.theme :as theme]))
+
+(deftest css-var-test
+  (testing "generates correct CSS var reference"
+    (is (= "var(--accent)" (theme/css-var :accent)))
+    (is (= "var(--bg-0)" (theme/css-var :bg-0)))
+    (is (= "var(--shadow-2)" (theme/css-var :shadow-2)))))
+
+(deftest token->css-var-test
+  (testing "converts keyword to CSS variable name"
+    (is (= "--accent" (gen/token->css-var :accent)))
+    (is (= "--bg-0" (gen/token->css-var :bg-0)))))
+
+(deftest generate-css-test
+  (let [token-data (gen/read-tokens "src/theme/tokens.edn")
+        css (gen/generate-css token-data)]
+
+    (testing "contains :root block"
+      (is (str/includes? css ":root {")))
+
+    (testing "contains all base tokens as CSS variables"
+      (doseq [token [:bg-0 :bg-1 :bg-2 :fg-0 :fg-1 :fg-2
+                      :accent :danger :success
+                      :border-0 :border-1 :border-2
+                      :shadow-0 :shadow-1 :shadow-2 :shadow-3
+                      :radius-sm :radius-md :radius-lg]]
+        (is (str/includes? css (str "--" (name token) ":"))
+            (str "Missing token: " (name token)))))
+
+    (testing "contains dark theme data attribute selector"
+      (is (str/includes? css "[data-theme=\"dark\"]")))
+
+    (testing "contains dark theme media query"
+      (is (str/includes? css "@media (prefers-color-scheme: dark)")))
+
+    (testing "dark media query excludes explicit light theme"
+      (is (str/includes? css ":root:not([data-theme=\"light\"])")))
+
+    (testing "contains button component CSS"
+      (is (str/includes? css ".btn {"))
+      (is (str/includes? css ".btn--primary {"))
+      (is (str/includes? css ".btn--secondary {"))
+      (is (str/includes? css ".btn--ghost {"))
+      (is (str/includes? css ".btn--danger {"))
+      (is (str/includes? css ".btn--sm {"))
+      (is (str/includes? css ".btn--lg {"))
+      (is (str/includes? css ".btn:disabled {")))))
+
+(deftest tokens-roundtrip-test
+  (testing "tokens.edn parses without error"
+    (let [data (gen/read-tokens "src/theme/tokens.edn")]
+      (is (map? (:tokens data)))
+      (is (map? (get-in data [:themes :dark])))))
+
+  (testing "dark theme has same keys as base tokens"
+    (let [data (gen/read-tokens "src/theme/tokens.edn")
+          base-keys (set (keys (:tokens data)))
+          dark-keys (set (keys (get-in data [:themes :dark])))]
+      (is (= base-keys dark-keys)
+          "Dark theme should override all base tokens"))))