X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F06-want_at.t;h=540acda988492e21f86d13931a9dd0b1748d103f;hb=eef3f2764e7018e3eaf2f1d11f249b510d023a2d;hp=8262255907b626888a11c959683ce53e13af6cbb;hpb=0a6221d3f467b5f819e3c119b4cda0218399cb51;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/06-want_at.t b/t/06-want_at.t
index 8262255..540acda 100644
--- a/t/06-want_at.t
+++ b/t/06-want_at.t
@@ -3,9 +3,9 @@
 use strict;
 use warnings;
 
-use Test::More tests => 19;
+use Test::More tests => 18;
 
-use Scope::Upper qw/want_at UP HERE/;
+use Scope::Upper qw<want_at UP HERE>;
 
 sub check {
  my ($w, $exp, $desc) = @_;
@@ -26,7 +26,6 @@ my $w;
 
 check want_at,       undef, 'main : want_at';
 check want_at(HERE), undef, 'main : want_at HERE';
-check want_at(UP),   undef, 'main : want_at UP';
 check want_at(-1),   undef, 'main : want_at -1';
 
 my @a = sub {