Commit | Line | Data |
2787609a |
1 | # -*- Mode: cperl; coding: utf-8; -*- |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | @INC = '../lib'; |
6 | } |
7 | |
8 | use strict; |
9 | use CPAN; |
10 | use vars qw($D $N); |
11 | |
12 | while (<DATA>) { |
13 | next if /^v/ && $]<5.006; # v-string tests are not for pre-5.6.0 |
14 | chomp; |
15 | s/\s*#.*//; |
16 | push @$D, [ split ]; |
17 | } |
18 | |
19 | $N = scalar @$D; |
20 | print "1..$N\n"; |
21 | |
22 | while (@$D) { |
23 | my($l,$r,$exp) = @{shift @$D}; |
24 | my $res = CPAN::Version->vcmp($l,$r); |
25 | if ($res != $exp){ |
26 | print "# l[$l]r[$r]exp[$exp]res[$res]\n"; |
27 | print "not "; |
28 | } |
29 | print "ok ", $N-@$D, "\n"; |
30 | } |
31 | |
32 | __END__ |
33 | 0 0 0 |
34 | 1 0 1 |
35 | 0 1 -1 |
36 | 1 1 0 |
37 | 1.1 0.0a 1 |
38 | 1.1a 0.0 1 |
39 | 1.2.3 1.1.1 1 |
40 | v1.2.3 v1.1.1 1 |
41 | v1.2.3 v1.2.1 1 |
42 | v1.2.3 v1.2.11 -1 |
43 | 1.2.3 1.2.11 1 # not what they wanted |
44 | 1.9 1.10 1 |
45 | VERSION VERSION 0 |
46 | 0.02 undef 1 |
47 | 1.57_00 1.57 1 |
48 | 1.5700 1.57 1 |
49 | 1.57_01 1.57 1 |
50 | 0.2.10 0.2 1 |
51 | 20000000.00 19990108 1 |
52 | 1.00 0.96 1 |
53 | 0.7.02 0.7 1 |
54 | 1.3a5 1.3 1 |
55 | undef 1.00 -1 |
56 | v1.0 undef 1 |
57 | v0.2.4 0.24 -1 |
58 | v1.0.22 122 -1 |
59 | 5.00556 v5.5.560 0 |
60 | 5.005056 v5.5.56 0 |
61 | 5.00557 v5.5.560 1 |
62 | 5.00056 v5.0.561 -1 |