X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F15-self.t;h=bf6aa350f5cdc6ac3ad1cffc11449b9bebb5167d;hb=3e2559bcd9ca00ce63c1d5b8d05defbdb9b71e7a;hp=504c4b217bfb46499b8bb0c321d87534df07d47b;hpb=ff3e3f39b252f61a6061d3e3de3f24147bbdd77d;p=perl%2Fmodules%2FVariable-Magic.git diff --git a/t/15-self.t b/t/15-self.t index 504c4b2..bf6aa35 100644 --- a/t/15-self.t +++ b/t/15-self.t @@ -5,7 +5,7 @@ use warnings; use Test::More tests => 17; -use Variable::Magic qw/wizard cast dispell getdata getsig/; +use Variable::Magic qw; my $c = 0; @@ -39,7 +39,6 @@ my $c = 0; $w = getdata $wiz, $wiz; is($c, 1, 'getdata on magical self doesn\'t trigger callbacks'); - # is(getsig($w), getsig($wiz), 'getdata returns the correct wizard'); $res = eval { dispell $wiz, $wiz }; is($@, '', 're-dispell on self doesn\'t croak');