Skip to content

Commit b75f0ec

Browse files
committed
fudge map.t and substr.t for rakudo
1 parent 975f34d commit b75f0ec

File tree

2 files changed

+4
-0
lines changed

2 files changed

+4
-0
lines changed

‎S32-list/map.t

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -99,6 +99,7 @@ should be equivalent to
9999
100100
=end pod
101101

102+
#?rakudo skip 'splice() not implemented in class Mu'
102103
{
103104
my @expected = ("foo","bar");
104105
@expected = map { substr($_,1,1) }, @expected;

‎S32-str/substr.t

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -121,6 +121,7 @@ plan 117;
121121
is(substr("hello foo bar", 6, 3), "foo", "substr on literal string");
122122
is("hello foo bar".substr(6, 3), "foo", ".substr on literal string");
123123
is("hello foo bar".substr(6, 3).uc, "FOO", ".substr.uc on literal string");
124+
#?rakudo skip '.capitalize'
124125
is("hello foo bar and baz".substr(6, 10).capitalize, "Foo Bar An", ".substr.capitalize on literal string");
125126
is("hello »« foo".substr(6, 2), "»«", ".substr on unicode string");
126127
is("שיעבוד כבר".substr(4, 4), "וד כ", ".substr on Hebrew text");
@@ -238,6 +239,7 @@ sub l (Int $a) { my $l = $a; return $l }
238239
is(substr("hello foo bar", 6, l(3)), "foo", "substr on literal string (substr(Int, StrLen)).");
239240
is("hello foo bar".substr(6, l(3)), "foo", ".substr on literal string (substr(Int, StrLen)).");
240241
is("hello foo bar".substr(6, l(3)).uc, "FOO", ".substr.uc on literal string (substr(Int, StrLen)).");
242+
#?rakudo skip '.capitalize'
241243
is("hello foo bar and baz".substr(6, l(10)).capitalize, "Foo Bar An", ".substr.capitalize on literal string (substr(Int, StrLen)).");
242244
is("hello »« foo".substr(6, l(2)), "»«", ".substr on unicode string (substr(Int, StrLen)).");
243245
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 }
353355
is(substr("hello foo bar", 6, p(3)), "foo", "substr on literal string (substr(Int, StrPos)).");
354356
is("hello foo bar".substr(6, p(3)), "foo", ".substr on literal string (substr(Int, StrPos)).");
355357
is("hello foo bar".substr(6, p(3)).uc, "FOO", ".substr.uc on literal string (substr(Int, StrPos)).");
358+
#?rakudo skip '.capitalize'
356359
is("hello foo bar and baz".substr(6, p(10)).capitalize, "Foo Bar An", ".substr.capitalize on literal string (substr(Int, StrPos)).");
357360
is("hello »« foo".substr(6, p(2)), "»«", ".substr on unicode string (substr(Int, StrPos)).");
358361
is("שיעבוד כבר".substr(4, p(4)), "וד כ", ".substr on Hebrew text (substr(Int, StrPos)).");

0 commit comments

Comments
 (0)