Test for RT #125402.

Raku · Jun 23, 2015 · 424a9a1 · 424a9a1
1 parent 1eb6df0
commit 424a9a1
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/S32-str/substr-rw.t b/S32-str/substr-rw.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 33;
+plan 34;
 
 {
     my $str = "gorch ding";
@@ -125,4 +125,11 @@ plan 33;
         'substr-rw handles end positions that are out of range';
 }
 
+# RT #125402
+{
+    my $s = 'foobar';
+    $s.substr-rw(3, 3) = 1;
+    is $s, 'foo1', 'assigning a non-string coerces';
+}
+
 # vim: ft=perl6