16 lines
No EOL
465 B
Text
16 lines
No EOL
465 B
Text
(namespace test
|
|
(def target (lookup __test__ null))
|
|
|
|
(defmacro if-target [then]
|
|
(if-eq (test.target null) :null (seq $%%)))
|
|
|
|
(defmacro case [name] (test.if-target
|
|
(builtins.errors.try
|
|
(scope $%& (trace "Running test \"" $name "\": OK ✅"))
|
|
#(trace "Running test \"" $name "\": FAILED ❌ (" %2 ": " %1 ")"))))
|
|
|
|
(defmacro space [name] (if
|
|
(bool.or (eq? test.target $name) (eq? test.target "."))
|
|
(namespace $name (seq $%&))
|
|
))
|
|
) |