Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Unfudge some state tests.
  • Loading branch information
jnthn committed Oct 25, 2011
1 parent 148cafa commit 335d2ce
Showing 1 changed file with 0 additions and 5 deletions.
5 changes: 0 additions & 5 deletions S04-declarations/state.t
Expand Up @@ -35,7 +35,6 @@ plan 40;

# state() inside coderefs
# L<S04/Phasers/"semantics to any initializer, so this also works">
#?rakudo todo 'nom regression'
#?DOES 1
{
my $gen = {
Expand Down Expand Up @@ -114,7 +113,6 @@ plan 40;
state $x = do { $rhs_calls++ } #OK not used
}
impure_rhs() for 1..3;
#?rakudo todo 'nom regression'
is $rhs_calls, 1, 'RHS of state $x = ... only called once';
}

Expand Down Expand Up @@ -218,12 +216,10 @@ eval_lives_ok 'if 0 { \(state $) }', '$) not misinterpreted in capterm';
};

is(step().join('|'), "43|41", "chained state (1)");
#?rakudo todo 'nom regression'
is(step().join('|'), "44|40", "chained state (2)");
}

# state in cloned closures
#?rakudo skip 'nom regression'
#?DOES 4
{
for <first second> {
Expand All @@ -239,7 +235,6 @@ eval_lives_ok 'if 0 { \(state $) }', '$) not misinterpreted in capterm';

# state with multiple explicit calls to clone - a little bit subtle
#?niecza skip "there is no Sub.clone"
#?rakudo skip 'nom regression'
#?DOES 3
{
my $i = 0;
Expand Down

0 comments on commit 335d2ce

Please sign in to comment.