[perl #64904] tests available

[kyleha]

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