Permalink
Browse files

[t/spec] Fudged block.t for rakudo

git-svn-id: http://svn.pugscode.org/pugs@22425 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 3a04758 commit d75e43ecc01b083f0699d21fae64f980bb478770 azawawi committed Sep 27, 2008
Showing with 6 additions and 0 deletions.
  1. +6 −0 S02-magicals/block.t
View
6 S02-magicals/block.t
@@ -12,9 +12,15 @@ L<S06/The C<&?BLOCK> object>
plan 1;
+#?rakudo emit skip_rest('Parse error');
+
+#?rakudo emit =begin parse
+
# L<S02/Names/Which block am I in?>
# L<S06/The C<&?BLOCK> object/tail-recursion on an anonymous block:>
my $anonfactorial = -> Int $n { $n < 2 ?? 1 !! $n * &?BLOCK($n-1) };
my $result = $anonfactorial(3);
is($result, 6, 'the $?BLOCK magical worked');
+#?rakudo emit =end parse
+

0 comments on commit d75e43e

Please sign in to comment.