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
|
#!/usr/bin/perl -w
use Linux::KernelSort;
my $kernel = new Linux::KernelSort;
$kernel->{debug} = 0;
my $version1 = "2.6.19";
my $version2 = "2.6.19-rc2-git7";
if ($kernel->version_check($version1)) {
print "Invalid version: $version1\n";
} else {
print "Valid version: $version1\n";
}
if ($kernel->version_check("$version2")) {
print "Invalid version: $version2\n";
} else {
print "Valid version: $version2\n";
}
if ($kernel->compare($version1, $version2) == 1) {
print "GOOD: $version1 > $version2\n";
} else {
print "BAD: tried $version1 > $version2\n";
}
print "------------------\n";
if ($kernel->compare($version2, $version1) == -1) {
print "GOOD: $version2 < $version1\n";
} else {
print "BAD: tried $version2 < $version1\n";
}
print "------------------\n";
if ($kernel->compare($version1, $version1) == 0) {
print "GOOD: $version1 == $version1\n";
} else {
print "BAD: tried $version1 == $version1\n";
}
print "------------------\n";
if ($kernel->compare($version2, $version2) == 0) {
print "GOOD: $version2 == $version2\n";
} else {
print "BAD: tried $version2 == $version2\n";
}
print "------------------\n";
if ($kernel->compare("2.6.18-rc2-git2", "2.6.18-rc2-mm1") > 0) {
print "GOOD: 2.6.18-rc2-git2 > 2.6.18-rc2-mm1\n";
} else {
print "BAD: tried 2.6.18-rc2-git2 > 2.6.18-rc2-mm1\n";
}
print "------------------\n";
if ($kernel->compare("2.6.18-rc2-mm1", "2.6.18-rc2") > 0) {
print "GOOD: 2.6.18-rc2-mm1 > 2.6.18-rc2\n";
} else {
print "BAD: tried 2.6.18-rc2-mm1 > 2.6.18-rc2\n";
}
print "------------------\n";
if ($kernel->compare("2.6.18-mm1", "2.6.18-git1") < 0) {
print "GOOD: 2.6.18-mm1 < 2.6.18-git1\n";
} else {
print "BAD: tried 2.6.18-mm1 < 2.6.18-git1\n";
}
print "------------------\n";
if ($kernel->compare("2.6.18-mm2", "2.6.18-mm1") > 0) {
print "GOOD: 2.6.18-mm2 > 2.6.18-mm1\n";
} else {
print "BAD: tried 2.6.18-mm2 > 2.6.18-mm1\n";
}
print "------------------\n";
if ($kernel->compare("test-2.6.18", "2.6.18") < 0){
print "GOOD: test-2.6.18 < 2.6.18\n";
} else {
print "BAD: test-2.6.18 < 2.6.18\n";
}
print "------------------\n";
if ($kernel->compare("test-2.6.18", "foo-2.6.18-bar") == 0){
print "GOOD: test-2.6.18 == foo-2.6.18-bar\n";
} else {
print "BAD: test-2.6.18 != foo-2.6.18-bar\n";
}
print "------------------\n";
if ($kernel->compare("2.6.18", "2.6.18-foobar") > 0){
print "GOOD: 2.6.18 > 2.6.18-foobar\n";
} else {
print "BAD: tried 2.6.18 > 2.6.18-foobar\n";
}
print "------------------\n";
if ($kernel->compare("2.6.18", "2.6.18-scsi-misc4") < 0){
print "GOOD: 2.6.18 < 2.6.18-scsi-misc4\n";
} else {
print "BAD: tried 2.6.18 > 2.6.18-scsi-misc4\n";
}
print "------------------\n";
if ($kernel->compare("2.6.18-rc1", "2.6.19-rc1-scsi-misc2") < 0) {
print "GOOD: 2.6.18-rc1 < 2.6.18-rc1-scsi-misc2\n";
} else {
print "BAD: tried 2.6.18-rc2 > 2.6.18-rc1-scsi-misc2\n";
}
print "------------------\n";
my @kernel_list = ( '2.6.19',
'2.6.15',
'2.6.18',
'2.6.18-mm2',
'2.6.19-mm2',
'2.6.18-rc2',
'2.6.18-rc2-mm2',
'2.6.18-rc2-git2',
'2.6.18-rc2-git1',
'2.6.18-rc2-git35',
'2.6.18-rc2-scsi-misc5',
'2.6.18-rc2-scsi-rc-fixes3',
'2.6.18-rc10',
'2.6.18-mm1',
'2.6.18-rc2-mm1',
'bad-2.6.18',
'2.6.18-foo',
'2.6.bad');
my @sorted_list = $kernel->sort(@kernel_list);
print "@sorted_list";
|
