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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
use warnings;
use strict;
use Test::More 'no_plan';
use Test::NoWarnings;
use_ok('Array::Compare');
my $comp = Array::Compare->new;
my @A = qw/0 1 2 3 4 5 6 7 8/;
my @B = qw/0 1 2 3 4 5 X 7 8/;
my @C = @A;
my %skip1 = (6 => 1);
my %skip2 = (5 => 1);
my %skip3 = (6 => 0);
# Compare two different arrays - should fail
ok(not $comp->compare(\@A, \@B));
# Compare two different arrays but ignore differing column - should succeed
$comp->Skip(\%skip1);
ok($comp->compare(\@A, \@B));
# Compare two different arrays after reset Skip - should fail
$comp->NoSkip();
ok(not $comp->compare(\@A, \@B));
# compare two different arrays but ignore non-differing column - should fail
$comp->Skip(\%skip2);
ok(not $comp->compare(\@A, \@B));
# Compare two different arrays but ignore differing column (badly)
# - should fail as skip value is 0
$comp->Skip(\%skip3);
ok(not $comp->compare(\@A, \@B));
# Change separator and compare two identical arrays - should succeed
$comp->Sep('|');
ok($comp->compare(\@A, \@C));
# These tests should generate fatal errors - hence the evals
# Compare a number with an array
eval { print $comp->compare(1, \@A) };
ok($@);
# Compare an array with a number
eval { print $comp->compare(\@A, 1) };
ok($@);
# Call compare with only one argument
eval { print $comp->compare(\@A) };
ok($@);
is($comp->full_compare([undef, 2, undef], [1, undef, undef]), 2);
# Switch to full comparison
$comp->DefFull(1);
ok($comp->DefFull);
$comp->Skip({});
# @A and @B differ in column 6
# Array context
my @diffs = $comp->compare(\@A, \@B);
is(@diffs, 1);
is($diffs[0], 6);
# Scalar context
my $diffs = $comp->compare(\@A, \@B);
is($diffs, 1);
# @A and @B differ in column 6 (which we ignore)
$comp->Skip(\%skip1);
# Array context
@diffs = $comp->compare(\@A, \@B);
is(@diffs, 0);
# Scalar context
$diffs = $comp->compare(\@A, \@B);
is($diffs, 0);
# @A and @C are the same
# Array context
@diffs = $comp->compare(\@A, \@C);
is(@diffs, 0);
# Scalar context
$diffs = $comp->compare(\@A, \@C);
is($diffs, 0);
# Test arrays of differing length
my @D = (0 .. 5);
my @E = (0 .. 10);
$comp->DefFull(0);
ok( not $comp->compare(\@D, \@E));
$comp->DefFull(1);
@diffs = $comp->compare(\@D, \@E);
is(@diffs, 5);
@diffs = $comp->compare(\@E, \@D);
is(@diffs, 5);
$diffs = $comp->compare(\@D, \@E);
is($diffs, 5);
# Test Perms
my @F = (1 .. 5);
my @G = qw(5 4 3 2 1);
my @H = qw(3 4 1 2 5);
my @I = qw(4 3 6 5 2);
ok($comp->perm(\@F, \@G));
ok($comp->perm(\@F, \@H));
ok(not $comp->perm(\@F, \@I));
my @J = ('array with', 'white space');
my @K = ('array with', "white\tspace");
ok($comp->compare(\@J, \@K));
# Turn off whitespace
$comp->WhiteSpace(0);
ok(not $comp->compare(\@J, \@K));
$comp->DefFull(0);
ok($comp->compare(\@J, \@K));
# Turn on whitespace
$comp->WhiteSpace(1);
ok(not $comp->compare(\@J, \@K));
my @L = qw(ArRay WiTh DiFfErEnT cAsEs);
my @M = qw(aRrAY wItH dIfFeReNt CaSeS);
ok(not $comp->compare(\@L, \@M));
# Turn of case sensitivity
$comp->Case(0);
ok($comp->compare(\@L, \@M));
$comp->DefFull(1);
ok(not $comp->compare(\@L, \@M));
my @N = (undef, 1 .. 3);
my @O = (undef, 1 .. 3);
$comp->DefFull(0);
ok($comp->compare(\@N, \@O));
$comp->DefFull(1);
ok(not $comp->compare(\@N, \@O));
|
