xref: /openbsd/gnu/usr.bin/perl/cpan/version/t/10_lyon.t (revision 09467b48) 
1#! perl
2
3use Test::More qw/no_plan/;
4
5use version;
6
7# These values are from the Lyon consensus, as taken from
8# https://gist.github.com/dagolden/9559280
9
10ok(version->new(1.0203) == version->new('1.0203'));
11ok(version->new(1.02_03) == version->new('1.02_03'));
12ok(version->new(v1.2.3) == version->new('v1.2.3'));
13if ($] >= 5.008_001) {
14    ok(version->new(v1.2.3_0) == version->new('v1.2.3_0'));
15}
16
17cmp_ok(version->new(1.0203), '==', version->new('1.0203'));
18cmp_ok(version->new(1.02_03), '==', version->new('1.02_03'));
19cmp_ok(version->new(v1.2.3), '==', version->new('v1.2.3'));
20if ($] >= 5.008_001) {
21    cmp_ok(version->new(v1.2.3_0), '==', version->new('v1.2.3_0'));
22}
23
24cmp_ok(version->new('1.0203')->numify, '==', '1.0203');
25is(version->new('1.0203')->normal, 'v1.20.300');
26
27cmp_ok(version->new('1.02_03')->numify, '==', '1.0203');
28is(version->new('1.02_03')->normal, 'v1.20.300');
29
30cmp_ok(version->new('v1.2.30')->numify, '==', '1.002030');
31is(version->new('v1.2.30')->normal, 'v1.2.30');
32cmp_ok(version->new('v1.2.3_0')->numify, '==', '1.002030');
33is(version->new('v1.2.3_0')->normal, 'v1.2.30');
34
35is(version->new("1.0203")->stringify, "1.0203");
36is(version->new("1.02_03")->stringify, "1.02_03");
37is(version->new("v1.2.30")->stringify, "v1.2.30");
38is(version->new("v1.2.3_0")->stringify, "v1.2.3_0");
39is(version->new(1.0203)->stringify, "1.0203");
40is(version->new(1.02_03)->stringify, "1.0203");
41is(version->new(v1.2.30)->stringify, "v1.2.30");
42if ($] >= 5.008_001) {
43    is(version->new(v1.2.3_0)->stringify, "v1.2.30");
44}
45