Permalink
Browse files

fudge for niecza

  • Loading branch information...
1 parent d5f4f03 commit 04db5dc4f2541c82f8e058cc09ca29241a49970a @coke coke committed Jan 11, 2012
Showing with 3 additions and 0 deletions.
  1. +3 −0 S05-match/perl.t
View
3 S05-match/perl.t
@@ -16,7 +16,9 @@ grammar ExprT1 {
my $m = ExprT1.parse('2 + 4');
ok $m, 'Regex matches (1)';
lives_ok { $m.perl }, '$/.perl lives (with named captures';
+#?niecza skip 'No value for parameter $a in is_deeply'
is_deeply eval($m.perl), $m, '... and it reproduces the right thing (1)';
+#?niecza todo 'empty result'
is ~eval($m.perl).<operator>, '+', ' right result (2)';
my regex f { f };
@@ -26,6 +28,7 @@ lives_ok { $/.perl }, 'lives on quantified named captures';
# RT #64874
#?rakudo skip '<foo::bar>'
+#?niecza skip 'Cannot dispatch to a method on GLOBAL::Perl6::Grammar'
{
my $code_str = 'say <OH HAI>';
$code_str ~~ /<Perl6::Grammar::TOP>/;

0 comments on commit 04db5dc

Please sign in to comment.