X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F34-glob.t;h=2e1a441a56b3c9cb10e5825cf5a1d8af4bb26339;hb=12277e85746cb2d277220aaa385e4af38219842d;hp=90821c5bf31498cef6049ef0486d85a6079b6fd7;hpb=b34eec5b227be170f3cf8efdb8aaae400370960b;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/34-glob.t b/t/34-glob.t
index 90821c5..2e1a441 100644
--- a/t/34-glob.t
+++ b/t/34-glob.t
@@ -5,14 +5,14 @@ use warnings;
 
 use Test::More;
 
+use lib 't/lib';
+use VPIT::TestHelpers;
+
 BEGIN {
- local $@;
- if (eval "use Symbol qw<gensym>; 1") {
-  plan tests => 2 * 17 + 1;
-  defined and diag "Using Symbol $_" for $Symbol::VERSION;
- } else {
-  plan skip_all => "Symbol::gensym required for testing magic for globs";
- }
+ load_or_skip('Symbol', undef, [ 'gensym' ],
+              'required for testing magic for globs');
+
+ plan tests => 2 * 17 + 1;
 }
 
 use Variable::Magic qw<cast dispell VMG_COMPAT_GLOB_GET>;
@@ -63,7 +63,7 @@ watch {
  watch { cast *b, $wiz } +{ }, 'cast 2';
 } +{ }, 'scope end';
 
-%get = () if "$]" >= 5.013007;
+%get = () if "$]" >= 5.013_007;
 
 watch { undef *a } +{ %get }, 'undef';