X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=t%2F23-magic-uvar.t;h=e1d764d980bb5d1ace9b0e9efb160f411f151464;hp=28422b0799a269bee91fab697e783f0af8ecb133;hb=edb71e7af0ed10c8b114f0aaab25ff1b20d4d99e;hpb=1a89808e0eb3e27e0d2b61d0bfa84fa8ab94b9cb

diff --git a/t/23-magic-uvar.t b/t/23-magic-uvar.t
index 28422b0..e1d764d 100644
--- a/t/23-magic-uvar.t
+++ b/t/23-magic-uvar.t
@@ -5,15 +5,19 @@ use warnings;
 
 use Test::More;
 
+use lib 't/lib';
+use VPIT::TestHelpers;
+
 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";
+ load_or_skip('Variable::Magic', '0.35', [ ], 'required to test uvar magic');
+ plan skip_all => 'perl 5.10 required to test uvar magic'
+                                             unless Variable::Magic::VMG_UVAR();
 }
 
 {
  package Lexical::Types::Test::Ref;
 
- use Variable::Magic qw/wizard cast/;
+ use Variable::Magic qw<wizard cast>;
 
  our $wiz;
  BEGIN {
@@ -34,7 +38,6 @@ BEGIN {
 
 BEGIN {
  plan tests => 2 * 11;
- defined and diag "Using Variable::Magic $_" for $Variable::Magic::VERSION;
 }
 
 use Lexical::Types as => 'Lexical::Types::Test';
@@ -45,7 +48,8 @@ sub check (&$$;$) {
  my $want = wantarray;
  my @ret;
  {
-  local @{$got}{qw/fetch store/}; delete @{$got}{qw/fetch store/};
+  local @{$got}{qw<fetch store>};
+  delete @{$got}{qw<fetch store>};
   if ($want) {
    @ret = eval { $test->() };
   } elsif (defined $want) {