d8e280df2a
New stateless components ported from org-mode-agenda-cli reference app: - view-toggle: Grid/Agenda segmented control - source-toggles: colored pill buttons for event source filtering - event-detail-dialog: overlay with title, date, time, tags, source - error-banner: dismissible error bar - loading-indicator: pulsing dot for async state Enhanced existing components: - calendar-event-grid: added :loading?, :header-actions slots - agenda-day-group/agenda-list: added :day-actions slot per day header - Event data format extended with :tags and :source fields CSS: view toggle, loading pulse animation, error banner, source toggles, detail dialog overlay — all using theme tokens with dark mode support. Tests: 126 tests, 794 assertions, 0 failures. Dev demos updated in all 3 targets with full interactive calendar app.
176 lines
7.6 KiB
Clojure
176 lines
7.6 KiB
Clojure
(ns ui.calendar-events-test
|
|
(:require [clojure.test :refer [deftest is testing]]
|
|
[ui.calendar-events :as cal-events]))
|
|
|
|
(def sample-events
|
|
[{:title "Team standup" :date "2026-03-29" :time-start "09:00" :time-end "09:30" :color :accent}
|
|
{:title "Lunch with Alex" :date "2026-03-29" :time-start "12:00" :time-end "13:00" :color :success}
|
|
{:title "Deploy v2.0" :date "2026-03-29" :time-start "15:00" :color :danger}
|
|
{:title "Design review" :date "2026-03-30" :time-start "10:00" :color :warning}
|
|
{:title "All-day planning" :date "2026-03-31" :color nil :done? true}])
|
|
|
|
(deftest event-color-class-test
|
|
(testing "named colors"
|
|
(is (= "cal-event-accent" (cal-events/event-color-class :accent)))
|
|
(is (= "cal-event-danger" (cal-events/event-color-class :danger)))
|
|
(is (= "cal-event-success" (cal-events/event-color-class :success)))
|
|
(is (= "cal-event-warning" (cal-events/event-color-class :warning))))
|
|
(testing "nil or unknown returns default"
|
|
(is (= "cal-event-default" (cal-events/event-color-class nil)))
|
|
(is (= "cal-event-default" (cal-events/event-color-class :unknown)))))
|
|
|
|
(deftest events-for-date-test
|
|
(testing "returns events for a matching date"
|
|
(let [evts (cal-events/events-for-date sample-events "2026-03-29")]
|
|
(is (= 3 (count evts)))))
|
|
(testing "sorted by time-start"
|
|
(let [evts (cal-events/events-for-date sample-events "2026-03-29")]
|
|
(is (= "09:00" (:time-start (first evts))))
|
|
(is (= "15:00" (:time-start (last evts))))))
|
|
(testing "returns empty for non-matching date"
|
|
(is (empty? (cal-events/events-for-date sample-events "2026-04-01"))))
|
|
(testing "events without time sort last"
|
|
(let [evts (cal-events/events-for-date sample-events "2026-03-31")]
|
|
(is (= 1 (count evts)))
|
|
(is (= "All-day planning" (:title (first evts)))))))
|
|
|
|
(deftest format-time-test
|
|
(testing "formats HH:MM"
|
|
(is (= "09:00" (cal-events/format-time "09:00")))
|
|
(is (= "14:30" (cal-events/format-time "14:30"))))
|
|
(testing "nil returns nil"
|
|
(is (nil? (cal-events/format-time nil)))))
|
|
|
|
(deftest event-time-display-test
|
|
(testing "time range with start and end"
|
|
(is (= "09:00 \u2013 09:30"
|
|
(cal-events/event-time-display {:time-start "09:00" :time-end "09:30"}))))
|
|
(testing "start only"
|
|
(is (= "15:00"
|
|
(cal-events/event-time-display {:time-start "15:00"}))))
|
|
(testing "no time"
|
|
(is (nil? (cal-events/event-time-display {})))))
|
|
|
|
(deftest event-pill-class-list-test
|
|
(testing "default"
|
|
(is (= ["cal-event-pill" "cal-event-default"]
|
|
(cal-events/event-pill-class-list {}))))
|
|
(testing "with color"
|
|
(is (= ["cal-event-pill" "cal-event-accent"]
|
|
(cal-events/event-pill-class-list {:color :accent}))))
|
|
(testing "done event"
|
|
(is (= ["cal-event-pill" "cal-event-default" "cal-event-done"]
|
|
(cal-events/event-pill-class-list {:done? true}))))
|
|
(testing "color + done"
|
|
(is (= ["cal-event-pill" "cal-event-danger" "cal-event-done"]
|
|
(cal-events/event-pill-class-list {:color :danger :done? true})))))
|
|
|
|
(deftest ticker-day-class-list-test
|
|
(testing "default"
|
|
(is (= ["cal-ticker-day"]
|
|
(cal-events/ticker-day-class-list {}))))
|
|
(testing "today"
|
|
(is (= ["cal-ticker-day" "cal-ticker-today"]
|
|
(cal-events/ticker-day-class-list {:today? true}))))
|
|
(testing "selected"
|
|
(is (= ["cal-ticker-day" "cal-ticker-selected"]
|
|
(cal-events/ticker-day-class-list {:selected? true}))))
|
|
(testing "today + selected"
|
|
(is (= ["cal-ticker-day" "cal-ticker-today" "cal-ticker-selected"]
|
|
(cal-events/ticker-day-class-list {:today? true :selected? true})))))
|
|
|
|
(deftest agenda-event-class-list-test
|
|
(testing "default"
|
|
(is (= ["cal-agenda-event"]
|
|
(cal-events/agenda-event-class-list {}))))
|
|
(testing "done"
|
|
(is (= ["cal-agenda-event" "cal-agenda-event-done"]
|
|
(cal-events/agenda-event-class-list {:done? true})))))
|
|
|
|
(deftest event-pill-component-test
|
|
(testing "renders event pill (clj target)"
|
|
(let [evt {:title "Test" :color :accent :time-start "10:00"}
|
|
result (cal-events/event-pill {:event evt})]
|
|
(is (= :div (first result)))
|
|
(is (= "cal-event-pill cal-event-accent"
|
|
(get-in result [1 :class]))))))
|
|
|
|
(deftest agenda-event-row-component-test
|
|
(testing "renders agenda event row (clj target)"
|
|
(let [evt {:title "Meeting" :color :danger :time-start "14:00" :time-end "15:00"}
|
|
result (cal-events/agenda-event-row {:event evt})]
|
|
(is (= :div (first result)))
|
|
(is (= "cal-agenda-event"
|
|
(get-in result [1 :class]))))))
|
|
|
|
(deftest agenda-day-group-component-test
|
|
(testing "renders day group with events"
|
|
(let [result (cal-events/agenda-day-group {:date "2026-03-29"
|
|
:label "Today"
|
|
:events sample-events})]
|
|
(is (some? result))
|
|
(is (= :div (first result)))))
|
|
(testing "returns nil for date with no events"
|
|
(let [result (cal-events/agenda-day-group {:date "2026-04-01"
|
|
:label "Wed"
|
|
:events sample-events})]
|
|
(is (nil? result)))))
|
|
|
|
;; ── New component tests ─────────────────────────────────────────────
|
|
|
|
(deftest view-toggle-class-list-test
|
|
(testing "active"
|
|
(is (= ["cal-view-btn" "cal-view-btn-active"]
|
|
(cal-events/view-toggle-class-list {:active? true}))))
|
|
(testing "inactive"
|
|
(is (= ["cal-view-btn"]
|
|
(cal-events/view-toggle-class-list {:active? false})))))
|
|
|
|
(deftest source-toggle-class-list-test
|
|
(testing "active source"
|
|
(is (= ["cal-source-toggle" "cal-event-accent"]
|
|
(cal-events/source-toggle-class-list {:color :accent :active? true}))))
|
|
(testing "inactive source"
|
|
(is (= ["cal-source-toggle" "cal-event-danger" "cal-source-inactive"]
|
|
(cal-events/source-toggle-class-list {:color :danger :active? false})))))
|
|
|
|
(deftest view-toggle-component-test
|
|
(testing "renders view toggle (clj target)"
|
|
(let [result (cal-events/view-toggle {:view :month})]
|
|
(is (= :div (first result)))
|
|
(is (= "cal-view-toggle" (get-in result [1 :class]))))))
|
|
|
|
(deftest loading-indicator-test
|
|
(testing "renders loading indicator"
|
|
(let [result (cal-events/loading-indicator)]
|
|
(is (= :div (first result)))
|
|
(is (= "cal-loading" (get-in result [1 :class]))))))
|
|
|
|
(deftest error-banner-test
|
|
(testing "renders error with message"
|
|
(let [result (cal-events/error-banner {:message "Something broke"})]
|
|
(is (some? result))
|
|
(is (= :div (first result)))))
|
|
(testing "returns nil with no message"
|
|
(is (nil? (cal-events/error-banner {:message nil})))))
|
|
|
|
(deftest source-toggles-test
|
|
(testing "renders source toggles"
|
|
(let [result (cal-events/source-toggles
|
|
{:sources [{:name "Work" :color :accent :active? true}
|
|
{:name "Personal" :color :success :active? false}]})]
|
|
(is (some? result))
|
|
(is (= :div (first result)))))
|
|
(testing "returns nil with no sources"
|
|
(is (nil? (cal-events/source-toggles {:sources []})))))
|
|
|
|
(deftest event-detail-dialog-test
|
|
(testing "renders detail dialog with event"
|
|
(let [evt {:title "Meeting" :date "2026-03-29" :color :accent
|
|
:time-start "10:00" :tags ["work"] :source "cal:Work"}
|
|
result (cal-events/event-detail-dialog {:event evt})]
|
|
(is (some? result))
|
|
(is (= :div (first result)))))
|
|
(testing "returns nil with no event"
|
|
(is (nil? (cal-events/event-detail-dialog {:event nil})))))
|