X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F23-magic-uvar.t;h=9d3013b59625bfb9a1d5f55737f73bc7298c0a7d;hb=c530c61ff04bdbd8bc101a3e88273fc4219d963e;hp=884916146565aae644bd1fa65ab3b3fe4377c561;hpb=b231c8a43aba9af5993d8cb5484ca1480709c05b;p=perl%2Fmodules%2FLexical-Types.git

diff --git a/t/23-magic-uvar.t b/t/23-magic-uvar.t
index 8849161..9d3013b 100644
--- a/t/23-magic-uvar.t
+++ b/t/23-magic-uvar.t
@@ -6,8 +6,8 @@ use warnings;
 use Test::More;
 
 BEGIN {
- plan skip_all => 'Variable::Magic 0.08 on 5.10 required to test uvar magic'
-              unless eval "use Variable::Magic 0.08; Variable::Magic::VMG_UVAR";
+ plan skip_all => 'Variable::Magic 0.35 on 5.10 required to test uvar magic'
+              unless eval "use Variable::Magic 0.35; Variable::Magic::VMG_UVAR";
 }
 
 {
@@ -34,6 +34,7 @@ BEGIN {
 
 BEGIN {
  plan tests => 2 * 11;
+ defined and diag "Using Variable::Magic $_" for $Variable::Magic::VERSION;
 }
 
 use Lexical::Types as => 'Lexical::Types::Test';
@@ -52,6 +53,7 @@ sub check (&$$;$) {
   } else {
    eval { $test->() };
   }
+  local $Test::Builder::Level = $Test::Builder::Level + 1;
   is_deeply $got, $exp, $desc;
  }
  return $want ? @ret : $ret[0];