feat: using $paste in Testing.ark to stop recursive macro evaluation

Author: SuperFola

Testing.ark

@@ -139,8 +139,8 @@
 # =end
 # @author https://github.com/SuperFola
 ($ test:expect (_cond ..._desc) {
-    (if (!= true _cond)
-        (_report_error true _cond "true" ($repr _cond) _desc)
+    (if (!= true ($paste _cond))
+        (_report_error true ($paste _cond) "true" ($repr _cond) _desc)
         (_report_success))})
 
 # @brief Compare two values that should be equal and generate a test case
@@ -154,9 +154,9 @@
 # =end
 # @author https://github.com/SuperFola
 ($ test:eq (_expected _expr ..._desc) {
-    (if (= _expected _expr)
+    (if (= ($paste _expected) ($paste _expr))
         (_report_success)
-        (_report_error _expected _expr ($repr _expected) ($repr _expr) _desc))})
+        (_report_error ($paste _expected) ($paste _expr) ($repr _expected) ($repr _expr) _desc))})
 
 # @brief Compare two values that should **not** be equal and generate a test case
 # @param _unexpected the value we don't want
@@ -168,9 +168,9 @@
 # =end
 # @author https://github.com/SuperFola
 ($ test:neq (_unexpected _value ..._desc) {
-    (if (!= _unexpected _value)
+    (if (!= ($paste _unexpected) ($paste _value))
         (_report_success)
-        (_report_error _unexpected _value ($repr _unexpected) ($repr _value) _desc))})
+        (_report_error ($paste _unexpected) ($paste _value) ($repr _unexpected) ($repr _value) _desc))})
 
 # @brief Generate the code for a test suite
 # @details Create two variables: _name-output (a list: [successes, failures]) and _name-status (boolean, true on success)
@@ -184,5 +184,5 @@
 # =end
 # @author https://github.com/SuperFola
 ($ test:suite (_name _body) {
-    (let (symcat _name "-output") (_runner ($repr _name) (fun () {_body})))
+    (let (symcat _name "-output") (_runner ($repr _name) (fun () ($paste {_body}))))
     (let (symcat _name "-status") (= 0 (@ (symcat _name "-output") 1)))})