From 67cc2f2d4e8454c6d6366441808a643668ca712f Mon Sep 17 00:00:00 2001
From: Jakub Jankiewicz <jcubic@onet.pl>
Date: Sat, 25 Jan 2025 18:55:48 +0100
Subject: [PATCH] add unit tests #433 #432

---
 tests/parser.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/tests/parser.scm b/tests/parser.scm
index e76976f9..3448da40 100644
--- 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))))