Skip to content

Commit 06bb994

Browse files
committed
fudge for niecza
1 parent 239510c commit 06bb994

File tree

1 file changed

+6
-0
lines changed

1 file changed

+6
-0
lines changed

S05-match/capturing-contexts.t

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -8,6 +8,7 @@ plan 36;
88

99
# old: L<S05/Return values from matches/"A match always returns a Match object" >
1010
# L<S05/Match objects/"A match always returns a " >
11+
#?niecza skip 'match returns match object'
1112
{
1213
my $match = 'abd' ~~ m/ (a) (b) c || (\w) b d /;
1314
isa_ok( $match, 'Match', 'Match object returned');
@@ -37,6 +38,7 @@ plan 36;
3738

3839
# RT 62530
3940
#?rakudo skip 'augment'
41+
#?niecza skip 'rule declaration outside of grammar'
4042
{
4143
augment class Match { method keys () {return %(self).keys }; };
4244
rule a {H};
@@ -78,8 +80,10 @@ plan 36;
7880
}
7981

8082
# This is similar to a test in S05-interpolation/regex-in-variable.t
83+
#?niecza todo 'match with non-existent capture does not match'
8184
nok 'aa' ~~ /(.)$1/, 'match with non-existent capture does not match';
8285
#?rakudo todo 'RT 70007'
86+
#?niecza todo 'eek'
8387
is_run( q{'aa' ~~ /(.)$1/},
8488
{
8589
status => 0,
@@ -92,6 +96,7 @@ is_run( q{'aa' ~~ /(.)$1/},
9296
{
9397
$_ = 'RT 66252';
9498
m/(R.)/;
99+
#?niecza todo 'Match object in $/ after match in void context'
95100
isa_ok $/, 'Match', 'Match object in $/ after match in void context';
96101
is $/, 'RT', 'Matched as intended in void context';
97102
}
@@ -112,6 +117,7 @@ is_run( q{'aa' ~~ /(.)$1/},
112117
}
113118

114119
# RT #72956
120+
#?niecza skip 'Unsupported use of $/ variable as input record separator'
115121
{
116122
$/ = Any;
117123
lives_ok { $0 },

0 commit comments

Comments
 (0)