Importing Variable-Magic-0.13.tar.gz

[perl/modules/Variable-Magic.git] / t / 23-clear.t

diff --git a/t/23-clear.t b/t/23-clear.t
index 35a49dd0bad4395301be9b7eb33ff4412b904900..ec8f9aaf0bcb6a1998baf19c38a32b038ca3c3d8 100644 (file)
--- a/t/23-clear.t
+++ b/t/23-clear.t
@@ -9,22 +9,22 @@ use Variable::Magic qw/wizard cast/;
 
 my $c = 0;
 my $wiz = wizard clear => sub { ++$c };
-ok($c == 0, 'clear : create wizard');
+is($c, 0, 'clear : create wizard');
 
 my @a = qw/a b c/;
 
 cast @a, $wiz;
-ok($c == 0, 'clear : cast array');
+is($c, 0, 'clear : cast array');
 
 @a = ();
-ok($c == 1, 'clear : clear array');
+is($c, 1,          'clear : clear array');
 ok(!defined $a[0], 'clear : clear array correctly');
 
 my %h = (foo => 1, bar => 2);
 
 cast %h, $wiz;
-ok($c == 1, 'clear : cast hash');
+is($c, 1, 'clear : cast hash');
 
 %h = ();
-ok($c == 2, 'clear : clear hash');
+is($c, 2,      'clear : clear hash');
 ok(!(keys %h), 'clear : clear hash correctly');