Warn when the words target a context outside of the current stack

[perl/modules/Scope-Upper.git] / t / 06-want_at.t

diff --git a/t/06-want_at.t b/t/06-want_at.t
index 12df3f0d7ded69f826c4a89a7214ee5493ae6f77..540acda988492e21f86d13931a9dd0b1748d103f 100644 (file)
--- a/t/06-want_at.t
+++ b/t/06-want_at.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 19;
+use Test::More tests => 18;
 
 use Scope::Upper qw<want_at UP HERE>;
 
@@ -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 {