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
|
# Copyright (C) 2002-2013 Free Software Foundation, Inc.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
use Automake::Version;
my $failed = 0;
sub test_version_compare
{
my ($left, $right, $result) = @_;
my @leftver = Automake::Version::split ($left);
my @rightver = Automake::Version::split ($right);
if ($#leftver == -1)
{
print "can't grok \"$left\"\n";
$failed = 1;
return;
}
if ($#rightver == -1)
{
print "can't grok \"$right\"\n";
$failed = 1;
return;
}
my $res = Automake::Version::compare (@leftver, @rightver);
if ($res != $result)
{
print "compare (\"$left\", \"$right\") = $res! (not $result?)\n";
$failed = 1;
}
my $check_expected = ($result == 0 || $result == 1) ? 0 : 1;
# Exception for 'foo' fork.
$check_expected = 1
if ($right =~ /foo/ && !($left =~ /foo/));
my $check = Automake::Version::check ($left, $right);
if ($check != $check_expected)
{
print "check (\"$left\", \"$right\") = $check! (not $check_expected?)\n";
$failed = 1;
}
}
sub test_bad_versions
{
my ($ver) = @_;
my @version = Automake::Version::split ($ver);
if ($#version != -1)
{
print "shouldn't grok \"$ver\"\n";
$failed = 1;
}
}
my @tests = (
# basics
['1.0', '2.0', -1],
['2.0', '1.0', 1],
['1.2', '1.2', 0],
['1.1', '1.2', -1],
['1.2', '1.1', 1],
# alphas
['1.4', '1.4g', -1],
['1.4g', '1.5', -1],
['1.4g', '1.4', 1],
['1.5', '1.4g', 1],
['1.4a', '1.4g', -1],
['1.5a', '1.3g', 1],
['1.6a', '1.6a', 0],
# micros
['1.5.1', '1.5', 1],
['1.5.0', '1.5', 0],
['1.5.4', '1.6.1', -1],
# micros and alphas
['1.5a', '1.5.1', 1],
['1.5a', '1.5.1a', 1],
['1.5a', '1.5.1f', 1],
['1.5', '1.5.1a', -1],
['1.5.1a', '1.5.1f', -1],
['1.5.1f', '1.5.1a', 1],
['1.5.1f', '1.5.1f', 0],
# special exceptions
['1.6-p5a', '1.6.5a', 0],
['1.6', '1.6-p5a', -1],
['1.6-p4b', '1.6-p5a', -1],
['1.6-p4b', '1.6-foo', 1],
['1.6-p4b', '1.6a-foo', -1],
['1.6-p5', '1.6.5', 0],
['1.6a-foo', '1.6a-foo', 0],
);
my @bad_versions = (
'', 'a', '1', '1a', '1.2.3.4', '-1.2'
);
test_version_compare (@{$_}) foreach @tests;
test_bad_versions ($_) foreach @bad_versions;
exit $failed;
### Setup "GNU" style for perl-mode and cperl-mode.
## Local Variables:
## perl-indent-level: 2
## perl-continued-statement-offset: 2
## perl-continued-brace-offset: 0
## perl-brace-offset: 0
## perl-brace-imaginary-offset: 0
## perl-label-offset: -2
## cperl-indent-level: 2
## cperl-brace-offset: 0
## cperl-continued-brace-offset: 0
## cperl-label-offset: -2
## cperl-extra-newline-before-brace: t
## cperl-merge-trailing-else: nil
## cperl-continued-statement-offset: 2
## End:
|
