diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-07-09 12:52:48 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-09-15 22:45:01 -0700 |
| commit | c8e83515878c840f01f7944ec04c1b6c525653dd (patch) | |
| tree | 88983df33f57e05ccd8a301e0eafa11975a249fd /t/cmd | |
| parent | e07561e6ac7f381061f112bee32ebc779683a84c (diff) | |
| download | perl-c8e83515878c840f01f7944ec04c1b6c525653dd.tar.gz | |
lexsub.t: Fix another test
The problem with writing to-do tests is that it is very easy to get
the tests wrong, such that they continue to fail even when the prob-
lems they test for are fixed.
Diffstat (limited to 't/cmd')
| -rw-r--r-- | t/cmd/lexsub.t | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/t/cmd/lexsub.t b/t/cmd/lexsub.t index e285a84366..ffabbd1b7a 100644 --- a/t/cmd/lexsub.t +++ b/t/cmd/lexsub.t @@ -231,9 +231,7 @@ is &$sub2, 49, 'state sub in closure (2)'; my $x = 43; for $x (765) { state sub etetetet { $x } -on; - is eval{etetetet}, $x, 'state sub ignores for() localisation'; -off; + is eval{etetetet}, 43, 'state sub ignores for() localisation'; } } # And we also need to test that multiple state subs can close over each |