Merge pull request #9832 from pme/challenge-262

Challenge 262

1 files changed, 6 insertions, 6 deletions

diff --git a/challenge-262/peter-meszaros/perl/ch-1.pl b/challenge-262/peter-meszaros/perl/ch-1.pl
index a4a3be4d46..b739589c01 100755
--- a/challenge-262/peter-meszaros/perl/ch-1.pl
+++ b/challenge-262/peter-meszaros/perl/ch-1.pl
@@ -37,9 +37,9 @@ use Test2::V0 -no_srand => 1;
 use Data::Dumper;
 
 my $cases = [
-    [-3, 1, 2, -1, 3, -2, 4],
-    [-1, -2, -3, 1],
-    [1,2],
+    [[-3, 1, 2, -1, 3, -2, 4], 4, 'Example 1'],
+    [[-1, -2, -3, 1],          3, 'Example 2'],
+    [[1,2],                    2, 'Example 3'],
 ];
 
 sub max_positive_negative
@@ -58,9 +58,9 @@ sub max_positive_negative
 	return $pos > $neg ? $pos : $neg;
 }
 
-is(max_positive_negative($cases->[0]), 4, 'Example 1');
-is(max_positive_negative($cases->[1]), 3, 'Example 2');
-is(max_positive_negative($cases->[2]), 2, 'Example 3');
+for (@$cases) {
+    is(max_positive_negative($_->[0]), $_->[1], $_->[2]);
+}
 done_testing();
 
 exit 0;