Commits

Toby Inkster committed 4dcc2e6

strictures for tests

Comments (0)

Files changed (3)

+use strict;
+use warnings FATAL => 'all';
 use Test::More tests => 3;
+
 BEGIN { use_ok('List::MapMulti') };
-
 my $iter = new_ok 'List::MapMulti::Iterator' => [ [1] ];
-
 can_ok $iter => qw(next current next_indices current_indices);
 
 =head1 PURPOSE
+use strict;
+use warnings FATAL => 'all';
 use Test::More tests => 2;
+
 use List::MapMulti;
 
 my @numbers = (2..10, qw/Jack Queen King Ace/);
+use strict;
+use warnings FATAL => 'all';
 use Test::More tests => 2;
+
 use List::MapMulti 'iterator_multi';
 
 my @numbers = (2..10, qw/Jack Queen King Ace/);
 {
 	$got .= "$n of $s|";
 
-	if ($n==6 and $s eq 'Hearts')
+	if ($n eq 6 and $s eq 'Hearts')
 	{
 		is_deeply(
 			[$iter->current_indices],