e003e1c4a8
- Section 6: Never start dev servers from the agent (prevents orphan processes and broken tmux panes) - Section 7: Check tmux panes for compile errors (renumbered) - Section 8: Verify compiled output in browser before committing (catches squint's silent empty-file failures)
204 lines
8.5 KiB
Clojure
204 lines
8.5 KiB
Clojure
(ns ui.sidebar-test
|
|
(:require [clojure.test :refer [deftest is testing]]
|
|
[ui.sidebar :as sidebar]))
|
|
|
|
;; ── Class generation ────────────────────────────────────────────────
|
|
|
|
(deftest sidebar-layout-class-list-test
|
|
(testing "returns sidebar-layout class"
|
|
(is (= ["sidebar-layout"] (sidebar/sidebar-layout-class-list {})))))
|
|
|
|
(deftest sidebar-class-list-test
|
|
(testing "returns sidebar class"
|
|
(is (= ["sidebar"] (sidebar/sidebar-class-list {})))))
|
|
|
|
(deftest sidebar-brand-class-list-test
|
|
(testing "returns sidebar-brand class"
|
|
(is (= ["sidebar-brand"] (sidebar/sidebar-brand-class-list {})))))
|
|
|
|
(deftest sidebar-search-class-list-test
|
|
(testing "returns sidebar-search class"
|
|
(is (= ["sidebar-search"] (sidebar/sidebar-search-class-list {})))))
|
|
|
|
(deftest sidebar-group-class-list-test
|
|
(testing "returns sidebar-group class"
|
|
(is (= ["sidebar-group"] (sidebar/sidebar-group-class-list {})))))
|
|
|
|
(deftest sidebar-menu-item-class-list-test
|
|
(testing "default item"
|
|
(is (= ["sidebar-menu-item"] (sidebar/sidebar-menu-item-class-list {}))))
|
|
(testing "active item"
|
|
(is (= ["sidebar-menu-item" "sidebar-menu-item-active"]
|
|
(sidebar/sidebar-menu-item-class-list {:active true}))))
|
|
(testing "inactive item"
|
|
(is (= ["sidebar-menu-item"]
|
|
(sidebar/sidebar-menu-item-class-list {:active false})))))
|
|
|
|
(deftest sidebar-menu-item-classes-test
|
|
(testing "default"
|
|
(is (= "sidebar-menu-item" (sidebar/sidebar-menu-item-classes {}))))
|
|
(testing "active"
|
|
(is (= "sidebar-menu-item sidebar-menu-item-active"
|
|
(sidebar/sidebar-menu-item-classes {:active true})))))
|
|
|
|
;; ── Component rendering (clj target) ───────────────────────────────
|
|
|
|
(deftest sidebar-layout-test
|
|
(testing "renders div with sidebar-layout class"
|
|
(let [result (sidebar/sidebar-layout {} [:div "Content"])]
|
|
(is (= :div (first result)))
|
|
(is (= "sidebar-layout" (get-in result [1 :class])))))
|
|
(testing "extra class appended"
|
|
(let [result (sidebar/sidebar-layout {:class "custom"} [:div])]
|
|
(is (= "sidebar-layout custom" (get-in result [1 :class]))))))
|
|
|
|
(deftest sidebar-test
|
|
(testing "renders aside tag"
|
|
(let [result (sidebar/sidebar {} [:div "Nav"])]
|
|
(is (= :aside (first result)))
|
|
(is (= "sidebar" (get-in result [1 :class]))))))
|
|
|
|
(deftest sidebar-header-test
|
|
(testing "renders header div"
|
|
(let [result (sidebar/sidebar-header {} [:span "Brand"])]
|
|
(is (= :div (first result)))
|
|
(is (= "sidebar-header" (get-in result [1 :class]))))))
|
|
|
|
(deftest sidebar-brand-test
|
|
(testing "renders div by default"
|
|
(let [result (sidebar/sidebar-brand {:title "Acme" :subtitle "v1.0"})]
|
|
(is (= :div (first result)))
|
|
(is (= "sidebar-brand" (get-in result [1 :class])))))
|
|
(testing "renders <a> with href"
|
|
(let [result (sidebar/sidebar-brand {:title "Acme" :href "/"})]
|
|
(is (= :a (first result)))
|
|
(is (= "/" (get-in result [1 :href])))))
|
|
(testing "icon defaults to first char of title"
|
|
(let [result (sidebar/sidebar-brand {:title "Acme"})]
|
|
;; The icon span is at index 2
|
|
(is (= "A" (nth (nth result 2) 2))))))
|
|
|
|
(deftest sidebar-search-test
|
|
(testing "renders search input"
|
|
(let [result (sidebar/sidebar-search {:placeholder "Find..."})]
|
|
(is (= :div (first result)))
|
|
(is (= "sidebar-search" (get-in result [1 :class])))
|
|
;; input is the third child (after class div and icon span)
|
|
(let [input (nth result 3)]
|
|
(is (= :input (first input)))
|
|
(is (= "Find..." (get-in input [1 :placeholder])))))))
|
|
|
|
(deftest sidebar-content-test
|
|
(testing "renders nav tag"
|
|
(let [result (sidebar/sidebar-content {} [:div "Groups"])]
|
|
(is (= :nav (first result)))
|
|
(is (= "sidebar-content" (get-in result [1 :class]))))))
|
|
|
|
(deftest sidebar-group-test
|
|
(testing "renders label when provided"
|
|
(let [result (sidebar/sidebar-group {:label "Section"} [:ul "Items"])]
|
|
(is (= :div (first result)))
|
|
(is (= "sidebar-group" (get-in result [1 :class])))
|
|
;; Label is the second element
|
|
(let [label (nth result 2)]
|
|
(is (= "sidebar-group-label" (get-in label [1 :class])))
|
|
(is (= "Section" (nth label 2))))))
|
|
(testing "no label when omitted"
|
|
(let [result (sidebar/sidebar-group {} [:ul "Items"])]
|
|
;; Should only have attrs + children, no label div
|
|
(is (= [:ul "Items"] (nth result 2))))))
|
|
|
|
(deftest sidebar-menu-test
|
|
(testing "wraps children in <li> tags"
|
|
(let [result (sidebar/sidebar-menu {} [:a "Link1"] [:a "Link2"])]
|
|
(is (= :ul (first result)))
|
|
(is (= "sidebar-menu" (get-in result [1 :class])))
|
|
(is (= [:li [:a "Link1"]] (nth result 2)))
|
|
(is (= [:li [:a "Link2"]] (nth result 3))))))
|
|
|
|
(deftest sidebar-menu-item-test
|
|
(testing "renders <a> with href"
|
|
(let [result (sidebar/sidebar-menu-item {:href "/about"} "About")]
|
|
(is (= :a (first result)))
|
|
(is (= "/about" (get-in result [1 :href])))
|
|
(is (= "sidebar-menu-item" (get-in result [1 :class])))))
|
|
(testing "renders <button> without href"
|
|
(let [result (sidebar/sidebar-menu-item {} "Click")]
|
|
(is (= :button (first result)))))
|
|
(testing "active class"
|
|
(let [result (sidebar/sidebar-menu-item {:active true :href "#"} "Active")]
|
|
(is (= "sidebar-menu-item sidebar-menu-item-active" (get-in result [1 :class])))))
|
|
(testing "badge"
|
|
(let [result (sidebar/sidebar-menu-item {:href "#" :badge "3"} "Messages")]
|
|
(is (= "Messages" (nth result 2)))
|
|
(let [badge (nth result 3)]
|
|
(is (= "sidebar-menu-item-badge" (get-in badge [1 :class])))
|
|
(is (= "3" (nth badge 2)))))))
|
|
|
|
(deftest sidebar-collapsible-test
|
|
(testing "renders <details> with summary"
|
|
(let [result (sidebar/sidebar-collapsible {:title "Section" :open true} [:ul "Items"])]
|
|
(is (= :details (first result)))
|
|
(is (= "sidebar-collapsible" (get-in result [1 :class])))
|
|
(is (true? (get-in result [1 :open])))
|
|
;; summary
|
|
(let [summary (nth result 2)]
|
|
(is (= :summary (first summary)))
|
|
(is (= "Section" (nth (nth summary 1) 1)))))))
|
|
|
|
(deftest sidebar-mobile-toggle-class-list-test
|
|
(testing "returns sidebar-mobile-toggle class"
|
|
(is (= ["sidebar-mobile-toggle"] (sidebar/sidebar-mobile-toggle-class-list {})))))
|
|
|
|
(deftest sidebar-mobile-toggle-test
|
|
(testing "renders a button with toggle icons"
|
|
(let [result (sidebar/sidebar-mobile-toggle {})]
|
|
(is (= :button (first result)))
|
|
(is (= "sidebar-mobile-toggle" (get-in result [1 :class])))
|
|
(is (= "button" (get-in result [1 :type])))
|
|
(is (= "Toggle sidebar" (get-in result [1 :aria-label])))))
|
|
(testing "has onclick for toggling data-sidebar-open"
|
|
(let [result (sidebar/sidebar-mobile-toggle {})]
|
|
(is (string? (get-in result [1 :onclick])))))
|
|
(testing "extra class appended"
|
|
(let [result (sidebar/sidebar-mobile-toggle {:class "custom"})]
|
|
(is (= "sidebar-mobile-toggle custom" (get-in result [1 :class]))))))
|
|
|
|
(deftest sidebar-overlay-test
|
|
(testing "renders a div with overlay class"
|
|
(let [result (sidebar/sidebar-overlay {})]
|
|
(is (= :div (first result)))
|
|
(is (= "sidebar-overlay" (get-in result [1 :class])))
|
|
(is (= "true" (get-in result [1 :aria-hidden])))))
|
|
(testing "has onclick for closing sidebar"
|
|
(let [result (sidebar/sidebar-overlay {})]
|
|
(is (string? (get-in result [1 :onclick])))))
|
|
(testing "extra class appended"
|
|
(let [result (sidebar/sidebar-overlay {:class "custom"})]
|
|
(is (= "sidebar-overlay custom" (get-in result [1 :class]))))))
|
|
|
|
(deftest sidebar-separator-test
|
|
(testing "renders <hr>"
|
|
(let [result (sidebar/sidebar-separator)]
|
|
(is (= :hr (first result)))
|
|
(is (= "sidebar-separator" (get-in result [1 :class]))))))
|
|
|
|
(deftest sidebar-footer-test
|
|
(testing "renders footer div"
|
|
(let [result (sidebar/sidebar-footer {} [:span "User"])]
|
|
(is (= :div (first result)))
|
|
(is (= "sidebar-footer" (get-in result [1 :class]))))))
|
|
|
|
(deftest sidebar-user-test
|
|
(testing "renders user block"
|
|
(let [result (sidebar/sidebar-user {:user-name "Alice" :email "alice@example.com"})]
|
|
(is (= :div (first result)))
|
|
(is (= "sidebar-user" (get-in result [1 :class])))
|
|
;; avatar defaults to first 2 chars
|
|
(let [avatar (nth result 2)]
|
|
(is (= "Al" (nth avatar 2))))
|
|
;; name
|
|
(let [info (nth result 3)
|
|
name-span (nth info 2)]
|
|
(is (= "Alice" (nth name-span 2)))))))
|