Importing Variable-Magic-0.13.tar.gz

[perl/modules/Variable-Magic.git] / t / 21-set.t

diff --git a/t/21-set.t b/t/21-set.t
index 591514235b6f2ae916f08c3297fa1f6af4b84992..095b482c6499d8b4e28fcf0c24fb20f821e36ade 100644 (file)
--- a/t/21-set.t
+++ b/t/21-set.t
@@ -1,26 +1,29 @@
 #!perl -T
 
+use strict;
+use warnings;
+
 use Test::More tests => 8;
 
 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');