giles
204e527f31
14 new suites covering: dashboard, lazy-load, dialog open/close, keyboard dispatch, validate (3 branches), validate-submit, dependent-select, form-reset, swap-modes-log (beforeend + OOB counter), json-echo, retry (503 pattern), animate, infinite-scroll. Total: 22 suites, 30 tests. Skipped: ex-slow (multi-body defhandler bug), ex-tabs/ex-bulk (missing HTML tag symbols), ex-row-editing/ex-inline-edit/ex-profile (need &key param binding in run-handler). Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
493 lines
15 KiB
Plaintext
493 lines
15 KiB
Plaintext
(define _mock-form (dict))
|
|
|
|
(define _mock-args (dict))
|
|
|
|
(define _mock-state (dict))
|
|
|
|
(define _mock-body "")
|
|
|
|
(define _mock-content-type "")
|
|
|
|
(define _mock-headers (dict))
|
|
|
|
(define _mock-now "12:00:00")
|
|
|
|
(define
|
|
reset-mocks!
|
|
(fn
|
|
()
|
|
(do
|
|
(set! _mock-form (dict))
|
|
(set! _mock-args (dict))
|
|
(set! _mock-state (dict))
|
|
(set! _mock-body "")
|
|
(set! _mock-content-type "")
|
|
(set! _mock-headers (dict)))))
|
|
|
|
(define
|
|
helper
|
|
(fn
|
|
(name a1 a2)
|
|
(cond
|
|
(= name "request-form")
|
|
(let
|
|
((key (or a1 "")) (default (if (nil? a2) "" a2)))
|
|
(let ((val (get _mock-form key))) (if (nil? val) default val)))
|
|
(= name "request-arg")
|
|
(let
|
|
((key (or a1 "")) (default a2))
|
|
(let ((val (get _mock-args key))) (if (nil? val) default val)))
|
|
(= name "state-get")
|
|
(let
|
|
((key (or a1 "")) (default a2))
|
|
(let ((val (get _mock-state key))) (if (nil? val) default val)))
|
|
(= name "state-set!")
|
|
(do (set! _mock-state (assoc _mock-state a1 a2)) nil)
|
|
(= name "now")
|
|
_mock-now
|
|
(= name "component-source")
|
|
(str "(defcomp " a1 " () (div))")
|
|
(= name "request-json")
|
|
_mock-body
|
|
(= name "request-content-type")
|
|
_mock-content-type
|
|
(= name "request-form-list")
|
|
(or (get _mock-form a1) (list))
|
|
(= name "request-args-all")
|
|
_mock-args
|
|
(= name "request-headers-all")
|
|
_mock-headers
|
|
(= name "request-form-all")
|
|
_mock-form
|
|
(= name "request-header")
|
|
(or (get _mock-headers a1) a2)
|
|
(= name "request-file-name")
|
|
(or (get _mock-form a1) "")
|
|
(= name "into")
|
|
(let
|
|
((coll (if (nil? a2) a1 a2)))
|
|
(if
|
|
(dict? coll)
|
|
(map (fn (key) (list key (get coll key))) (keys coll))
|
|
(if (nil? coll) (list) coll)))
|
|
:else nil)))
|
|
|
|
(define sleep (fn (ms) nil))
|
|
|
|
(define set-response-status (fn (code) nil))
|
|
|
|
(define json-encode (fn (val) (inspect val)))
|
|
|
|
(define random-int (fn (lo hi) lo))
|
|
|
|
(define
|
|
run-handler
|
|
(fn
|
|
(hdef)
|
|
(let
|
|
((result (aser (get hdef "body") (get hdef "closure"))))
|
|
(if
|
|
(sx-expr? result)
|
|
(sx-expr-source result)
|
|
(if (string? result) result (str result))))))
|
|
|
|
(defsuite
|
|
"swap:click-to-load"
|
|
(deftest
|
|
"innerHTML replaces target content"
|
|
(reset-mocks!)
|
|
(let
|
|
((page "(div :id \"click-result\" (p \"Click the button\"))")
|
|
(response (run-handler handler:ex-click)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "click-result" response)))
|
|
(do
|
|
(assert-true (contains? result "~examples/click-result"))
|
|
(assert-true (contains? result "12:00:00"))
|
|
(assert-false (contains? result "Click the button")))))))
|
|
|
|
(defsuite
|
|
"swap:form-submission"
|
|
(deftest
|
|
"innerHTML replaces with greeting"
|
|
(reset-mocks!)
|
|
(set! _mock-form {:name "Alice"})
|
|
(let
|
|
((page "(div :id \"form-result\" (p \"Submit the form\"))")
|
|
(response (run-handler handler:ex-form)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "form-result" response)))
|
|
(do
|
|
(assert-true (contains? result "Alice"))
|
|
(assert-false (contains? result "Submit the form")))))))
|
|
|
|
(defsuite
|
|
"swap:polling"
|
|
(deftest
|
|
"innerHTML shows counter after increment"
|
|
(reset-mocks!)
|
|
(let
|
|
((page "(div :id \"poll-result\" (p \"Waiting...\"))")
|
|
(response (run-handler handler:ex-poll)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "poll-result" response)))
|
|
(do
|
|
(assert-true (contains? result "1"))
|
|
(assert-false (contains? result "Waiting")))))))
|
|
|
|
(defsuite
|
|
"swap:oob-updates"
|
|
(deftest
|
|
"primary + OOB both update"
|
|
(reset-mocks!)
|
|
(let
|
|
((page "(div (div :id \"oob-box-a\" (p \"A old\")) (div :id \"oob-box-b\" (p \"B old\")))")
|
|
(response (run-handler handler:ex-oob)))
|
|
(let
|
|
((result (apply-response page response "innerHTML" "oob-box-a")))
|
|
(do
|
|
(assert-true (contains? result "Box A updated!"))
|
|
(assert-true (contains? result "Box B updated!"))
|
|
(assert-false (contains? result "A old"))
|
|
(assert-false (contains? result "B old")))))))
|
|
|
|
(defsuite
|
|
"swap:search"
|
|
(deftest
|
|
"innerHTML replaces search results"
|
|
(reset-mocks!)
|
|
(set! _mock-args {:q "Python"})
|
|
(let
|
|
((page "(div :id \"search-result\" (p \"Type to search\"))")
|
|
(response (run-handler handler:ex-search)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "search-result" response)))
|
|
(do
|
|
(assert-true (contains? result "Python"))
|
|
(assert-false (contains? result "Type to search")))))))
|
|
|
|
(defsuite
|
|
"swap:delete-row"
|
|
(deftest
|
|
"outerHTML removes element"
|
|
(let
|
|
((page "(table (tr :id \"row-1\" (td \"Item 1\")) (tr :id \"row-2\" (td \"Item 2\")))")
|
|
(response ""))
|
|
(let
|
|
((result (sx-swap page "outerHTML" "row-1" response)))
|
|
(do
|
|
(assert-false (contains? result "Item 1"))
|
|
(assert-true (contains? result "Item 2")))))))
|
|
|
|
(defsuite
|
|
"swap:beforeend"
|
|
(deftest
|
|
"appends new item to list"
|
|
(let
|
|
((page "(ul :id \"items\" (li \"first\"))") (response "(li \"second\")"))
|
|
(let
|
|
((result (sx-swap page "beforeend" "items" response)))
|
|
(do
|
|
(assert-true (contains? result "first"))
|
|
(assert-true (contains? result "second")))))))
|
|
|
|
(defsuite
|
|
"swap:infinite-scroll"
|
|
(deftest
|
|
"page 1 appends items to container"
|
|
(reset-mocks!)
|
|
(set! _mock-args {:page "1"})
|
|
(let
|
|
((page "(div :id \"scroll-items\" (div \"Item 0 — seed\"))")
|
|
(response (run-handler handler:ex-scroll)))
|
|
(let
|
|
((result (sx-swap page "beforeend" "scroll-items" response)))
|
|
(do
|
|
(assert-true (contains? result "Item 0"))
|
|
(assert-true (contains? result "Item 1"))
|
|
(assert-true (contains? result "page 1"))
|
|
(assert-true (contains? result "scroll-sentinel"))))))
|
|
(deftest
|
|
"page 2 appends more items"
|
|
(reset-mocks!)
|
|
(set! _mock-args {:page "2"})
|
|
(let
|
|
((page "(div :id \"scroll-items\" (div \"page 1 items\"))")
|
|
(response (run-handler handler:ex-scroll)))
|
|
(let
|
|
((result (sx-swap page "beforeend" "scroll-items" response)))
|
|
(do
|
|
(assert-true (contains? result "page 1 items"))
|
|
(assert-true (contains? result "Item 6"))
|
|
(assert-true (contains? result "page 2"))))))
|
|
(deftest
|
|
"last page has no sentinel"
|
|
(reset-mocks!)
|
|
(set! _mock-args {:page "6"})
|
|
(let
|
|
((page "(div :id \"scroll-items\")")
|
|
(response (run-handler handler:ex-scroll)))
|
|
(let
|
|
((result (sx-swap page "beforeend" "scroll-items" response)))
|
|
(do
|
|
(assert-true (contains? result "All items loaded"))
|
|
(assert-false (contains? result "scroll-sentinel")))))))
|
|
|
|
(defsuite
|
|
"swap:state-across-calls"
|
|
(deftest
|
|
"counter increments across handler calls"
|
|
(reset-mocks!)
|
|
(let
|
|
((r1 (run-handler handler:ex-poll)))
|
|
(let
|
|
((r2 (run-handler handler:ex-poll)))
|
|
(let
|
|
((page "(div :id \"counter\" (span \"0\"))")
|
|
(result (sx-swap page "innerHTML" "counter" r2)))
|
|
(assert-true (contains? result "2")))))))
|
|
|
|
(defsuite
|
|
"swap:dashboard"
|
|
(deftest
|
|
"innerHTML replaces with stats"
|
|
(reset-mocks!)
|
|
(let
|
|
((page "(div :id \"dash-content\" (p \"Loading...\"))")
|
|
(response (run-handler handler:ex-dashboard)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "dash-content" response)))
|
|
(do
|
|
(assert-true (contains? result "142"))
|
|
(assert-true (contains? result "Revenue"))
|
|
(assert-false (contains? result "Loading")))))))
|
|
|
|
(defsuite
|
|
"swap:lazy-load"
|
|
(deftest
|
|
"innerHTML replaces placeholder"
|
|
(reset-mocks!)
|
|
(let
|
|
((page "(div :id \"lazy-target\" (p \"Loading...\"))")
|
|
(response (run-handler handler:ex-lazy)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "lazy-target" response)))
|
|
(do
|
|
(assert-true (contains? result "~examples/lazy-result"))
|
|
(assert-true (contains? result "12:00:00"))
|
|
(assert-false (contains? result "Loading")))))))
|
|
|
|
(defsuite
|
|
"swap:dialog"
|
|
(deftest
|
|
"innerHTML opens modal"
|
|
(reset-mocks!)
|
|
(let
|
|
((page "(div :id \"dialog-target\")")
|
|
(response (run-handler handler:ex-dialog)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "dialog-target" response)))
|
|
(do
|
|
(assert-true (contains? result "~examples/dialog-modal"))
|
|
(assert-true (contains? result "Confirm Action"))))))
|
|
(deftest
|
|
"innerHTML closes modal"
|
|
(reset-mocks!)
|
|
(let
|
|
((page "(div :id \"dialog-target\" (~examples/dialog-modal))")
|
|
(response (run-handler handler:ex-dialog-close)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "dialog-target" response)))
|
|
(assert-false (contains? result "dialog-modal"))))))
|
|
|
|
(defsuite
|
|
"swap:keyboard"
|
|
(deftest
|
|
"dispatches action for known key"
|
|
(reset-mocks!)
|
|
(set! _mock-args {:key "s"})
|
|
(let
|
|
((page "(div :id \"kbd-result\" (p \"Press a key\"))")
|
|
(response (run-handler handler:ex-keyboard)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "kbd-result" response)))
|
|
(do
|
|
(assert-true (contains? result "Search panel activated"))
|
|
(assert-false (contains? result "Press a key"))))))
|
|
(deftest
|
|
"shows unknown for unmapped key"
|
|
(reset-mocks!)
|
|
(set! _mock-args {:key "z"})
|
|
(let
|
|
((page "(div :id \"kbd-result\")")
|
|
(response (run-handler handler:ex-keyboard)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "kbd-result" response)))
|
|
(assert-true (contains? result "Unknown key: z"))))))
|
|
|
|
(defsuite
|
|
"swap:validate"
|
|
(deftest
|
|
"empty email shows required"
|
|
(reset-mocks!)
|
|
(set! _mock-args {:email ""})
|
|
(let
|
|
((page "(div :id \"validate-result\")")
|
|
(response (run-handler handler:ex-validate)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "validate-result" response)))
|
|
(assert-true (contains? result "Email is required")))))
|
|
(deftest
|
|
"missing @ shows format error"
|
|
(reset-mocks!)
|
|
(set! _mock-args {:email "bad"})
|
|
(let
|
|
((page "(div :id \"validate-result\")")
|
|
(response (run-handler handler:ex-validate)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "validate-result" response)))
|
|
(assert-true (contains? result "Invalid email format")))))
|
|
(deftest
|
|
"valid email shows ok"
|
|
(reset-mocks!)
|
|
(set! _mock-args {:email "new@example.com"})
|
|
(let
|
|
((page "(div :id \"validate-result\")")
|
|
(response (run-handler handler:ex-validate)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "validate-result" response)))
|
|
(assert-true (contains? result "~examples/validation-ok"))))))
|
|
|
|
(defsuite
|
|
"swap:validate-submit"
|
|
(deftest
|
|
"valid email submits"
|
|
(reset-mocks!)
|
|
(set! _mock-form {:email "hi@example.com"})
|
|
(let
|
|
((page "(div :id \"validate-form-result\")")
|
|
(response (run-handler handler:ex-validate-submit)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "validate-form-result" response)))
|
|
(assert-true (contains? result "hi@example.com")))))
|
|
(deftest
|
|
"empty email rejects"
|
|
(reset-mocks!)
|
|
(set! _mock-form {:email ""})
|
|
(let
|
|
((page "(div :id \"validate-form-result\")")
|
|
(response (run-handler handler:ex-validate-submit)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "validate-form-result" response)))
|
|
(assert-true (contains? result "valid email"))))))
|
|
|
|
(defsuite
|
|
"swap:dependent-select"
|
|
(deftest
|
|
"returns options for category"
|
|
(reset-mocks!)
|
|
(set! _mock-args {:category "Languages"})
|
|
(let
|
|
((page "(select :id \"values-result\")")
|
|
(response (run-handler handler:ex-values)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "values-result" response)))
|
|
(do
|
|
(assert-true (contains? result "Python"))
|
|
(assert-true (contains? result "Rust"))))))
|
|
(deftest
|
|
"empty category returns no items"
|
|
(reset-mocks!)
|
|
(set! _mock-args {:category "Nonexistent"})
|
|
(let
|
|
((page "(select :id \"values-result\")")
|
|
(response (run-handler handler:ex-values)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "values-result" response)))
|
|
(assert-true (contains? result "No items"))))))
|
|
|
|
(defsuite
|
|
"swap:form-reset"
|
|
(deftest
|
|
"echoes submitted message"
|
|
(reset-mocks!)
|
|
(set! _mock-form {:message "Hello world"})
|
|
(let
|
|
((page "(div :id \"reset-result\")")
|
|
(response (run-handler handler:ex-reset-submit)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "reset-result" response)))
|
|
(assert-true (contains? result "Hello world"))))))
|
|
|
|
(defsuite
|
|
"swap:swap-modes-log"
|
|
(deftest
|
|
"beforeend appends log entry with OOB counter"
|
|
(reset-mocks!)
|
|
(set! _mock-args {:mode "beforeend"})
|
|
(let
|
|
((page "(div (div :id \"swap-log\") (span :id \"swap-counter\" \"Count: 0\"))")
|
|
(response (run-handler handler:ex-swap-log)))
|
|
(let
|
|
((result (apply-response page response "beforeend" "swap-log")))
|
|
(do
|
|
(assert-true (contains? result "beforeend"))
|
|
(assert-true (contains? result "Count: 1")))))))
|
|
|
|
(defsuite
|
|
"swap:json-echo"
|
|
(deftest
|
|
"echoes content type and body"
|
|
(reset-mocks!)
|
|
(set! _mock-body "{\"key\":\"val\"}")
|
|
(set! _mock-content-type "application/json")
|
|
(let
|
|
((page "(div :id \"json-result\")")
|
|
(response (run-handler handler:ex-json-echo)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "json-result" response)))
|
|
(do
|
|
(assert-true (contains? result "application/json"))
|
|
(assert-true (contains? result "~examples/json-result")))))))
|
|
|
|
(defsuite
|
|
"swap:retry"
|
|
(deftest
|
|
"first two calls return empty (503)"
|
|
(reset-mocks!)
|
|
(let
|
|
((r1 (run-handler handler:ex-flaky)))
|
|
(let
|
|
((r2 (run-handler handler:ex-flaky)))
|
|
(do (assert-equal r1 "") (assert-equal r2 "")))))
|
|
(deftest
|
|
"third call succeeds"
|
|
(reset-mocks!)
|
|
(let
|
|
((r1 (run-handler handler:ex-flaky)))
|
|
(let
|
|
((r2 (run-handler handler:ex-flaky)))
|
|
(let
|
|
((r3 (run-handler handler:ex-flaky)))
|
|
(let
|
|
((page "(div :id \"retry-result\" (p \"Retrying...\"))")
|
|
(result (sx-swap page "innerHTML" "retry-result" r3)))
|
|
(do
|
|
(assert-true (contains? result "~examples/retry-result"))
|
|
(assert-true (contains? result "Success"))
|
|
(assert-false (contains? result "Retrying")))))))))
|
|
|
|
(defsuite
|
|
"swap:animate"
|
|
(deftest
|
|
"returns color and timestamp"
|
|
(reset-mocks!)
|
|
(let
|
|
((page "(div :id \"anim-result\")")
|
|
(response (run-handler handler:ex-animate)))
|
|
(let
|
|
((result (sx-swap page "innerHTML" "anim-result" response)))
|
|
(do
|
|
(assert-true (contains? result "~anim-result"))
|
|
(assert-true (contains? result "12:00:00")))))))
|