X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git;a=blobdiff_plain;f=t%2F12-maps-version.t;h=13586ce54aff64caa570b42d036bab9ee6939492;hp=ea53f9bf07160a0accf0a93ed6f45314e9207cbc;hb=ac86d926fe1f232054032ab4f36c301b8e5eccaa;hpb=eefbd51540c659904876258e2b74dbbcfda37072

diff --git a/t/12-maps-version.t b/t/12-maps-version.t
index ea53f9b..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;
+use Test::More tests => 10 + 7;
 
 use CPANPLUS::Dist::Gentoo::Maps;
 
@@ -19,3 +19,13 @@ is vc2g('1_.1'),    '1_p1',   "version_c2g('1_.1')";
 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')";
+
+*pvc2g = \&CPANPLUS::Dist::Gentoo::Maps::perl_version_c2g;
+
+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')";