Add test for RT #114526 (fudged 'skip' for Parrot)

Raku · Jan 25, 2015 · 7eb85d9 · 7eb85d9
1 parent 5ddd66b
commit 7eb85d9
Showing 1 changed file with 11 additions and 2 deletions.
diff --git a/S32-str/substr-rw.t b/S32-str/substr-rw.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 32;
+plan 33;
 
 sub l (Int $a) {  my $l = $a; return $l }
 
@@ -123,4 +123,13 @@ sub l (Int $a) {  my $l = $a; return $l }
     is($str, 'fox', 'method form of substr-rw works');
 };
 
-# vim: ft=perl6 
+# RT #114526
+#?rakudo.parrot skip 'RT #114526'
+{
+    my $str = 'ab';
+    substr-rw($str, 0, 3) = '/';
+    is "--$str--", '--/--',
+        'substr-rw handles end positions that are out of range';
+}
+
+# vim: ft=perl6