Permalink
Browse files

pugs fudge

  • Loading branch information...
1 parent 068fb14 commit a842b80582084191a70e41eeb8077739e80b0389 @coke coke committed Feb 21, 2012
@@ -26,6 +26,7 @@ my $o = Thing.new;
eval_dies_ok('$o .whatever(5)', 'whitespace is not allowed before . before method');
eval_dies_ok('$o. whatever(5)', 'whitespace is not allowed after . before method');
+#?pugs skip "missing eval_lives_ok"
eval_lives_ok 'my @rt80330; [+] @rt80330', 'a [+] with whitespace works';
eval_dies_ok 'my @rt80330; [+]@rt80330', 'a [+] without whitespace dies';
View
@@ -17,6 +17,7 @@ is "foo\r\nbar".graphs, 7, 'CRLF is 1 graph';
is $u.chars, 1, '.chars defaults to .graphs';
# RT #65170
+#?pugs todo
{
my $rt65170;
View
@@ -45,6 +45,7 @@ plan 13;
NEXT { $str ~= 'n'; }
LAST { $str ~= 'l'; }
}
+ #?pugs todo
is $str, 'nnl', 'NEXT are LAST blocks may not be exclusive';
}
@@ -70,6 +71,7 @@ plan 13;
leave if $_ > 3;
}
}
+ #?pugs todo
is $str, '123', "leave didn't trigger NEXT \{}";
}
@@ -103,6 +105,7 @@ plan 13;
NEXT { $str ~= 'n' }
LEAVE { $str ~= 'l' }
}
+ #?pugs todo
is $str, 'nlnl', 'NEXT {} ran before LEAVE {} (1)';
}
@@ -113,6 +116,7 @@ plan 13;
LEAVE { $str ~= 'l' }
NEXT { $str ~= 'n' }
}
+ #?pugs todo
is $str, 'nlnl', 'NEXT {} ran before LEAVE {} (2)';
}
@@ -129,6 +133,7 @@ plan 13;
NEXT { $str ~= $n } # this gets run first (LIFO)
last if $i++ > 100; # recursion prevension
}
+ #?pugs todo
is $str, '01234', 'NEXT {} ran in reversed order';
}
@@ -147,6 +152,7 @@ plan 13;
NEXT { $str ~= $_; }
}
+ #?pugs todo
is($str, '01234', 'NEXT {} works in for loop');
}
View
148 S05-mass/properties-derived.t 100755 → 100644

Large diffs are not rendered by default.

Oops, something went wrong.
Oops, something went wrong.

0 comments on commit a842b80

Please sign in to comment.