Unit test for left recursive grammar

2008-03-29 02:47:03 +13:00 · 2008-03-29 02:47:03 +13:00 · 261539a86a
parent dd979c8b3b
commit 261539a86a
1 changed files with 2 additions and 2 deletions
--- a/extra/peg/peg-tests.factor
+++ b/extra/peg/peg-tests.factor
@ -173,8 +173,8 @@ IN: peg.tests
  #! failure of that parser.
  [ expr ] delay "+" token "1" token 3seq "1" token 2choice ;

-{ "1" } [
-  "1+1" expr parse parse-result-ast   
+{ V{ V{ "1" "+" "1" } "+" "1" } } [
+  "1+1+1" expr parse parse-result-ast   
 ] unit-test

 { t } [