blob: f1199ac6a7d7f6048f2cafbfcf9df8b29dca4adc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!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
|