8 eval "use Symbol qw/gensym/";
10 plan skip_all => "Symbol::gensym required for testing magic for globs";
12 plan tests => 2 * 8 + 1;
13 diag "Using Symbol $Symbol::VERSION" if defined $Symbol::VERSION;
16 use Variable::Magic qw/cast dispell/;
19 use Variable::Magic::TestWatcher;
22 [ qw/get set len clear free copy dup local fetch store exists delete/ ],
27 check { cast *a, $wiz } { }, 'cast';
29 check { local *b = *a } { }, 'assign to';
31 check { *a = gensym() } { set => 1 }, 'assign';
35 check { cast *b, $wiz } { }, 'cast 2';
38 check { undef *a } { }, 'undef';
40 check { dispell *a, $wiz } { }, 'dispell';