Permalink
Browse files

Fudge for Rakudo.

  • Loading branch information...
1 parent c95f0d1 commit a553a91e2dd4897a4ad1acff98b07cd79fdab0ba @jnthn jnthn committed Mar 6, 2012
Showing with 5 additions and 0 deletions.
  1. +5 −0 S04-phasers/next.t
View
@@ -63,6 +63,7 @@ plan 13;
is $str, '123', "die didn't trigger NEXT \{}";
}
+#?rakudo skip 'leave NYI'
{
my $str = '';
try {
@@ -99,6 +100,7 @@ plan 13;
# L<S04/Phasers/NEXT "before any LEAVE">
+#?rakudo todo 'NEXT/LEAVE ordering'
{
my $str = '';
for 1..2 {
@@ -110,6 +112,7 @@ plan 13;
}
# reversed order
+#?rakudo todo 'NEXT/LEAVE ordering'
{
my $str = '';
for 1..2 {
@@ -124,6 +127,7 @@ plan 13;
# L<http://groups.google.com/group/perl.perl6.language/msg/07370316d32890dd>
+#?rakudo todo 'NEXT with while'
{
my $str = '';
my $n = 0;
@@ -137,6 +141,7 @@ plan 13;
is $str, '01234', 'NEXT {} ran in reversed order';
}
+#?rakudo todo 'NEXT with loop'
{
my $str = '';
loop (my $n = 0; $n < 5; ++$n) {

0 comments on commit a553a91

Please sign in to comment.