From: Vincent Pit Date: Sun, 18 Jan 2009 23:09:52 +0000 (+0100) Subject: Convert t/34-glob.t to the new testing framework X-Git-Tag: v0.27~4 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=edb40826793e6ae2d30fe2f1c61bfff7b1df3afe;p=perl%2Fmodules%2FVariable-Magic.git Convert t/34-glob.t to the new testing framework --- diff --git a/t/34-glob.t b/t/34-glob.t index d5d62d8..47e6892 100644 --- a/t/34-glob.t +++ b/t/34-glob.t @@ -9,56 +9,32 @@ eval "use Symbol qw/gensym/"; if ($@) { plan skip_all => "Symbol::gensym required for testing magic for globs"; } else { - plan tests => 7; + plan tests => 2 * 8 + 1; diag "Using Symbol $Symbol::VERSION" if defined $Symbol::VERSION; } -use Variable::Magic qw/wizard cast dispell/; +use Variable::Magic qw/cast dispell/; -my @c = (0) x 12; -my @x = (0) x 12; +use lib 't/lib'; +use Variable::Magic::TestWatcher; -sub check { - is join(':', map { (defined) ? $_ : 'u' } @c[0 .. 11]), - join(':', map { (defined) ? $_ : 'u' } @x[0 .. 11]), - $_[0]; -} - -my $i = -1; -my $wiz = wizard get => sub { ++$c[0] }, - set => sub { ++$c[1] }, - len => sub { ++$c[2] }, - clear => sub { ++$c[3] }, - free => sub { ++$c[4] }, - copy => sub { ++$c[5] }, - dup => sub { ++$c[6] }, - local => sub { ++$c[7] }, - fetch => sub { ++$c[8] }, - store => sub { ++$c[9] }, - 'exists' => sub { ++$c[10] }, - 'delete' => sub { ++$c[11] }; -check('glob : create wizard'); +my $wiz = init + [ qw/get set len clear free copy dup local fetch store exists delete/ ], + 'glob'; local *a = gensym(); -cast *a, $wiz; -check('glob : cast'); +check { cast *a, $wiz } { }, 'cast'; -local *b = *a; -check('glob : assign to'); +check { local *b = *a } { }, 'assign to'; -*a = gensym(); -++$x[1]; -check('glob : assign'); +check { *a = gensym() } { set => 1 }, 'assign'; -{ +check { local *b = gensym(); - cast *b, $wiz; -} -check('glob : scope end'); + check { cast *b, $wiz } { }, 'cast 2'; +} { }, 'scope end'; -undef *a; -check('glob : undef'); +check { undef *a } { }, 'undef'; -dispell *a, $wiz; -check('glob : dispell'); +check { dispell *a, $wiz } { }, 'dispell';