giles
0515295317
- Parser: `--` line comments, `|` op, `result` → `the-result`, query-scoped `<sel> in <expr>`, `is a/an <type>` predicate, multi-`as` chaining with `|`, `match`/`precede` keyword aliases, `[attr]` add/toggle, between attr forms - Runtime: per-element listener registry + hs-deactivate!, attr toggle variants, set-inner-html boots subtree, hs-append polymorphic on string/list/element, default? / array-set! / query-all-in / list-set via take+drop, hs-script idempotence guard - Integration: skip reserved (me/it/event/you/yourself) when collecting vars - Tokenizer: emit `--` comments and `|` op - Test framework + conformance runner updates; new tests/hs-run-filtered.js (single-process Node runner using OCaml VM step-limit to bound infinite loops); generate-sx-conformance-dev.py improvements - mcp_tree.ml + run_tests.ml: harness extensions - .gitignore: top-level test-results/ (Playwright artifacts) Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>
94 lines
3.1 KiB
Plaintext
94 lines
3.1 KiB
Plaintext
;; ==========================================================================
|
|
;; test-framework.sx — Reusable test macros and assertion helpers
|
|
;;
|
|
;; Loaded first by all test runners. Provides deftest, defsuite, and
|
|
;; assertion helpers. Requires 5 platform functions from the host:
|
|
;;
|
|
;; try-call (thunk) -> {:ok true} | {:ok false :error "msg"}
|
|
;; report-pass (name) -> platform-specific pass output
|
|
;; report-fail (name error) -> platform-specific fail output
|
|
;; push-suite (name) -> push suite name onto context stack
|
|
;; pop-suite () -> pop suite name from context stack
|
|
;;
|
|
;; Any host that provides these 5 functions can run any test spec.
|
|
;; ==========================================================================
|
|
|
|
|
|
;; --------------------------------------------------------------------------
|
|
;; 1. Test framework macros
|
|
;; --------------------------------------------------------------------------
|
|
|
|
(defmacro
|
|
deftest
|
|
(name &rest body)
|
|
(quasiquote
|
|
(when
|
|
(test-allowed? (unquote name))
|
|
(let
|
|
((result (try-call (fn () (splice-unquote body)))))
|
|
(if
|
|
(get result "ok")
|
|
(report-pass (unquote name))
|
|
(report-fail (unquote name) (get result "error")))))))
|
|
|
|
(defmacro defsuite (name &rest items)
|
|
`(do (push-suite ,name)
|
|
,@items
|
|
(pop-suite)))
|
|
|
|
|
|
;; --------------------------------------------------------------------------
|
|
;; 2. Assertion helpers — defined in SX, available in test bodies
|
|
;; --------------------------------------------------------------------------
|
|
|
|
(define assert-equal
|
|
(fn (expected actual)
|
|
(assert (equal? expected actual)
|
|
(str "Expected " (str expected) " but got " (str actual)))))
|
|
|
|
(define assert-not-equal
|
|
(fn (a b)
|
|
(assert (not (equal? a b))
|
|
(str "Expected values to differ but both are " (str a)))))
|
|
|
|
(define assert-true
|
|
(fn (val)
|
|
(assert val (str "Expected truthy but got " (str val)))))
|
|
|
|
(define assert-false
|
|
(fn (val)
|
|
(assert (not val) (str "Expected falsy but got " (str val)))))
|
|
|
|
(define assert-nil
|
|
(fn (val)
|
|
(assert (nil? val) (str "Expected nil but got " (str val)))))
|
|
|
|
(define assert-type
|
|
(fn ((expected-type :as string) val)
|
|
(let ((actual-type
|
|
(if (nil? val) "nil"
|
|
(if (boolean? val) "boolean"
|
|
(if (number? val) "number"
|
|
(if (string? val) "string"
|
|
(if (list? val) "list"
|
|
(if (dict? val) "dict"
|
|
"unknown"))))))))
|
|
(assert (= expected-type actual-type)
|
|
(str "Expected type " expected-type " but got " actual-type)))))
|
|
|
|
(define assert-length
|
|
(fn ((expected-len :as number) (col :as list))
|
|
(assert (= (len col) expected-len)
|
|
(str "Expected length " expected-len " but got " (len col)))))
|
|
|
|
(define assert-contains
|
|
(fn (item (col :as list))
|
|
(assert (some (fn (x) (equal? x item)) col)
|
|
(str "Expected collection to contain " (str item)))))
|
|
|
|
(define assert-throws
|
|
(fn ((thunk :as lambda))
|
|
(let ((result (try-call thunk)))
|
|
(assert (not (get result "ok"))
|
|
"Expected an error to be thrown but none was"))))
|