add a regression test from David Crawshaw

darcs-hash:20090111051608-5007d-f19e4412521ee6a27093cf7932f2d7f4e6a03f2a.gz

diff --git a/tests/regression.tc b/tests/regression.tc
index c72c01d..ce66c93 100644 (file)
--- a/tests/regression.tc
+++ b/tests/regression.tc
@@ -463,3 +463,9 @@ testcase "epsilon as a negative conjunct" {
     X:: = "a" ("b"* &~ ())
 }
 
+testcase "long input (reported by David Crawshaw)" {
+    input "0123456789";
+    s:: = X*
+    X:: = "a" ("b"* &~ ())
+}
+