Tweak substr(Range) tests

Raku · Aug 5, 2015 · b536f89 · b536f89
1 parent ffc5993
commit b536f89
Showing 1 changed file with 12 additions and 9 deletions.
diff --git a/S32-str/substr.t b/S32-str/substr.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 55;
+plan 57;
 
 # L<S32::Str/Str/=item substr>
 
@@ -79,17 +79,20 @@ plan 55;
 
     my $str = "hello foo and bar";
 
-    is(substr($str, 6..8), "foo", "substr (substr(Range)).");
-    is($str.substr(6..8), "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), "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), "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)).");
+    is substr($str, 6^..^8), "o", "substr (substr(^Range^))";
+    is $str.substr(6^..^8),  "o", "substr (substr(^Range^))";
+
+    is substr($str, 10..*), "and bar", "substr (substr(Range Inf))";
+    is $str.substr(10..*),  "and bar", "substr (substr(Range Inf))";
 }
 
 #?niecza todo