[perl #67450] 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 f393f9c5b8f153e317cc29d4f072fce98dd053a0
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Tue Aug 11 21:44:34 2009 +0000

    [t/spec] test for RT #67450 - +* as array index
    
    git-svn-id: http://svn.pugscode.org/p...@27963 
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 3e1766c..ec46f9c 100644
--- a/t/spec/S02-builtin_data_types/whatever.t
+++ b/t/spec/S02-builtin_data_types/whatever.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 16;
+plan 17;
 
 # L<S02/Built-In Data Types/"The * character as a standalone term captures the 
notion of">
 # L<S02/Native types/"If any native type is explicitly initialized to">
@@ -58,6 +58,14 @@ is @a, [1,2,3,4], '*.meth created closure works';
     # and here are two actual applications of +*
     is sort($x, @list), [1,2,3,10], '+* generates closure to numify';
     is @list.sort($x), [1,2,3,10], '+* generates closure to numify';
+
+    # test that  +* works in a slice
+    my @x1;
+    for 1..4 {
+        @x1[+*] = $_;
+    }
+    is @x1.join('|'), '1|2|3|4', '+* in hash slice (RT 67450)';
 }
 
+
 # vim: ft=perl6