#!perl -T
-use Test::More tests => 14;
+use strict;
+use warnings;
+
+use Test::More tests => 16;
use Variable::Magic qw/wizard gensig getsig cast dispell/;
ok(!$@, "re-dispell croaks ($@)");
ok($res, 're-dispell invalid');
+$res = eval { dispell my $b, $wiz };
+ok(!$@, "dispell non-magic object fails ($@)");
+ok($res == 0, 'dispell non-magic object doesn\'t return 0');
+
$sig = gensig;
{
my $wiz = wizard sig => $sig;