t/12-maps-version.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 11 + 2 * 5 + 7;
   7
   8 use CPANPLUS::Dist::Gentoo::Maps;
   9
  10 *vc2g = sub {
  11  unshift @_, undef if @_ == 1;
  12  goto &CPANPLUS::Dist::Gentoo::Maps::version_c2g
  13 };
  14
  15 is vc2g('1'),       '1',      "version_c2g('1')";
  16 is vc2g('v1'),      '1',      "version_c2g('v1')";
  17 is vc2g('..1'),     '1',      "version_c2g('..1')";
  18 is vc2g('1.0'),     '1.0',    "version_c2g('1.0')";
  19 is vc2g('v1.0'),    '1.0',    "version_c2g('v1.0')";
  20 is vc2g('1._0'),    '1.0',    "version_c2g('1._0')";
  21 is vc2g('1_1'),     '1_p1',   "version_c2g('1_1')";
  22 is vc2g('1_.1'),    '1_p1',   "version_c2g('1_.1')";
  23 is vc2g('1_.1._2'), '1_p1.2', "version_c2g('1_.1._2')";
  24 is vc2g('1_.1_2'),  '1_p12',  "version_c2g('1_.1_2')";
  25 is vc2g('1_.1_.2'), '1_p12',  "version_c2g('1_.1_.2')";
  26
  27 for my $test ([ '0.12' => '0.12' ], [ '0.1234' => '0.12.34' ]) {
  28  my @dists = qw<
  29   ExtUtils-CBuilder
  30   ExtUtils-ParseXS
  31   Module-Build
  32   Time-HiRes
  33   Time-Local
  34  >;
  35  for my $dist (@dists) {
  36   is vc2g($dist, $test->[0]), $test->[1], "'version_c2g('$dist', '$test->[0]')";
  37  }
  38 }
  39
  40 *pvc2g = \&CPANPLUS::Dist::Gentoo::Maps::perl_version_c2g;
  41
  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')";