Importing Variable-Magic-0.13.tar.gz

[perl/modules/Variable-Magic.git] / t / 12-sig.t

diff --git a/t/12-sig.t b/t/12-sig.t
index 6564d367291737fb8352832276a5cb4a7b2f69de..fa1a34ba45862a0d5b774fc56f6184f04cc2bd68 100644 (file)
--- 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 };