init
This commit is contained in:
@@ -0,0 +1,173 @@
|
||||
(ns tui.core-test
|
||||
"Integration tests for the TUI engine.
|
||||
Tests the update loop, command handling, and full render pipeline."
|
||||
(:require [clojure.test :refer [deftest testing is]]
|
||||
[clojure.core.async :as async :refer [chan >!! <!! timeout alt!! close!]]
|
||||
[tui.core :as tui]
|
||||
[tui.render :as render]))
|
||||
|
||||
;; === Command Tests ===
|
||||
|
||||
(deftest quit-command-test
|
||||
(testing "quit command is correct vector"
|
||||
(is (= [:quit] tui/quit))))
|
||||
|
||||
(deftest tick-command-test
|
||||
(testing "tick creates correct command"
|
||||
(is (= [:tick 100] (tui/tick 100)))
|
||||
(is (= [:tick 1000] (tui/tick 1000)))))
|
||||
|
||||
(deftest batch-command-test
|
||||
(testing "batch combines commands"
|
||||
(is (= [:batch [:tick 100] [:quit]] (tui/batch (tui/tick 100) tui/quit))))
|
||||
|
||||
(testing "batch filters nil commands"
|
||||
(is (= [:batch [:tick 100]] (tui/batch nil (tui/tick 100) nil)))))
|
||||
|
||||
(deftest sequentially-command-test
|
||||
(testing "sequentially creates seq command"
|
||||
(is (= [:seq [:tick 100] [:quit]] (tui/sequentially (tui/tick 100) tui/quit))))
|
||||
|
||||
(testing "sequentially filters nil commands"
|
||||
(is (= [:seq [:tick 100]] (tui/sequentially nil (tui/tick 100) nil)))))
|
||||
|
||||
(deftest send-msg-command-test
|
||||
(testing "send-msg creates function that returns message"
|
||||
(let [cmd (tui/send-msg {:type :custom :data 42})]
|
||||
(is (fn? cmd))
|
||||
(is (= {:type :custom :data 42} (cmd))))))
|
||||
|
||||
;; === Key Matching Tests ===
|
||||
|
||||
(deftest key=-test
|
||||
(testing "key= delegates to input/key-match?"
|
||||
(is (tui/key= [:key {:char \q}] "q"))
|
||||
(is (tui/key= [:key :enter] :enter))
|
||||
(is (tui/key= [:key {:ctrl true :char \c}] [:ctrl \c]))
|
||||
(is (not (tui/key= [:key {:char \a}] "b")))))
|
||||
|
||||
(deftest key-str-test
|
||||
(testing "key-str converts key to string"
|
||||
(is (= "q" (tui/key-str [:key {:char \q}])))
|
||||
(is (= "enter" (tui/key-str [:key :enter])))))
|
||||
|
||||
;; === Full Pipeline Tests ===
|
||||
|
||||
(deftest render-pipeline-test
|
||||
(testing "model -> view -> render produces valid output"
|
||||
(let [model {:count 5}
|
||||
view (fn [{:keys [count]}]
|
||||
[:col
|
||||
[:text {:bold true} "Counter"]
|
||||
[:text (str "Count: " count)]])
|
||||
rendered (render/render (view model))]
|
||||
(is (string? rendered))
|
||||
(is (clojure.string/includes? rendered "Counter"))
|
||||
(is (clojure.string/includes? rendered "Count: 5")))))
|
||||
|
||||
(deftest update-function-contract-test
|
||||
(testing "update function returns [model cmd] tuple"
|
||||
(let [update-fn (fn [model msg]
|
||||
(cond
|
||||
(tui/key= msg "q") [model tui/quit]
|
||||
(tui/key= msg :up) [(update model :n inc) nil]
|
||||
:else [model nil]))
|
||||
model {:n 0}]
|
||||
|
||||
;; Test quit returns command
|
||||
(let [[new-model cmd] (update-fn model [:key {:char \q}])]
|
||||
(is (= model new-model))
|
||||
(is (= [:quit] cmd)))
|
||||
|
||||
;; Test up returns updated model
|
||||
(let [[new-model cmd] (update-fn model [:key :up])]
|
||||
(is (= {:n 1} new-model))
|
||||
(is (nil? cmd)))
|
||||
|
||||
;; Test unknown key returns model unchanged
|
||||
(let [[new-model cmd] (update-fn model [:key {:char \x}])]
|
||||
(is (= model new-model))
|
||||
(is (nil? cmd))))))
|
||||
|
||||
;; === Command Execution Tests ===
|
||||
;; These test the internal command execution logic
|
||||
|
||||
(deftest execute-quit-command-test
|
||||
(testing "quit command puts :quit on channel"
|
||||
(let [msg-chan (chan 1)]
|
||||
(#'tui/execute-cmd! [:quit] msg-chan)
|
||||
(let [result (alt!!
|
||||
msg-chan ([v] v)
|
||||
(timeout 100) :timeout)]
|
||||
(is (= [:quit] result)))
|
||||
(close! msg-chan))))
|
||||
|
||||
(deftest execute-tick-command-test
|
||||
(testing "tick command sends :tick message after delay"
|
||||
(let [msg-chan (chan 1)]
|
||||
(#'tui/execute-cmd! [:tick 50] msg-chan)
|
||||
;; Should not receive immediately
|
||||
(let [immediate (alt!!
|
||||
msg-chan ([v] v)
|
||||
(timeout 10) :timeout)]
|
||||
(is (= :timeout immediate)))
|
||||
;; Should receive after delay
|
||||
(let [delayed (alt!!
|
||||
msg-chan ([v] v)
|
||||
(timeout 200) :timeout)]
|
||||
(is (vector? delayed))
|
||||
(is (= :tick (first delayed))))
|
||||
(close! msg-chan))))
|
||||
|
||||
(deftest execute-function-command-test
|
||||
(testing "function command executes and sends result"
|
||||
(let [msg-chan (chan 1)
|
||||
cmd (fn [] {:custom :message})]
|
||||
(#'tui/execute-cmd! cmd msg-chan)
|
||||
(let [result (alt!!
|
||||
msg-chan ([v] v)
|
||||
(timeout 100) :timeout)]
|
||||
(is (= {:custom :message} result)))
|
||||
(close! msg-chan))))
|
||||
|
||||
(deftest execute-batch-command-test
|
||||
(testing "batch executes multiple commands"
|
||||
(let [msg-chan (chan 10)]
|
||||
(#'tui/execute-cmd! [:batch
|
||||
(fn [] :msg1)
|
||||
(fn [] :msg2)]
|
||||
msg-chan)
|
||||
;; Give time for async execution
|
||||
(Thread/sleep 50)
|
||||
(let [results (loop [msgs []]
|
||||
(let [msg (alt!!
|
||||
msg-chan ([v] v)
|
||||
(timeout 10) nil)]
|
||||
(if msg
|
||||
(recur (conj msgs msg))
|
||||
msgs)))]
|
||||
(is (= #{:msg1 :msg2} (set results))))
|
||||
(close! msg-chan))))
|
||||
|
||||
(deftest execute-nil-command-test
|
||||
(testing "nil command does nothing"
|
||||
(let [msg-chan (chan 1)]
|
||||
(#'tui/execute-cmd! nil msg-chan)
|
||||
(let [result (alt!!
|
||||
msg-chan ([v] v)
|
||||
(timeout 50) :timeout)]
|
||||
(is (= :timeout result)))
|
||||
(close! msg-chan))))
|
||||
|
||||
;; === Defapp Macro Tests ===
|
||||
|
||||
(deftest defapp-macro-test
|
||||
(testing "defapp creates app map"
|
||||
(tui/defapp test-app
|
||||
:init {:count 0}
|
||||
:update (fn [m msg] [m nil])
|
||||
:view (fn [m] [:text "test"]))
|
||||
(is (map? test-app))
|
||||
(is (= {:count 0} (:init test-app)))
|
||||
(is (fn? (:update test-app)))
|
||||
(is (fn? (:view test-app)))))
|
||||
Reference in New Issue
Block a user