Add test for "match beyond end of target" bug.

perl6 · Jun 2, 2010 · 55d87b8 · 55d87b8
1 parent 8483d1f
commit 55d87b8
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/t/nqp/50-regex.t b/t/nqp/50-regex.t
@@ -0,0 +1,12 @@
+#! nqp
+
+plan(3);
+
+ok(Regex::Cursor.parse('a', :rule(/<alpha>/), :p(0)),
+        'Can parse "a" with <alpha> and :p(0)');
+
+ok(!Regex::Cursor.parse('a', :rule(/<alpha>/), :p(1)),
+        'Can parse "a" with <alpha> :p(off-range)');
+
+ok(!Regex::Cursor.parse('a', :rule(/<alpha>/), :p(5)),
+        'Can parse "a" with <alpha> :p(far-off-range)');