[perl #70415] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/integration/real-strings.t

commit b3197187a377336d0a0ce53ee22d1cc8b1136433
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sat Nov 14 19:47:08 2009 +0000

    [t/spec] test for RT #70415, split() should return real strings
    
    git-svn-id: http://svn.pugscode.org/p...@29087 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/integration/real-strings.t 
b/t/spec/integration/real-strings.t
index 5b14597..9707aee 100644
--- a/t/spec/integration/real-strings.t
+++ b/t/spec/integration/real-strings.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 11;
+plan *;
 
 # Rakudo had a regression that
 # string returned from regexes were Parrot strings, not Perl 6 strings.
@@ -20,6 +20,8 @@ plan 11;
        'Still works with strings returned from split() (lives)';
     is $x.trans(['a'] => ['b']), 'b',
        'Still works with strings returned from split() (result)';
+    $x = 'abc'.split('b').[0];
+    is $x.trans(['a'] => ['b']), 'b', 'same for split(Str)';
 }
 
 dies_ok { for "a b c".split(/\s/) -> $foo { $foo = $foo; } }, 'variables 
returned from split and passed to pointy block are still ro';
@@ -56,4 +58,6 @@ is "helo".lc.trans(("aeiou" => "AEIOU")),   'hElO', 
'.flip.trans (RT 66300)';
     is $x, +%*VM.keys, '%*VM.kv is self-consistent';
 }
 
+done_testing;
+
 # vim: ft=perl6