citrun

commit 376b0f84252b960e4455915708d22172225d6c0f
parent ed2ee2b968cafbc02199e710d55a8ceb0d4ca856
Author: Kyle Milz <kyle@0x30.net>
Date:   Fri,  5 Aug 2016 14:54:49 -0600

Test: remove dependency on List::MoreUtils

Diffstat:
M
Test/Viewer.pm
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/Test/Viewer.pm b/Test/Viewer.pm
@@ -2,7 +2,6 @@ package Test::Viewer;
 
 use strict;
 use IO::Socket::UNIX;
-use List::MoreUtils qw( each_array );
 use Test::More;
 
 sub new {
@@ -75,8 +74,9 @@ sub cmp_static_data {
 	# Sort these alphabetically by file name (field 0).
 	my @sorted_tus = sort { $a->[0] cmp $b->[0] } @{ $self->{tus} };
 
-	my $it = each_array( @$known_good, @sorted_tus );
-	while ( my ($x, $y) = $it->() ) {
+	for my $x (@$known_good) {
+		my $y = shift @sorted_tus;
+
 		like( $y->[0],	qr/.*$x->[0]/,	"$x->[0]: filename check" );
 		is ( $y->[1],	$x->[1],	"$x->[0]: total lines check" );