Test for RT#120846.

Raku · Jun 2, 2014 · 7272e0e · 7272e0e
1 parent a20558f
commit 7272e0e
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/S02-types/array.t b/S02-types/array.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 93;
+plan 95;
 
 #L<S02/Mutable types/Array>
 
@@ -345,6 +345,14 @@ my @array2 = ("test", 1, Mu);
     throws_like 'my @a = 1..*; @a[NaN] = "cat"', X::Item, index => NaN, aggregate => 1..*;
 }
 
+{
+    my Str $foo;
+    my @bar = $foo;
+    my $res;
+    lives_ok { $res = ~@bar }, '~@bar containing a Str type object lives';
+    is $res, "", '~@bar containing a Str type object gives empty string';
+}
+
 done;
 
 # vim: ft=perl6