add test for s/// on non-string

Raku · Apr 6, 2015 · 6f63ff8 · 6f63ff8
1 parent 4faae07
commit 6f63ff8
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/S05-substitution/subst.t b/S05-substitution/subst.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 148;
+plan 149;
 
 # L<S05/Substitution/>
 
@@ -445,6 +445,11 @@ is '12'.subst(/(.)(.)/,{$()*2}),'24', '.. and do nifty things in closures';
     is $foo, 'baz', 's{}="" plus statement mod if is not parsed as /i';
 }
 
+{
+    my $_ = 42; s/\d+/xxx/;
+    is $_, 'xxx', 's/// can modify a container that contains a non-string';
+}
+
 done;
 
 # vim: ft=perl6