X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F05-words.t;h=b1d1467161c5db82c906353a8a45bd11e01c69da;hb=da0237ee151a65dff50933a7af535ea0541c2ac2;hp=318581d2c5f40e7f552fae6613a4a6df324395c3;hpb=c4d42ba6866ff8c6a542ba718db27cca5f64ba1e;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/05-words.t b/t/05-words.t
index 318581d..b1d1467 100644
--- a/t/05-words.t
+++ b/t/05-words.t
@@ -3,14 +3,13 @@
 use strict;
 use warnings;
 
-use Test::More tests => 46;
+use Test::More tests => 42;
 
 use Scope::Upper qw/:words/;
 
 is HERE, 0, 'main : here';
 is TOP,  0, 'main : top';
 is UP,   0, 'main : up';
-is DOWN, 0, 'main : down';
 is SUB,  undef, 'main : sub';
 is EVAL, undef, 'main : eval';
 
@@ -18,9 +17,6 @@ is EVAL, undef, 'main : eval';
  is HERE, 1, '{ 1 } : here';
  is TOP,  0, '{ 1 } : top';
  is UP,   0, '{ 1 } : up';
- is DOWN, 1, '{ 1 } : down';
- is DOWN(UP), 1, '{ 1 } : up then down';
- is UP(DOWN), 0, '{ 1 } : down then up';
 }
 
 do {