X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F07-context_info.t;h=5dbfa45bdfb01f72b3280f81592217b8106cab48;hb=6e6aa503ec0f8dc6f7c01ac956f57d34eb1f7eda;hp=32a943be64652ef3e40d85956a30f5cc84727862;hpb=d5220346a9c7076bca46b2bb61e313750c683a7b;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/07-context_info.t b/t/07-context_info.t
index 32a943b..5dbfa45 100644
--- a/t/07-context_info.t
+++ b/t/07-context_info.t
@@ -12,7 +12,7 @@ use Config qw<%Config>;
 # change ; and that doesn't fit well with how we're testing things.
 
 use lib 't/lib';
-use Test::Leaner tests => 19 + 6;
+use Test::Leaner tests => 18 + 6;
 
 use Scope::Upper qw<context_info UP HERE CALLER>;
 
@@ -47,6 +47,7 @@ sub expected {
  if ($top) {
   $want      = "$]" < 5.015_001 ? '' : undef;
   $hints    &= ~HINT_BLOCK_SCOPE if $Config{usesitecustomize};
+  $hints    |=  HINT_BLOCK_SCOPE if "$]" >= 5.019003;
   $warnings  = sub { use warnings; (caller 0)[9] }->() if  "$]" < 5.007
                                                        and not $^W;
  }
@@ -79,7 +80,6 @@ sub setup () {
 
 is_deeply [ context_info       ], $exp0, 'main : context_info';
 is_deeply [ context_info(HERE) ], $exp0, 'main : context_info HERE';
-is_deeply [ context_info(UP)   ], $exp0, 'main : context_info UP';
 is_deeply [ context_info(-1)   ], $exp0, 'main : context_info -1';
 
 package Scope::Upper::TestPkg::A; BEGIN { ::setup }