8
8
9
9
# old: L<S05/Return values from matches/"A match always returns a Match object" >
10
10
# L<S05/Match objects/"A match always returns a " >
11
+ # ?niecza skip 'match returns match object'
11
12
{
12
13
my $ match = ' abd' ~~ m / (a) (b) c || (\w ) b d /;
13
14
isa_ok( $ match , ' Match' , ' Match object returned' );
@@ -37,6 +38,7 @@ plan 36;
37
38
38
39
# RT 62530
39
40
# ?rakudo skip 'augment'
41
+ # ?niecza skip 'rule declaration outside of grammar'
40
42
{
41
43
augment class Match { method keys () {return % (self ). keys }; };
42
44
rule a {H};
@@ -78,8 +80,10 @@ plan 36;
78
80
}
79
81
80
82
# This is similar to a test in S05-interpolation/regex-in-variable.t
83
+ # ?niecza todo 'match with non-existent capture does not match'
81
84
nok ' aa' ~~ /(. )$1 /, ' match with non-existent capture does not match' ;
82
85
# ?rakudo todo 'RT 70007'
86
+ # ?niecza todo 'eek'
83
87
is_run( q { 'aa' ~~ /(.)$1/ } ,
84
88
{
85
89
status => 0 ,
@@ -92,6 +96,7 @@ is_run( q{'aa' ~~ /(.)$1/},
92
96
{
93
97
$ _ = ' RT 66252' ;
94
98
m /(R. ) /;
99
+ # ?niecza todo 'Match object in $/ after match in void context'
95
100
isa_ok $/ , ' Match' , ' Match object in $/ after match in void context' ;
96
101
is $/ , ' RT' , ' Matched as intended in void context' ;
97
102
}
@@ -112,6 +117,7 @@ is_run( q{'aa' ~~ /(.)$1/},
112
117
}
113
118
114
119
# RT #72956
120
+ # ?niecza skip 'Unsupported use of $/ variable as input record separator'
115
121
{
116
122
$/ = Any ;
117
123
lives_ok { $0 },
0 commit comments