diff options
Diffstat (limited to 'cpan/Module-Build/t')
-rw-r--r-- | cpan/Module-Build/t/install.t | 6 | ||||
-rw-r--r-- | cpan/Module-Build/t/metadata.t | 15 |
2 files changed, 19 insertions, 2 deletions
diff --git a/cpan/Module-Build/t/install.t b/cpan/Module-Build/t/install.t index ffe8afca01..2d487f679b 100644 --- a/cpan/Module-Build/t/install.t +++ b/cpan/Module-Build/t/install.t @@ -2,7 +2,7 @@ use strict; use lib 't/lib'; -use MBTest tests => 34; +use MBTest tests => 35; blib_load('Module::Build'); @@ -166,6 +166,10 @@ is $@, ''; '--install_base', $basedir])}; is $@, ''; + eval {$mb->run_perl_script($cmd, [], ['install', '--destdir', $destdir, + '--install_base', $basedir, '--install_base', $basedir])}; + is $@, ''; + $install_to = File::Spec->catfile($destdir, $libdir, $dist->name ) . '.pm'; is -e $install_to, 1, "Look for file at $install_to"; diff --git a/cpan/Module-Build/t/metadata.t b/cpan/Module-Build/t/metadata.t index a495f157b4..4401e1a62d 100644 --- a/cpan/Module-Build/t/metadata.t +++ b/cpan/Module-Build/t/metadata.t @@ -2,7 +2,7 @@ use strict; use lib 't/lib'; -use MBTest tests => 52; +use MBTest tests => 53; blib_load('Module::Build'); blib_load('Module::Build::ConfigData'); @@ -296,7 +296,20 @@ is_deeply($provides, version => '1.23' }}); # XXX should be 2.34? like( $err, qr/already declared/, ' with conflicting versions reported' ); +# Missing version should not show up in provides as version "0" +$dist->change_file( 'lib/Simple.pm', <<'---' ); +package Foo; +$VERSION = undef; +1; +--- +$dist->regen( clean => 1 ); +$err = stderr_of( sub { $mb = new_build() } ); +$err = stderr_of( sub { $provides = $mb->find_dist_packages } ); +is_deeply($provides, + {'Foo' => { file => $simple_file } }, + "undef \$VERSION is omitted from 'provides'" +); ############################## Multiple Modules |