version/t/coretests.pm

28     $version = $CLASS->$method(5.005_03);
29     is ( "$version" , "5.00503" , '5.005_03 eq 5.00503' );
30     $version = $CLASS->$method(1.23);
31     is ( "$version" , "1.23" , '1.23 eq "1.23"' );
34     $version = $CLASS->$method(23);
35     is ( "$version" , 23 , '23 eq "23"' );
38     $version = $CLASS->$method("5.005_03");
39     is ( "$version" , "5.005_03" , '"5.005_03" eq "5.005_03"' );
40     $version = $CLASS->$method("v1.23");
41     is ( "$version" , "v1.23" , '"v1.23" eq "v1.23"' );
44     $version = $CLASS->$method("5.005");
45     is ( "$version" , "5.005" , '5.005 eq "5.005"' );
46     $version = $CLASS->$method("5.006.001");
47     is ( "$version" , "5.006.001" , '5.006.001 eq v5.6.1' );
49     $version = $CLASS->$method("v1.2.3_4");
50     is ( "$version" , "v1.2.3_4" , 'alpha version 1.2.3_4 eq v1.2.3_4' );
53     eval {my $version = $CLASS->$method("1.2_3_4")};
57     eval {my $version = $CLASS->$method("1.2_3.4")};
61     eval {my $version = $CLASS->$method("1_2")};
65     eval { $version = $CLASS->$method("1.2b3")};
69     eval { $version = $CLASS->$method("-1.23")};
75     eval{$version = $CLASS->$method("99 and 44/100 pure")};
80     eval{$version = $CLASS->$method("something")};
85     $version = $CLASS->$method("1.2.3");
88     ok ($version, 'boolean');
91     isa_ok ( $version, $CLASS );
94     is ( $version <=> $version, 0, '$version <=> $version == 0' );
95     ok ( $version == $version, '$version == $version' );
99     $version = $CLASS->$method("5.006.001");
101     ok ( $version == $version, '$version == $version' );
102     ok ( $version < $new_version, '$version < $new_version' );
103     ok ( $new_version > $version, '$new_version > $version' );
104     ok ( $version != $new_version, '$version != $new_version' );
108     ok ( $version < $new_version, '$version < $new_version' );
109     ok ( $new_version > $version, '$new_version > $version' );
110     ok ( $version != $new_version, '$version != $new_version' );
113     ok ( $version->numify() == 5.006001, '$version->numify() == 5.006001' );
114     ok ( $version->numify() <= 5.006001, '$version->numify() <= 5.006001' );
115     ok ( $version->numify() < 5.008, '$version->numify() < 5.008' );
119     $version = $CLASS->$method(1.002003);
120     ok ( $version == "1.2.3", '$version == "1.2.3"');
121     ok ( $version->numify == 1.002003, '$version->numify == 1.002003');
122     $version = $CLASS->$method("2002.09.30.1");
123     ok ( $version == "2002.9.30.1",'$version == 2002.9.30.1');
124     ok ( $version->numify == 2002.009030001,
128     $version = $CLASS->$method("1.2.3");
130     ok ( $version < $new_version, '$version < $new_version' );
131     ok ( $new_version > $version, '$new_version > $version' );
132     ok ( $version != $new_version, '$version != $new_version' );
134     $version = $CLASS->$method("1.2.4");
135     ok ( $version < $new_version, '$version < $new_version' );
136     ok ( $new_version > $version, '$new_version > $version' );
137     ok ( $version != $new_version, '$version != $new_version' );
140     $version = $CLASS->$method("1.2.3");
142     ok ( $version < $new_version, '$version < $new_version' );
143     ok ( $new_version > $version, '$new_version > $version' );
144     ok ( $version != $new_version, '$version != $new_version' );
145     ok ( !$version->is_alpha, '!$version->is_alpha');
148     $version = $CLASS->$method("1.2.4");
149     ok ( $version < $new_version, '$version < $new_version' );
150     ok ( $new_version > $version, '$new_version > $version' );
151     ok ( $version != $new_version, '$version != $new_version' );
153     $version = $CLASS->$method("1.2.34");
155     ok ( $version == $new_version, '$version == $new_version' );
157     $version = $CLASS->$method("v1.2.30");
159     ok ( $version == $new_version, '$version == $new_version' );
161     ok ( $version == $new_version, '$version == $new_version' );
163     ok ( $version < $new_version, '$version < $new_version' );
165     ok ( $version < $new_version, '$version < $new_version' );
167     ok ( $version > $new_version, '$version > $new_version' );
169     $version = $CLASS->$method("v1.2.3");
170     eval { () = $version < 'version' };
174     like $err, qr/^Invalid version format/, "error with $version < 'version'";
177     ok ( !eval { ++$version }, "noop ++" );
178     ok ( !eval { --$version }, "noop --" );
179     ok ( !eval { $version/1 }, "noop /" );
180     ok ( !eval { $version*3 }, "noop *" );
181     ok ( !eval { abs($version) }, "noop abs" );
187     $version = $CLASS->$qv_declare("1.2");
188     is ( "$version", "v1.2", $qv_declare.'("1.2") == "1.2.0"' );
189     $version = $CLASS->$qv_declare(1.2);
190     is ( "$version", "v1.2", $qv_declare.'(1.2) == "1.2.0"' );
195     ok (eval {$new_version = $CLASS->$method($version)},
197     ok ($new_version == $version, "class->$method($version) identical");
198     $new_version = $version->$method(0);
201     $new_version = $version->$method("1.2.3");
205     $version = new $CLASS qw$Revision: 1.2$;
206     ok ( $version == "1.2.0", 'qw$Revision: 1.2$ == 1.2.0' );
207     $version = new $CLASS qw$Revision: 1.2.3.4$;
208     ok ( $version == "1.2.3.4", 'qw$Revision: 1.2.3.4$ == 1.2.3.4' );
211     $version = $CLASS->$method("1.23_01");
212     is ( "$version" , "1.23_01", "CPAN-style alpha version" );
213     ok ( $version > 1.23, "1.23_01 > 1.23");
214     ok ( $version < 1.24, "1.23_01 < 1.24");
228 	$version = 0.58;
229 	eval "use lib '.'; use $package $version";
230 	unlike($@, qr/$package version $version/,
235 	cmp_ok($new_version,'==',$version, "Called as class method");
248 	$version += 0.01;
249 	eval "use lib '.'; use $package $version";
250 	like($@, qr/$package version $version/,
253 	$version =~ s/0+$//; #convert to string and remove trailing 0's
254 	chop($version);	# shorten by 1 digit, should still succeed
255 	eval "use lib '.'; use $package $version";
256 	unlike($@, qr/$package version $version/,
260 	$version += 0.1;
261 	eval "use lib '.'; use $package $version";
262 	like($@, qr/$package version $version/,
285 	ok (!defined($version), "Called as class method");
334 	$version = $CLASS->$method(1.2.3);
335 	ok("$version" eq "v1.2.3", '"$version" eq 1.2.3');
336 	$version = $CLASS->$method(1.0.0);
338 	ok($version == $new_version, '$version == $new_version');
341 	$version = &$qv_declare(1.2.3);
342 	ok("$version" eq "v1.2.3", 'v-string initialized $qv_declare()');
348 	$version = $CLASS->$method(v1.2.3_4);
350 	is($version, "v1.2.34", '"$version" eq "v1.2.34"');
351 	$version = $CLASS->$method(eval "v1.2.3_4");
352 	is($version, "v1.2.34", '"$version" eq "v1.2.34" (from eval)');
356     $version = $CLASS->$method("1");
357     ok($version->numify eq "1.000", "trailing zeros preserved");
358     $version = $CLASS->$method("1.0");
359     ok($version->numify eq "1.000", "trailing zeros preserved");
360     $version = $CLASS->$method("1.0.0");
361     ok($version->numify eq "1.000000", "trailing zeros preserved");
362     $version = $CLASS->$method("1.0.0.0");
363     ok($version->numify eq "1.000000000", "trailing zeros preserved");
366     $version = $CLASS->$method(".7");
367     ok($version->numify eq "0.700", "leading zero inferred");
370     $version = $CLASS->$method(" 1.7");
371     ok($version->numify eq "1.700", "leading space ignored");
374     ok("$version" ne 'undef', "Undef version comparison #1");
375     ok("$version" ne undef, "Undef version comparison #2");
376     $version = $CLASS->$method('undef');
380     $version = $CLASS->$method(undef);
383     ok($version == 'undef', "Undef version comparison #3");
384     ok($version ==  undef,  "Undef version comparison #4");
387     ok($version == 'undef', "Undef version comparison #5");
388     ok($version ==  undef,  "Undef version comparison #6");
390     $version = $CLASS->$method(0.000001);
496 	my $badv = bless { version => [1,2,3] }, $CLASS;
498 	my $badv2 = bless { qv => 1, version => [1,2,3] }, $CLASS;