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

Fix #861 - parser/produce caused state to be invalid for parser/state.

Browse Source 
parser/produce was leaving a counter in the root state undecremented.
This commit is contained in:
Calvin Rose
2021-11-04 19:38:37 -05:00
parent 9cc4e48124
commit 39c6be7cb7
2 changed files with 19 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
test/suite0010.janet
View File

@@ -199,4 +199,18 @@
(def stream-env (dofile r))
(assert (= (stream-env :x) 10) "dofile stream 1")
# Issue #861 - should be valgrind clean
(def step1 "(a b c d)\n")
(def step2 "(a b)\n")
(def p1 (parser/new))
(pp (parser/state p1))
(parser/consume p1 step1)
(loop [v :iterate (parser/produce p1)])
(parser/state p1)
(def p2 (parser/clone p1))
(parser/state p2)
(parser/consume p2 step2)
(loop [v :iterate (parser/produce p2)])
(parser/state p2)
(end-suite)