diff options
Diffstat (limited to 'testlabel.lua')
-rw-r--r-- | testlabel.lua | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/testlabel.lua b/testlabel.lua index cbe623c..8cfb671 100644 --- a/testlabel.lua +++ b/testlabel.lua | |||
@@ -1,4 +1,4 @@ | |||
1 | local m = require 'lpeglabel' | 1 | local m = require 'lpeglabelrec' |
2 | 2 | ||
3 | local p, r, l, s, serror | 3 | local p, r, l, s, serror |
4 | 4 | ||
@@ -557,6 +557,7 @@ print("+") | |||
557 | p = m.Rec("a", "b") | 557 | p = m.Rec("a", "b") |
558 | assert(p:match("a") == 2) | 558 | assert(p:match("a") == 2) |
559 | --assert(p:match("b") == 2) | 559 | --assert(p:match("b") == 2) |
560 | checkeqlab({nil, 0, "b"}, p:match("b")) | ||
560 | checkeqlab({nil, 0, "c"}, p:match("c")) | 561 | checkeqlab({nil, 0, "c"}, p:match("c")) |
561 | 562 | ||
562 | p = m.Rec("a", "b", 3) | 563 | p = m.Rec("a", "b", 3) |
@@ -607,7 +608,7 @@ C -> c+ | |||
607 | ]] | 608 | ]] |
608 | g = m.P{ | 609 | g = m.P{ |
609 | "S", | 610 | "S", |
610 | S = m.Rec(m.V"A", (-m.P"c" * m.P(1))^0) * m.V"C", | 611 | S = m.Rec(m.V"A", (-m.P"c" * m.P(1))^0, 0) * m.V"C", --explicitly put 0 in Rec |
611 | A = m.P"a"^0 * m.P"b" + m.T(0), | 612 | A = m.P"a"^0 * m.P"b" + m.T(0), |
612 | C = m.P"c"^1, | 613 | C = m.P"c"^1, |
613 | } | 614 | } |