X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F10-simple.t;h=99136bddb1dd0c960dcd1b5c7ea7d045c467e2eb;hb=017450c5da83c82c9149b5170c757ce03679b9a9;hp=a5d091701154b54c8aa83487eb61a97ac17b0227;hpb=14f66d40970bef63105be046a109c1a32859a8a0;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/10-simple.t b/t/10-simple.t
index a5d0917..99136bd 100644
--- a/t/10-simple.t
+++ b/t/10-simple.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 14;
+use Test::More tests => 16;
 
 use Variable::Magic qw/wizard gensig getsig cast dispell/;
 
@@ -32,6 +32,10 @@ $res = eval { dispell $a, $wiz };
 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;