Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

rakudo unfudges

  • Loading branch information...
commit 765896d84517a983ee41eaf389e5f853eee9acb4 1 parent efbc8d7
@moritz moritz authored
Showing with 0 additions and 5 deletions.
  1. +0 −1  S05-match/capturing-contexts.t
  2. +0 −4 S32-str/split.t
View
1  S05-match/capturing-contexts.t
@@ -38,7 +38,6 @@ plan 38;
}
# RT 62530
-#?rakudo skip 'augment'
#?niecza skip 'rule declaration outside of grammar'
{
augment class Match { method keys () {return %(self).keys }; };
View
4 S32-str/split.t
@@ -52,14 +52,12 @@ is split($delimiter, "Perl6::Pugs::Test").join(','),
q{split $delimiter, Str};
# split with a reg-exp
-#?rakudo skip 'rx:Perl5'
#?niecza skip 'rx:Perl5'
is split(rx:Perl5 {,}, "split,me").join(','),
qw/split me/.join(','),
q/split rx:Perl5 {,}, Str/;
# split on multiple space characters
-#?rakudo skip 'rx:Perl5'
#?niecza skip 'rx:Perl5'
is split(rx:Perl5 {\s+}, "Hello World Goodbye Mars").join(','),
qw/Hello World Goodbye Mars/.join(','),
@@ -82,7 +80,6 @@ is "this will be split".split(rx:Perl5 { }).join(','),
q/Str.split(rx:Perl5 { })/;
# split on multiple space characters
-#?rakudo skip 'rx:Perl5'
#?niecza skip 'rx:Perl5'
is split(rx:Perl5 {\s+}, "Hello World Goodbye Mars", 3).join(','),
( <Hello World>, "Goodbye Mars" ).join(','),
@@ -92,7 +89,6 @@ is split(" ", "Hello World Goodbye Mars", 3).join(','),
( <Hello World>, " Goodbye Mars" ).join(','),
q/split " ", Str, limit/;
-#?rakudo skip 'rx:Perl5'
#?niecza skip 'rx:Perl5'
is "Hello World Goodbye Mars".split(rx:Perl5 {\s+}, 3).join(','),
( <Hello World>, "Goodbye Mars" ).join(','),
Please sign in to comment.
Something went wrong with that request. Please try again.