mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-18 17:27:40 +00:00
Code Issues 1 Releases Wiki Activity

Merge pull request #1028 from autumnull/master

Browse Source 
Made peg 'not' and 'if-not' drop their captures on success
This commit is contained in:
Calvin Rose
2022-09-13 15:20:10 -05:00
committed by GitHub
parent 356b39c6f5 9341081a4d
commit dfc0aefd87
2 changed files with 47 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
test/suite0014.janet Normal file
View File

@@ -0,0 +1,20 @@
(import ./helper :prefix "" :exit true)
(start-suite 14)
(assert (deep=
(peg/match '(not (* (constant 7) "a")) "hello")
@[]) "peg not")
(assert (deep=
(peg/match '(if-not (* (constant 7) "a") "hello") "hello")
@[]) "peg if-not")
(assert (deep=
(peg/match '(if-not (drop (* (constant 7) "a")) "hello") "hello")
@[]) "peg if-not drop")
(assert (deep=
(peg/match '(if (not (* (constant 7) "a")) "hello") "hello")
@[]) "peg if not")
(end-suite)