X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F22-magic.t;h=dee87c2ebeb5bc368e7e66fadc0a4a0898599bc7;hb=769ddb7f96f8f50f1f0d40459501e00672a31e1b;hp=d0cae1b8e0f773fac1b0b4ecf3982e72c17c417d;hpb=bf1b09f4ab8df1710df549764d511b110c6cb396;p=perl%2Fmodules%2FLexical-Types.git diff --git a/t/22-magic.t b/t/22-magic.t index d0cae1b..dee87c2 100644 --- a/t/22-magic.t +++ b/t/22-magic.t @@ -5,9 +5,11 @@ use warnings; use Test::More; +use lib 't/lib'; +use VPIT::TestHelpers; + BEGIN { - plan skip_all => 'Variable::Magic required to test magic' - unless eval "use Variable::Magic; 1"; + load_or_skip('Variable::Magic', undef, [ ], 'required to test magic'); } { @@ -21,7 +23,7 @@ BEGIN { get => sub { ++$_[1]->{get}; () }, set => sub { ++$_[1]->{set}; () }; } - + sub TYPEDSCALAR { cast $_[1], $wiz, $_[2]; () } } @@ -29,7 +31,6 @@ BEGIN { BEGIN { plan tests => 2 * 8; - defined and diag "Using Variable::Magic $_" for $Variable::Magic::VERSION; } use Lexical::Types as => 'Lexical::Types::Test';