X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F12-sig.t;h=fa1a34ba45862a0d5b774fc56f6184f04cc2bd68;hb=refs%2Ftags%2Fv0.14;hp=6564d367291737fb8352832276a5cb4a7b2f69de;hpb=fee1a480bc5d827590dc7394e0a77741bad86dc3;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/12-sig.t b/t/12-sig.t
index 6564d36..fa1a34b 100644
--- a/t/12-sig.t
+++ b/t/12-sig.t
@@ -13,16 +13,16 @@ my ($a, $b, $c, $d) = 1 .. 4;
 
 {
  my $wiz = eval { wizard sig => $sig };
- ok(!$@, "wizard creation error ($@)");
+ ok(!$@, "wizard creation doesn't croak ($@)");
  ok(defined $wiz, 'wizard is defined');
- ok(ref $wiz eq 'SCALAR', 'wizard is a scalar ref');
- ok($sig == getsig $wiz, 'wizard signature is correct');
+ is(ref $wiz, 'SCALAR', 'wizard is a scalar ref');
+ is($sig, getsig $wiz, 'wizard signature is correct');
 
  my $wiz2 = eval { wizard sig => $sig };
- ok(!$@, "wizard retrieve error ($@)");
+ ok(!$@, "wizard retreive doesn't croak ($@)");
  ok(defined $wiz2, 'retrieved wizard is defined');
- ok(ref $wiz2 eq 'SCALAR', 'retrieved wizard is a scalar ref');
- ok($sig == getsig $wiz2, 'retrieved wizard signature is correct');
+ is(ref $wiz2, 'SCALAR', 'retrieved wizard is a scalar ref');
+ is($sig, getsig $wiz2, 'retrieved wizard signature is correct');
 
  my $a = 1;
  my $res = eval { cast $a, $wiz };