X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F06-want_at.t;h=540acda988492e21f86d13931a9dd0b1748d103f;hb=06553cbfcb3bd6ccbee666625bc6b31c53320969;hp=7d29d24444bbc57d523f0e754617a4f975190683;hpb=7c5f28e56c17629e34fa0b2e6e4626e040f9c21d;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/06-want_at.t b/t/06-want_at.t
index 7d29d24..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 => 16;
+use Test::More tests => 18;
 
-use Scope::Upper qw/want_at/;
+use Scope::Upper qw<want_at UP HERE>;
 
 sub check {
  my ($w, $exp, $desc) = @_;
@@ -24,30 +24,34 @@ sub check {
 
 my $w;
 
-check want_at,     undef, 'main : want_at';
-check want_at(0),  undef, 'main : want_at(0)';
-check want_at(1),  undef, 'main : want_at(1)';
-check want_at(-1), undef, 'main : want_at(-1)';
+check want_at,       undef, 'main : want_at';
+check want_at(HERE), undef, 'main : want_at HERE';
+check want_at(-1),   undef, 'main : want_at -1';
 
 my @a = sub {
  check want_at, 1, 'sub0 : want_at';
  {
-  check want_at,    1, 'sub : want_at';
-  check want_at(1), 1, 'sub : want_at(1)';
+  check want_at,     1, 'sub : want_at';
+  check want_at(UP), 1, 'sub : want_at UP';
   for (1) {
-   check want_at,    1, 'for : want_at';
-   check want_at(1), 1, 'for : want_at(1)';
-   check want_at(2), 1, 'for : want_at(2)';
+   check want_at,        1, 'for : want_at';
+   check want_at(UP),    1, 'for : want_at UP';
+   check want_at(UP UP), 1, 'for : want_at UP UP';
   }
+  eval "
+   check want_at,        undef, 'eval string : want_at';
+   check want_at(UP),    1,     'eval string : want_at UP';
+   check want_at(UP UP), 1,     'eval string : want_at UP UP';
+  ";
   my $x = eval {
    do {
-    check want_at,    0, 'do : want_at';
-    check want_at(1), 0, 'do : want_at(0)';
-    check want_at(2), 1, 'do : want_at(1)';
+    check want_at,        0, 'do : want_at';
+    check want_at(UP),    0, 'do : want_at UP';
+    check want_at(UP UP), 1, 'do : want_at UP UP';
    };
-   check want_at,    0, 'eval : want_at';
-   check want_at(1), 1, 'eval : want_at(0)';
-   check want_at(2), 1, 'eval : want_at(1)';
+   check want_at,        0, 'eval : want_at';
+   check want_at(UP),    1, 'eval : want_at UP';
+   check want_at(UP UP), 1, 'eval : want_at UP UP';
   };
  }
 }->();