feat(macros): adding tests for unless and until macros

Author: SuperFola

Macros.ark

@@ -58,8 +58,8 @@
   ($ all_args (__replace_placeholders [arg_bloc] ...args))
   (fun (arg_bloc) (call all_args)) })
 
-($ unless (cond body)
-  (if (not cond) body))
+($ unless (cond ...body)
+  (if (not cond) ...body))
 
 ($ until (cond body)
   (while (not cond) body))

tests/macros-tests.ark

@@ -16,11 +16,34 @@
 (let test_func3 (partial2 test_func 1 _ 3))
 
 (test:suite macros {
-    (test:eq (-> "f0" f1) "f0-f1")
-    (test:eq (-> "f0" f1 f2 f3) "f0-f1-f2-f3")
-    (test:eq (-> "f0" f1 (apply _ f2) (apply _ f3)) "f0-f1-f2-f3")
-
-    (test:eq (test_func1 2 3) 6)
-    (test:eq ($argcount test_func1) 2)
-    (test:eq ($argcount test_func2) 1)
-    (test:eq (test_func3 2) 6) })
+    (test:case "->" {
+        (test:eq (-> "f0" f1) "f0-f1")
+        (test:eq (-> "f0" f1 f2 f3) "f0-f1-f2-f3")
+        (test:eq (-> "f0" f1 (apply _ f2) (apply _ f3)) "f0-f1-f2-f3") })
+
+    (test:case "partial & partial2" {
+        (test:eq (test_func1 2 3) 6)
+        (test:eq ($argcount test_func1) 2)
+        (test:eq ($argcount test_func2) 1)
+        (test:eq (test_func3 2) 6) })
+
+    (test:case "unless" {
+        (unless false
+          (test:expect true "unless true worked")
+          (test:expect false "this shouldn't trigger"))
+
+        (unless (= "abracadabra" (f1 "f0"))
+          (test:expect true)
+          (test:expect false "this shouldn't trigger"))
+
+        (unless true
+          (test:expect true "unless with one argument")) })
+
+    (test:case "until" {
+      (mut i 0)
+      (until (= i 10) {
+        (set i (+ 1 i)) })
+      (test:eq i 10)
+
+      (until true
+        (test:expect false "this shouldn't trigger")) })})