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

diff --git a/t/34-glob.t b/t/34-glob.t
index 90821c5..af77a4f 100644
--- a/t/34-glob.t
+++ b/t/34-glob.t
@@ -5,14 +5,12 @@ 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_all('Symbol', undef, [ 'gensym' ]);
+ plan tests => 2 * 17 + 1;
 }
 
 use Variable::Magic qw<cast dispell VMG_COMPAT_GLOB_GET>;
@@ -63,7 +61,7 @@ watch {
  watch { cast *b, $wiz } +{ }, 'cast 2';
 } +{ }, 'scope end';
 
-%get = () if "$]" >= 5.013007;
+%get = () if "$]" >= 5.013_007;
 
 watch { undef *a } +{ %get }, 'undef';