Permalink
Browse files

fudge for niecza

  • Loading branch information...
1 parent 239510c commit 06bb99409054312288c927290f11549059e5aab6 @coke coke committed Jan 16, 2012
Showing with 6 additions and 0 deletions.
  1. +6 −0 S05-match/capturing-contexts.t
@@ -8,6 +8,7 @@ plan 36;
# old: L<S05/Return values from matches/"A match always returns a Match object" >
# L<S05/Match objects/"A match always returns a " >
+#?niecza skip 'match returns match object'
{
my $match = 'abd' ~~ m/ (a) (b) c || (\w) b d /;
isa_ok( $match, 'Match', 'Match object returned');
@@ -37,6 +38,7 @@ plan 36;
# RT 62530
#?rakudo skip 'augment'
+#?niecza skip 'rule declaration outside of grammar'
{
augment class Match { method keys () {return %(self).keys }; };
rule a {H};
@@ -78,8 +80,10 @@ plan 36;
}
# This is similar to a test in S05-interpolation/regex-in-variable.t
+#?niecza todo 'match with non-existent capture does not match'
nok 'aa' ~~ /(.)$1/, 'match with non-existent capture does not match';
#?rakudo todo 'RT 70007'
+#?niecza todo 'eek'
is_run( q{'aa' ~~ /(.)$1/},
{
status => 0,
@@ -92,6 +96,7 @@ is_run( q{'aa' ~~ /(.)$1/},
{
$_ = 'RT 66252';
m/(R.)/;
+ #?niecza todo 'Match object in $/ after match in void context'
isa_ok $/, 'Match', 'Match object in $/ after match in void context';
is $/, 'RT', 'Matched as intended in void context';
}
@@ -112,6 +117,7 @@ is_run( q{'aa' ~~ /(.)$1/},
}
# RT #72956
+#?niecza skip 'Unsupported use of $/ variable as input record separator'
{
$/ = Any;
lives_ok { $0 },

0 comments on commit 06bb994

Please sign in to comment.