X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F23-clear.t;h=ec8f9aaf0bcb6a1998baf19c38a32b038ca3c3d8;hb=d8122850f4c201c5b849cebb1f9b7f2630ae4c15;hp=7836d3a2e219a90b78b13d3942a126731eed9665;hpb=77a84f75f33e3ee44e61182dec76699e23025375;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/23-clear.t b/t/23-clear.t
index 7836d3a..ec8f9aa 100644
--- a/t/23-clear.t
+++ b/t/23-clear.t
@@ -1,27 +1,30 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 7;
 
 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');