X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F12-maps-version.t;h=13586ce54aff64caa570b42d036bab9ee6939492;hb=ac86d926fe1f232054032ab4f36c301b8e5eccaa;hp=80a4baae45dc9db912ff903544d67a3cb05c3d8b;hpb=39dcc4f5ffa5f01ec7854c63fba5c70e7b963fd8;p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git diff --git a/t/12-maps-version.t b/t/12-maps-version.t index 80a4baa..13586ce 100644 --- a/t/12-maps-version.t +++ b/t/12-maps-version.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 10 + 24; +use Test::More tests => 10 + 7; use CPANPLUS::Dist::Gentoo::Maps; @@ -20,36 +20,12 @@ is vc2g('1_.1._2'), '1_p1.2', "version_c2g('1_.1._2')"; is vc2g('1_.1_2'), '1_p1.2', "version_c2g('1_.1_2')"; is vc2g('1_.1_.2'), '1_p1.2', "version_c2g('1_.1_.2')"; -*vgcmp = \&CPANPLUS::Dist::Gentoo::Maps::version_gcmp; +*pvc2g = \&CPANPLUS::Dist::Gentoo::Maps::perl_version_c2g; -eval { vgcmp('dongs', 1) }; -like $@, qr/Couldn't\s+parse\s+version\s+string/, "version_gcmp('dongs', 1)"; - -eval { vgcmp(1, 'dongs') }; -like $@, qr/Couldn't\s+parse\s+version\s+string/, "version_gcmp(1, 'dongs')"; - -is vgcmp(undef, 0), 0, 'version_gcmp(undef, 0)'; -is vgcmp(0, 0), 0, 'version_gcmp(0, 0)'; -is vgcmp(1, 0), 1, 'version_gcmp(1, 0)'; -is vgcmp(0, 1), -1, 'version_gcmp(0, 1)'; -is vgcmp(1, 1), 0, 'version_gcmp(1, 1)'; - -is vgcmp('1.0', 1), 0, "version_gcmp('1.0', 1)"; -is vgcmp('1.1', 1), 1, "version_gcmp('1.1', 1)"; -is vgcmp('1.1', '1.0'), 1, "version_gcmp('1.1', '1.0')"; -is vgcmp(1, '1.0'), 0, "version_gcmp(1, '1.0')"; -is vgcmp(1, '1.1'), -1, "version_gcmp(1, '1.1')"; -is vgcmp('1.0', '1.1'), -1, "version_gcmp('1.0', '1.1')"; - -is vgcmp('1.0_p0', '1.0_p0'), 0, "version_gcmp('1.0_p0', '1.0_p0')"; -is vgcmp('1.0_p0', '1.0_p1'), -1, "version_gcmp('1.0_p0', '1.0_p1')"; -is vgcmp('1.1_p0', '1.0_p1'), 1, "version_gcmp('1.1_p0', '1.0_p1')"; -is vgcmp('1.1_p0', '1.1_p0.1'), -1, "version_gcmp('1.1_p0', '1.1_p0.1')"; -is vgcmp('1.1_p0.1', '1.1_p0.1'), 0, "version_gcmp('1.1_p0.1', '1.1_p0.1')"; - -is vgcmp('1.2_p0-r0', '1.2_p0'), 0, "version_gcmp('1.2_p0-r0', '1.2_p0')"; -is vgcmp('1.2_p0-r1', '1.2_p0'), 1, "version_gcmp('1.2_p0-r1', '1.2_p0')"; -is vgcmp('1.2-r0', '1.2_p0'), 0, "version_gcmp('1.2-r0', '1.2_p0')"; -is vgcmp('1.2-r1', '1.2_p0'), 1, "version_gcmp('1.2-r1', '1.2_p0')"; -is vgcmp('1.2-r1', '1.2_p1'), -1, "version_gcmp('1.2-r1', '1.2_p1')"; -is vgcmp('1.2-r2', '1.2_p1'), -1, "version_gcmp('1.2-r2', '1.2_p1')"; +is pvc2g('5'), '5', "perl_version_c2g('5')"; +is pvc2g('5.1'), '5.1', "perl_version_c2g('5.1')"; +is pvc2g('5.01'), '5.10', "perl_version_c2g('5.01')"; +is pvc2g('5.10'), '5.10', "perl_version_c2g('5.10')"; +is pvc2g('5.1.2'), '5.1.2', "perl_version_c2g('5.1.2')"; +is pvc2g('5.01.2'), '5.1.2', "perl_version_c2g('5.01.2')"; +is pvc2g('5.01002'), '5.10.20', "perl_version_c2g('5.01002')";