X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F10-simple.t;h=99136bddb1dd0c960dcd1b5c7ea7d045c467e2eb;hb=refs%2Ftags%2Fv0.09;hp=37d348e9f0b56a0c0b5b6cec9bab4bee3302e530;hpb=8556481280524737222300317146a23b801f6be0;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/10-simple.t b/t/10-simple.t
index 37d348e..99136bd 100644
--- a/t/10-simple.t
+++ b/t/10-simple.t
@@ -1,6 +1,9 @@
 #!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/;
 
@@ -29,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;