diff options
author | David Mitchell <davem@iabyn.com> | 2009-08-17 14:59:50 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2009-08-17 14:59:50 +0100 |
commit | d74598f67c6a7840edb232da7587fb7ecd63d7a0 (patch) | |
tree | 969606a98b6d6cd8999e255152a878f8e06cb79b | |
parent | 857ef68b8cd0841e5af0208e3137884c3fe43a80 (diff) | |
download | perl-d74598f67c6a7840edb232da7587fb7ecd63d7a0.tar.gz |
more excising of const deparsing from maint
(Unexpected TODO succeedng seems to be confusing the smoke output)
-rw-r--r-- | ext/B/t/deparse.t | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t index 0bbc1e72e1..0feb315ea1 100644 --- a/ext/B/t/deparse.t +++ b/ext/B/t/deparse.t @@ -27,7 +27,7 @@ BEGIN { require feature; feature->import(':5.10'); } -use Test::More tests => 71; +use Test::More tests => 70; use Config (); use B::Deparse; @@ -505,20 +505,6 @@ do { '???'; !1; #### -# TODO ? $Config::Config{useithreads} && "doesn't work with threads" -# 61 tests that shouldn't be constant folded -# It might be fundamentally impossible to make this work on ithreads, in which -# case the TODO should become a SKIP -x() if $a; -if ($a == 1) { x() } elsif ($b == 2) { z() } -if (do { foo(); GLIPP }) { x() } -if (do { $a++; GLIPP }) { x() } ->>>> -x() if $a; -if ($a == 1) { x(); } elsif ($b == 2) { z(); } -if (do { foo(); 'glipp' }) { x(); } -if (do { ++$a; 'glipp' }) { x(); } -#### # TODO Only strict 'refs' currently supported # 68 strict no strict; |