[perl #71846] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S02-builtin_data_types/whatever.t

commit 73a0a84b0f0a666e688af9ea82df6a73d878f88f
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Thu Jul 22 06:37:52 2010 +0000

    [t/spec] test for RT #71846, and refudge a bit
    
    git-svn-id: http://svn.pugscode.org/p...@31785 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S02-builtin_data_types/whatever.t 
b/t/spec/S02-builtin_data_types/whatever.t
index f29a2d4..cd2de59 100644
--- a/t/spec/S02-builtin_data_types/whatever.t
+++ b/t/spec/S02-builtin_data_types/whatever.t
@@ -127,10 +127,10 @@ is (0,0,0,0,0,0) >>+>> ((1,2) xx *), <1 2 1 2 1 2>, 'xx * 
works';
 # L<S02/Built-In Data Types/This rewrite happens after variables are looked up
 # in their lexical scope>
 
-#?rakudo skip '* and lexicals'
 {
     my $x = 3;
     {
+        #?rakudo todo '* and lexicals'
         is (* + (my $x = 5)).(8), 40,
             'can use a declaration in Whatever-curried expression';
         is $x, 5, 'and it did not get promoted into its own scope';
@@ -177,6 +177,12 @@ is (0,0,0,0,0,0) >>+>> ((1,2) xx *), <1 2 1 2 1 2>, 'xx * 
works';
     is $x('dog'), 'GOD', 'we call both methods';
 }
 
+# chains of operators, RT #71846
+{
+    is (0, 1, 2, 3).grep(!(* % 2)).join('|'),
+        '0|2', 'prefix:<!> Whatever-curries correctly';
+}
+
 # RT #69362
 {
     my $x = *.uc;