#!perl
use strict;
use warnings;
use CPAN::Mini::Inject;
use Test::More tests => 2;
{
# _fmtmodule
my @tests = (
{
in => [ 'foo', 'foo.tar.gz', '0.01' ],
out => 'foo 0.01 foo.tar.gz',
},
{
in => [
'fooIsAModuleWithAReallyLongNameSoLong'
. 'InFactThatItScrewsWithTheFormatting',
'foo.tar.gz',
'0.01'
],
out => 'fooIsAModuleWithAReallyLongNameSoLong'
. 'InFactThatItScrewsWithTheFormatting 0.01 foo.tar.gz',
},
);
for my $test ( @tests ) {
my $got = CPAN::Mini::Inject::_fmtmodule( @{ $test->{in} } );
is $got, $test->{out}, '_fmtmodule';
}
}
# vim:ts=2:sw=2:et:ft=perl