Rule 'x' defined more than once unit test

2008-06-20 11:53:07 +12:00 · 2008-06-20 11:53:07 +12:00 · 91768f171c
parent 001e866b13
commit 91768f171c
1 changed files with 4 additions and 0 deletions
--- a/extra/peg/ebnf/ebnf-tests.factor
+++ b/extra/peg/ebnf/ebnf-tests.factor
@ -445,4 +445,8 @@ foo=<foreign any-char> 'd'

 { V{ "a" "\n" } } [
  "a\n" [EBNF foo='a' '\n'  => [[ drop '\n' ]] EBNF] call ast>>
+] unit-test
+
+{ t } [
+  [EBNF foo='a' foo='b' EBNF] drop t
 ] unit-test