6 use Test::More tests => 10 + 7;
8 use CPANPLUS::Dist::Gentoo::Maps;
10 *vc2g = \&CPANPLUS::Dist::Gentoo::Maps::version_c2g;
12 is vc2g('1'), '1', "version_c2g('1')";
13 is vc2g('a1b'), '1', "version_c2g('a1b')";
14 is vc2g('..1'), '1', "version_c2g('..1')";
15 is vc2g('1.0'), '1.0', "version_c2g('1.0')";
16 is vc2g('1._0'), '1.0', "version_c2g('1._0')";
17 is vc2g('1_1'), '1_p1', "version_c2g('1_1')";
18 is vc2g('1_.1'), '1_p1', "version_c2g('1_.1')";
19 is vc2g('1_.1._2'), '1_p1.2', "version_c2g('1_.1._2')";
20 is vc2g('1_.1_2'), '1_p1.2', "version_c2g('1_.1_2')";
21 is vc2g('1_.1_.2'), '1_p1.2', "version_c2g('1_.1_.2')";
23 *pvc2g = \&CPANPLUS::Dist::Gentoo::Maps::perl_version_c2g;
25 is pvc2g('5'), '5', "perl_version_c2g('5')";
26 is pvc2g('5.1'), '5.1', "perl_version_c2g('5.1')";
27 is pvc2g('5.01'), '5.10', "perl_version_c2g('5.01')";
28 is pvc2g('5.10'), '5.10', "perl_version_c2g('5.10')";
29 is pvc2g('5.1.2'), '5.1.2', "perl_version_c2g('5.1.2')";
30 is pvc2g('5.01.2'), '5.1.2', "perl_version_c2g('5.01.2')";
31 is pvc2g('5.01002'), '5.10.20', "perl_version_c2g('5.01002')";