6 use Test::More tests => 11 + 2 * 5 + 7;
8 use CPANPLUS::Dist::Gentoo::Maps;
11 unshift @_, undef if @_ == 1;
12 goto &CPANPLUS::Dist::Gentoo::Maps::version_c2g
15 is vc2g('1'), '1.0.0', "version_c2g('1')";
16 is vc2g('v1'), '1', "version_c2g('v1')";
17 is vc2g('..1'), '1.0.0', "version_c2g('..1')";
18 is vc2g('1.0'), '1.0.0', "version_c2g('1.0')";
19 is vc2g('v1.0'), '1.0', "version_c2g('v1.0')";
20 is vc2g('1._0'), '1.0.0_rc', "version_c2g('1._0')";
21 is vc2g('1_1'), '11.0.0_rc', "version_c2g('1_1')";
22 is vc2g('1_.1'), '1.100.0_rc', "version_c2g('1_.1')";
23 is vc2g('1_.1._2'), '1.1.2_rc', "version_c2g('1_.1._2')";
24 is vc2g('1_.1_2'), '1.120.0_rc', "version_c2g('1_.1_2')";
25 is vc2g('1_.1_.2'), '1.1.2_rc', "version_c2g('1_.1_.2')";
27 for my $test ([ '0.12' => '0.12' ], [ '0.1234' => '0.1234' ]) {
35 for my $dist (@dists) {
36 is vc2g($dist, $test->[0]), $test->[1], "'version_c2g('$dist', '$test->[0]')";
40 *pvc2g = \&CPANPLUS::Dist::Gentoo::Maps::perl_version_c2g;
42 is pvc2g('5'), '5', "perl_version_c2g('5')";
43 is pvc2g('5.1'), '5.1', "perl_version_c2g('5.1')";
44 is pvc2g('5.01'), '5.10', "perl_version_c2g('5.01')";
45 is pvc2g('5.10'), '5.10', "perl_version_c2g('5.10')";
46 is pvc2g('5.1.2'), '5.1.2', "perl_version_c2g('5.1.2')";
47 is pvc2g('5.01.2'), '5.1.2', "perl_version_c2g('5.01.2')";
48 is pvc2g('5.01002'), '5.10.20', "perl_version_c2g('5.01002')";