@@ -121,6 +121,7 @@ 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'
124
125
is (" hello foo bar and baz" . substr (6 , 10 ). capitalize , " Foo Bar An" , " .substr.capitalize on literal string" );
125
126
is (" hello »« foo" . substr (6 , 2 ), " »«" , " .substr on unicode string" );
126
127
is (" שיעבוד כבר" . substr (4 , 4 ), " וד כ" , " .substr on Hebrew text" );
@@ -238,6 +239,7 @@ sub l (Int $a) { my $l = $a; return $l }
238
239
is (substr (" hello foo bar" , 6 , l(3 )), " foo" , " substr on literal string (substr(Int, StrLen))." );
239
240
is (" hello foo bar" . substr (6 , l(3 )), " foo" , " .substr on literal string (substr(Int, StrLen))." );
240
241
is (" hello foo bar" . substr (6 , l(3 )). uc , " FOO" , " .substr.uc on literal string (substr(Int, StrLen))." );
242
+ # ?rakudo skip '.capitalize'
241
243
is (" hello foo bar and baz" . substr (6 , l(10 )). capitalize , " Foo Bar An" , " .substr.capitalize on literal string (substr(Int, StrLen))." );
242
244
is (" hello »« foo" . substr (6 , l(2 )), " »«" , " .substr on unicode string (substr(Int, StrLen))." );
243
245
is (" שיעבוד כבר" . substr (4 , l(4 )), " וד כ" , " .substr on Hebrew text (substr(Int, StrLen))." );
@@ -353,6 +355,7 @@ sub p (Int $a) { my $p = $a; return $p }
353
355
is (substr (" hello foo bar" , 6 , p(3 )), " foo" , " substr on literal string (substr(Int, StrPos))." );
354
356
is (" hello foo bar" . substr (6 , p(3 )), " foo" , " .substr on literal string (substr(Int, StrPos))." );
355
357
is (" hello foo bar" . substr (6 , p(3 )). uc , " FOO" , " .substr.uc on literal string (substr(Int, StrPos))." );
358
+ # ?rakudo skip '.capitalize'
356
359
is (" hello foo bar and baz" . substr (6 , p(10 )). capitalize , " Foo Bar An" , " .substr.capitalize on literal string (substr(Int, StrPos))." );
357
360
is (" hello »« foo" . substr (6 , p(2 )), " »«" , " .substr on unicode string (substr(Int, StrPos))." );
358
361
is (" שיעבוד כבר" . substr (4 , p(4 )), " וד כ" , " .substr on Hebrew text (substr(Int, StrPos))." );
0 commit comments