feat(tests): adding more macros tests

ArkScript-lang · Dec 23, 2024 · 7c9e8a6 · 7c9e8a6
1 parent b5b5858
commit 7c9e8a6
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 2 deletions.
diff --git a/lib/std b/lib/std
diff --git a/tests/unittests/resources/LangSuite/macro-tests.ark b/tests/unittests/resources/LangSuite/macro-tests.ark
@@ -31,17 +31,28 @@
         (test:eq (c 4 10) 40)
 
         ($ d (a b) (/ a b))
-        (test:eq (d 10 2) 5) })
+        (test:eq (d 10 2) 5)
+
+        ($ e (+ 1 2 3))
+        ($ f (* 2 2 3))
+        ($ g (- 1 2 3))
+        ($ h (/ 1 2 3))
+        (test:eq e 6)
+        (test:eq f 12)
+        (test:eq g -4)
+        (test:eq h (/ 1 6)) })
 
     (test:case "node manipulation" {
         ($ node_tail () (tail (begin 1 2 3)))
         ($ length () (len (fun () 5)))
         ($ not_empty_node () (empty? (fun () ())))
         ($ empty_node () (empty? ()))
+        ($ empty_node_bis (empty? ()))
 
         (test:eq (length) 3)
         (test:eq (not_empty_node) false)
         (test:eq (empty_node) true)
+        (test:eq empty_node_bis true)
         # because it removes the "begin"
         (test:eq (node_tail) [1 2 3]) })