t/12-maps-version.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 10;
   7
   8 use CPANPLUS::Dist::Gentoo::Maps;
   9
  10 *vc2g  = \&CPANPLUS::Dist::Gentoo::Maps::version_c2g;
  11
  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')";