Add yet another failing ebnf unit test

diff --git a/extra/peg/ebnf/ebnf-tests.factor b/extra/peg/ebnf/ebnf-tests.factor
index ed38d37421e56c3a4a6b55f915953022181426bd..f613002fdf2abd20ae98b544b2240038bc073324 100644 (file)
--- 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
\ No newline at end of file