Browse files

Add proper #?DOES for accumtest, unfudge test that now works in Niecza.

  • Loading branch information...
1 parent f14b0fb commit 4d31087f4cea9f9f4793f417ab2a9292664e498f @colomon colomon committed May 1, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 S03-operators/short-circuit.t
View
3 S03-operators/short-circuit.t
@@ -18,6 +18,8 @@ my $accum = '';
sub f1($s) { $accum ~= $s; 1 }
sub f0($s) { $accum ~= $s; 0 }
sub fAny($s) { $accum ~= $s; Any }
+
+#?DOES 1
sub accumtest($expect, $op) {
is $accum, $expect, "$op operator short circuiting exactly when needed";
$accum = '';
@@ -274,7 +276,6 @@ ok (0 || 0 || 1), '0 || 0 || 1 is true';
{
my $x;
$x &&= 5;
- #?niecza todo
#?pugs todo
ok !defined($x), '&&= on a fresh variable works';
my $y ||= 'moin';

0 comments on commit 4d31087

Please sign in to comment.