mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2026-09-17 14:51:22 +00:00
Code Issues 1 Releases Wiki Activity

Add quoted literal support in the match macro.

Browse Source
This commit is contained in:
Calvin Rose
2021-11-08 15:33:11 -06:00
parent 7205ee5e0a
commit 425a0fcf07
3 changed files with 16 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/suite0008.janet
+4
View File
@@ -348,4 +348,8 @@ neldb\0\0\0\xD8\x05printG\x01\0\xDE\xDE\xDE'\x03\0marshal_tes/\x02
(assert (deep= @[111] (peg/match '(number :d+) "111")) "simple number capture 1")
(assert (deep= @[255] (peg/match '(number :w+) "0xff")) "simple number capture 2")
# quoted match test
(assert (= :yes (match 'john 'john :yes _ :nope)) "quoted literal match 1")
(assert (= :nope (match 'john ''john :yes _ :nope)) "quoted literal match 2")
(end-suite)