X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F23-clear.t;h=ec8f9aaf0bcb6a1998baf19c38a32b038ca3c3d8;hb=a86e3e47a167afadf7de1231d6401a1139330ad0;hp=35a49dd0bad4395301be9b7eb33ff4412b904900;hpb=56d08a38a664736a762edf46817a346482c4004f;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/23-clear.t b/t/23-clear.t
index 35a49dd..ec8f9aa 100644
--- 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');