1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!/usr/bin/perl -w
use strict;
use Test::More tests => 3;
use DhMakePerl::Command::make;
use DhMakePerl::Config;
my $maker
= DhMakePerl::Command::make->new( { cfg => DhMakePerl::Config->new } );
$maker->meta( { name => 'Foo::Bar', version => 'v1.002003' } );
eval { $maker->extract_name_ver; };
is($@, "", "Calling extract_name_ver should not die");
is($maker->perlname, "Foo-Bar", "Dist name should be Foo-Bar");
is($maker->version, "1.2.3", "Dist version should be 1.2.3");
|
