X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F21-set.t;h=095b482c6499d8b4e28fcf0c24fb20f821e36ade;hb=a86e3e47a167afadf7de1231d6401a1139330ad0;hp=f731c0d02161111149bd216308e0dc873e06b18d;hpb=56d08a38a664736a762edf46817a346482c4004f;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/21-set.t b/t/21-set.t
index f731c0d..095b482 100644
--- a/t/21-set.t
+++ b/t/21-set.t
@@ -9,21 +9,21 @@ use Variable::Magic qw/wizard cast/;
 
 my $c = 0;
 my $wiz = wizard set => sub { ++$c };
-ok($c == 0, 'get : create wizard');
+is($c, 0, 'get : create wizard');
 
 my $a = 0;
 cast $a, $wiz;
-ok($c == 0, 'get : cast');
+is($c, 0, 'get : cast');
 
 my $n = int rand 1000;
 $a = $n;
-ok($c == 1, 'set : assign');
-ok($a == $n, 'set : assign correctly');
+is($c, 1,  'set : assign');
+is($a, $n, 'set : assign correctly');
 
 ++$a;
-ok($c == 2, 'set : increment');
-ok($a == $n + 1, 'set : increment correctly');
+is($c, 2,      'set : increment');
+is($a, $n + 1, 'set : increment correctly');
 
 --$a;
-ok($c == 3, 'set : decrement');
-ok($a == $n, 'set : decrement correctly');
+is($c, 3,  'set : decrement');
+is($a, $n, 'set : decrement correctly');