This is an automatically generated mail to inform you that tests are now
available in t/spec/S05-grammar/ws.t
commit 3928c13eeaa2e93f0f98a41c0d1660ca909c7e01
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Wed Jul 29 01:19:12 2009 +0000
[t/spec] Test for RT #64904
git-svn-id: http://svn.pugscode.org/p...@27790
c213334d-75ef-0310-aa23-eaa082d1ae64
diff --git a/t/spec/S05-grammar/ws.t b/t/spec/S05-grammar/ws.t
index a58863a..110940c 100644
--- a/t/spec/S05-grammar/ws.t
+++ b/t/spec/S05-grammar/ws.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan 8;
+plan 12;
# L<S05/Modifiers/"causes whitespace sequences to be considered">
# L<S05/Modifiers/"any grammar is free to override the rule">
@@ -22,5 +22,13 @@ ok $<T1::r2><ws> ~~ undef, 'explicit <.ws> did not capture';
ok 'axb' ~~ m/^<T1::r3>$/, 'explicit <ws> is overridden';
is $<T1::r3><ws>, 'x', 'explicit <ws> did capture';
+# RT #64094
+{
+ lives_ok { '' ~~ / <ws> / }, 'match <ws> against empty string';
+ lives_ok { '' ~~ / <ws>? / }, 'match <ws>? against empty string';
+ #?rakudo 2 skip 'infinite loop: RT #64094'
+ lives_ok { '' ~~ / <ws>+ / }, 'match <ws>+ against empty string';
+ lives_ok { '' ~~ / <ws>* / }, 'match <ws>* against empty string';
+}
# vim: ft=perl6
