93edebf144
Button: - :icon-left, :icon-right props for buttons with leading/trailing icons - :icon prop for icon-only buttons (square padding via .btn-icon class) - Icon size scales with button size (sm→sm, md/lg→sm/md) Alert: - Auto-assigns variant-specific icons (circle-check, alert-triangle, alert-circle, info) per variant - :icon-name prop to override default, false to suppress - Layout restructured with .alert-icon + .alert-content wrapper Badge: - :icon-name prop adds a leading icon before text - .badge-icon CSS scales icon to match badge font size Form input: - :icon-left and :icon-right props on form-input - Wraps input in .form-input-wrap with absolutely-positioned icon spans - Padding adjusts automatically via .form-input--icon-left/right All three dev targets (hiccup, replicant, squint) updated with demos.
54 lines
2.3 KiB
Clojure
54 lines
2.3 KiB
Clojure
(ns ui.alert-test
|
|
(:require [clojure.test :refer [deftest is testing]]
|
|
[ui.alert :as alert]
|
|
[ui.icon :as icon]))
|
|
|
|
(deftest alert-class-list-test
|
|
(testing "neutral (no variant)"
|
|
(is (= ["alert"] (alert/alert-class-list {}))))
|
|
|
|
(testing "explicit variants"
|
|
(is (= ["alert" "alert-success"] (alert/alert-class-list {:variant :success})))
|
|
(is (= ["alert" "alert-warning"] (alert/alert-class-list {:variant :warning})))
|
|
(is (= ["alert" "alert-danger"] (alert/alert-class-list {:variant :danger})))
|
|
(is (= ["alert" "alert-info"] (alert/alert-class-list {:variant :info})))))
|
|
|
|
(deftest alert-classes-test
|
|
(testing "space-joined output"
|
|
(is (= "alert" (alert/alert-classes {})))
|
|
(is (= "alert alert-success" (alert/alert-classes {:variant :success})))))
|
|
|
|
(deftest alert-component-test
|
|
(testing "basic alert renders correct hiccup"
|
|
(let [result (alert/alert {:variant :success :title "Done!"} "Saved.")]
|
|
(is (= :div (first result)))
|
|
(is (= "alert alert-success" (get-in result [1 :class])))
|
|
(is (= "alert" (get-in result [1 :role])))))
|
|
|
|
(testing "variant alert includes default icon"
|
|
(let [result (alert/alert {:variant :success :title "Done!"} "Saved.")
|
|
icon-span (nth result 2)]
|
|
(is (= :span (first icon-span)))
|
|
(is (= "alert-icon" (get-in icon-span [1 :class])))))
|
|
|
|
(testing "neutral alert has no icon"
|
|
(let [result (alert/alert {:title "Title"} "Body")]
|
|
(is (not (some #(and (vector? %) (= "alert-icon" (get-in % [1 :class])))
|
|
(rest (rest result)))))))
|
|
|
|
(testing "icon-name false suppresses icon"
|
|
(let [result (alert/alert {:variant :success :icon-name false} "Body")]
|
|
(is (not (some #(and (vector? %) (= "alert-icon" (get-in % [1 :class])))
|
|
(rest (rest result)))))))
|
|
|
|
(testing "icon-name overrides default"
|
|
(let [result (alert/alert {:variant :success :icon-name :star} "Body")
|
|
icon-span (nth result 2)]
|
|
(is (= "alert-icon" (get-in icon-span [1 :class])))))
|
|
|
|
(testing "alert content is wrapped in alert-content div"
|
|
(let [result (alert/alert {:variant :info :title "Title"} "Body")
|
|
content-div (last result)]
|
|
(is (= :div (first content-div)))
|
|
(is (= "alert-content" (get-in content-div [1 :class]))))))
|