1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
package HTML::Widgets::NavMenu::Test::Util;
use strict;
use warnings;
use Exporter;
use vars qw(@ISA);
@ISA = qw(Exporter);
use vars qw(@EXPORT);
@EXPORT = qw(compare_string_arrays);
sub compare_string_arrays
{
my $arr1 = shift;
my $arr2 = shift;
my $len_cmp = ( @$arr1 <=> @$arr2 );
if ($len_cmp)
{
print STDERR "Len is not the same: Expected "
. scalar(@$arr1)
. " vs. Result "
. scalar(@$arr2) . "\n";
return $len_cmp;
}
for my $i ( keys @$arr1 )
{
my $item_cmp = $arr1->[$i] cmp $arr2->[$i];
if ($item_cmp)
{
print STDERR
"Item[$i] is not the same:\nExpected: $arr1->[$i]\nResult: $arr2->[$i]\n";
return $item_cmp;
}
}
return 0;
}
1;
|
