add unit tests #433 #432

jcubic · Jan 25, 2025 · 67cc2f2 · 67cc2f2
1 parent 6b332b6
commit 67cc2f2
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/parser.scm b/tests/parser.scm
@@ -82,6 +82,12 @@
 
 (unset-special! "#:num")
 
+(set-special! "*|" 'multply-inline)
+
+(define (multply-inline x) `(* ,@x))
+
+(define parser/t11 '*|(1 2 3)) ;; |
+
 (test "parser: #!fold-case"
       (lambda (t)
         (define foo 10)
@@ -333,3 +339,7 @@
                            (parser.prepare code)
                            (lips.parse parser))
                          (catch (e) e)))))
+
+(test "parser: regex characters in syntax extension"
+      (lambda (t)
+        (t.is parser/t11 '(* 1 2 3))))