Update VPIT::TestHelpers to e8344578

[perl/modules/Variable-Magic.git] / t / 34-glob.t

diff --git a/t/34-glob.t b/t/34-glob.t
index 90821c5bf31498cef6049ef0486d85a6079b6fd7..af77a4fb795470a6c06fde61654315ebd6a8cd92 100644 (file)
--- 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';