update existing and add more substr(Range) tests

Raku · Jun 25, 2015 · 93edb02 · 93edb02
1 parent ce42e09
commit 93edb02
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 7 deletions.
diff --git a/S32-str/substr-rw.t b/S32-str/substr-rw.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 36;
+plan 39;
 
 {
     my $str = "gorch ding";
@@ -120,11 +120,21 @@ plan 36;
 { # ranges
 
     my $str = 'foo';
-    substr-rw($str, 2..3) = 'x';
+    substr-rw($str, 2..2) = 'x';
     is($str, 'fox', 'substr-rw with a Range should work');
 
-    substr-rw($str, 1..2) = 'a';
-    is($str, 'fax', 'Str.substr-rw with a Range should work');
+    substr-rw($str, 1..2) = 'at';
+    is($str, 'fat', 'Str.substr-rw with a Range should work');
+
+    substr-rw($str, 0..^1) = 'h';
+    is($str, 'hat', 'Str.substr-rw with a Range should work');
+
+    substr-rw($str, 0^..1) = 'o';
+    is($str, 'hot', 'Str.substr-rw with a Range should work');
+
+    substr-rw($str, 0^..^1) = 'o';
+    is($str, 'hoot', 'Str.substr-rw with a Range should work');
+
 }
 
 # RT #114526

diff --git a/S32-str/substr.t b/S32-str/substr.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 49;
+plan 55;
 
 # L<S32::Str/Str/=item substr>
 
@@ -78,8 +78,17 @@ plan 49;
 
     my $str = "hello foo and bar";
 
-    is(substr($str, 6..9), "foo", "substr (substr(Range)).");
-    is($str.substr(6..9), "foo", "substr (substr(Range)).");
+    is(substr($str, 6..8), "foo", "substr (substr(Range)).");
+    is($str.substr(6..8), "foo", "substr (substr(Range)).");
+
+    is(substr($str, 6^..8), "oo", "substr (substr(Range)).");
+    is($str.substr(6^..8), "oo", "substr (substr(Range)).");
+
+    is(substr($str, 6..^8), "fo", "substr (substr(Range)).");
+    is($str.substr(6..^8), "fo", "substr (substr(Range)).");
+
+    is(substr($str, 6^..^8), "o", "substr (substr(Range)).");
+    is($str.substr(6^..^8), "o", "substr (substr(Range)).");
 }
 
 #?niecza todo