Permalink
Browse files

pugs fudge

  • Loading branch information...
1 parent f7e8545 commit 7397cbaef1ed52353d0f0ed4f814de811b31d90d @coke coke committed Jul 26, 2012
Showing with 2 additions and 0 deletions.
  1. +1 −0 S03-operators/inplace.t
  2. +1 −0 S32-str/substr.t
View
@@ -49,6 +49,7 @@ my $i = "UPPERCASE"; $i .= tc;
is($f, "LOWERCASE", "inplace uc");
is($g, "uppercase", "inplace lc");
is($h, "Lowercase", "inplace tc");
+#?pugs todo
is($i, "uPPERCASE", "inplace lcfirst");
# L<S12/"Mutating methods">
View
@@ -64,6 +64,7 @@ plan 90;
is("שיעבוד כבר".substr(4, 4), "וד כ", ".substr on Hebrew text");
}
+#?pugs skip 'chrs'
{ # codepoints greater than 0xFFFF
my $str = (0x10426, 0x10427).chrs;
is $str.codes, 2, "Sanity check string";

0 comments on commit 7397cba

Please sign in to comment.