@@ -121,7 +121,6 @@ plan 117;
121
121
is (substr (" hello foo bar" , 6 , 3 ), " foo" , " substr on literal string" );
122
122
is (" hello foo bar" . substr (6 , 3 ), " foo" , " .substr on literal string" );
123
123
is (" hello foo bar" . substr (6 , 3 ). uc , " FOO" , " .substr.uc on literal string" );
124
- # ?rakudo skip '.capitalize'
125
124
is (" hello foo bar and baz" . substr (6 , 10 ). capitalize , " Foo Bar An" , " .substr.capitalize on literal string" );
126
125
is (" hello »« foo" . substr (6 , 2 ), " »«" , " .substr on unicode string" );
127
126
is (" שיעבוד כבר" . substr (4 , 4 ), " וד כ" , " .substr on Hebrew text" );
@@ -156,7 +155,6 @@ sub l (Int $a) { my $l = $a; return $l }
156
155
substr ($ str , 2 , l(1 ), " i" );
157
156
is ($ str , " foibar" , " fourth arg to substr replaced part (substr(Int, StrLen))." );
158
157
159
- # ?rakudo skip 'whatever closure'
160
158
substr ($ str , * -1 , l(1 ), " blah" );
161
159
is ($ str , " foibablah" , " longer replacement expands string (substr(Int, StrLen))." );
162
160
@@ -239,7 +237,6 @@ sub l (Int $a) { my $l = $a; return $l }
239
237
is (substr (" hello foo bar" , 6 , l(3 )), " foo" , " substr on literal string (substr(Int, StrLen))." );
240
238
is (" hello foo bar" . substr (6 , l(3 )), " foo" , " .substr on literal string (substr(Int, StrLen))." );
241
239
is (" hello foo bar" . substr (6 , l(3 )). uc , " FOO" , " .substr.uc on literal string (substr(Int, StrLen))." );
242
- # ?rakudo skip '.capitalize'
243
240
is (" hello foo bar and baz" . substr (6 , l(10 )). capitalize , " Foo Bar An" , " .substr.capitalize on literal string (substr(Int, StrLen))." );
244
241
is (" hello »« foo" . substr (6 , l(2 )), " »«" , " .substr on unicode string (substr(Int, StrLen))." );
245
242
is (" שיעבוד כבר" . substr (4 , l(4 )), " וד כ" , " .substr on Hebrew text (substr(Int, StrLen))." );
@@ -355,7 +352,6 @@ sub p (Int $a) { my $p = $a; return $p }
355
352
is (substr (" hello foo bar" , 6 , p(3 )), " foo" , " substr on literal string (substr(Int, StrPos))." );
356
353
is (" hello foo bar" . substr (6 , p(3 )), " foo" , " .substr on literal string (substr(Int, StrPos))." );
357
354
is (" hello foo bar" . substr (6 , p(3 )). uc , " FOO" , " .substr.uc on literal string (substr(Int, StrPos))." );
358
- # ?rakudo skip '.capitalize'
359
355
is (" hello foo bar and baz" . substr (6 , p(10 )). capitalize , " Foo Bar An" , " .substr.capitalize on literal string (substr(Int, StrPos))." );
360
356
is (" hello »« foo" . substr (6 , p(2 )), " »«" , " .substr on unicode string (substr(Int, StrPos))." );
361
357
is (" שיעבוד כבר" . substr (4 , p(4 )), " וד כ" , " .substr on Hebrew text (substr(Int, StrPos))." );
0 commit comments