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;
21 my $wiz = init_watcher
22 [ qw/get set len clear free copy dup local fetch store exists delete/ ],
27 watch { cast *a, $wiz } { }, 'cast';
29 watch { local *b = *a } { }, 'assign to';
31 watch { *a = gensym() } { set => 1 }, 'assign';
35 watch { cast *b, $wiz } { }, 'cast 2';
38 watch { undef *a } { }, 'undef';
40 watch { dispell *a, $wiz } { }, 'dispell';