release 0.1.0

modules/core/test.owa

@@ -0,0 +1,16 @@
+(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 $%&))
+  ))
+)