Add yet another failing ebnf unit test

2008-06-20 11:49:08 +12:00 · 2008-06-20 11:49:08 +12:00 · 001e866b13
parent 9b7e2bacc9
commit 001e866b13
1 changed files with 4 additions and 0 deletions
--- a/extra/peg/ebnf/ebnf-tests.factor
+++ b/extra/peg/ebnf/ebnf-tests.factor
@ -442,3 +442,7 @@ foo=<foreign any-char> 'd'
 { V{ CHAR: a "d" } } [
  "ad" parser4 ast>>
 ] unit-test
+
+{ V{ "a" "\n" } } [
+  "a\n" [EBNF foo='a' '\n'  => [[ drop '\n' ]] EBNF] call ast>>
+] unit-test