X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F15-self.t;h=cfca7080faaabace5c1b0732dd9b6a96494654e6;hb=8edd65482a48cda016b4677014dcb80b2b923cb1;hp=504c4b217bfb46499b8bb0c321d87534df07d47b;hpb=6db3edecb6ba3be691816c4c16f623227159a832;p=perl%2Fmodules%2FVariable-Magic.git diff --git a/t/15-self.t b/t/15-self.t index 504c4b2..cfca708 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/wizard cast dispell getdata/; 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');