Test cloning

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

diff --git a/t/23-clear.t b/t/23-clear.t
index 7836d3a2e219a90b78b13d3942a126731eed9665..ec8f9aaf0bcb6a1998baf19c38a32b038ca3c3d8 100644 (file)
--- 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');