[Module-build-checkins] Module-Build/t install.t,1.17,1.18
Status: Beta
Brought to you by:
kwilliams
Menu
▾
▴
[Module-build-checkins] Module-Build/t install.t,1.17,1.18
|
From: Ken W. <kwi...@us...> - 2005-04-13 01:08:29
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30752/t Modified Files: install.t Log Message: Switch to Test::More Index: install.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/install.t,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- install.t 12 Apr 2005 03:43:10 -0000 1.17 +++ install.t 13 Apr 2005 01:08:20 -0000 1.18 @@ -1,15 +1,16 @@ use strict; -use Test; -BEGIN { plan tests => 31 } +use File::Spec; +BEGIN { + my $common_pl = File::Spec->catfile('t', 'common.pl'); + require $common_pl; +} +use Test::More (tests => 34); use Module::Build; -use File::Spec; use File::Path; use Config; -my $common_pl = File::Spec->catfile('t', 'common.pl'); -require $common_pl; my $start_dir = Module::Build->cwd; @@ -30,7 +31,7 @@ { eval {$build->dispatch('install', destdir => $destdir)}; - ok $@, ''; + is $@, ''; my $libdir = strip_volume( $build->install_destination('lib') ); my $install_to = File::Spec->catfile($destdir, $libdir, 'Sample.pm'); @@ -39,18 +40,18 @@ local @INC = (@INC, File::Spec->catdir($destdir, $libdir)); eval {require Sample}; - ok $@, ''; + is $@, ''; # Make sure there's a packlist installed my $archdir = $build->install_destination('arch'); my ($v, $d) = File::Spec->splitpath($archdir, 1); my $packlist = File::Spec->catdir($destdir, $d, 'auto', 'Sample', '.packlist'); - ok -e $packlist, 1, "$packlist should be written"; + is -e $packlist, 1, "$packlist should be written"; } { eval {$build->dispatch('install', installdirs => 'core', destdir => $destdir)}; - ok $@, ''; + is $@, ''; my $libdir = strip_volume( $Config{installprivlib} ); my $install_to = File::Spec->catfile($destdir, $libdir, 'Sample.pm'); print "Should have installed module as $install_to\n"; @@ -60,7 +61,7 @@ { my $libdir = File::Spec->catdir(File::Spec->rootdir, 'foo', 'bar'); eval {$build->dispatch('install', install_path => {lib => $libdir}, destdir => $destdir)}; - ok $@, ''; + is $@, ''; my $install_to = File::Spec->catfile($destdir, $libdir, 'Sample.pm'); print "Should have installed module as $install_to\n"; ok -e $install_to; @@ -69,7 +70,7 @@ { my $libdir = File::Spec->catdir(File::Spec->rootdir, 'foo', 'base'); eval {$build->dispatch('install', install_base => $libdir, destdir => $destdir)}; - ok $@, ''; + is $@, ''; my $install_to = File::Spec->catfile($destdir, $libdir, 'lib', 'perl5', 'Sample.pm'); print "Should have installed module as $install_to\n"; ok -e $install_to; @@ -79,27 +80,31 @@ # Test the ConfigData stuff $build->config_data(foo => 'bar'); - $build->feature(baz => 1); + $build->features(baz => 1); + $build->auto_features(auto_foo => {requires => {'File::Spec' => 0}}); eval {$build->dispatch('install', destdir => $destdir)}; - ok $@, ''; + is $@, ''; my $libdir = strip_volume( $build->install_destination('lib') ); local @INC = (@INC, File::Spec->catdir($destdir, $libdir)); eval {require Sample::ConfigData}; - - if ($@) { - ok $@, ''; # Show what the failure was - skip_subtest("Couldn't reload ConfigData") for 1..3; - } else { + is $build->feature('auto_foo'), 1; + + SKIP: + { + skip $@, 5 if @_; # Make sure the values are present - ok( Sample::ConfigData->config('foo'), 'bar' ); + is( Sample::ConfigData->config('foo'), 'bar' ); ok( Sample::ConfigData->feature('baz') ); + ok( Sample::ConfigData->feature('auto_foo') ); + ok( not Sample::ConfigData->feature('nonexistent') ); +<STDIN>; # Add a new value to the config set Sample::ConfigData->set_config(floo => 'bhlar'); - ok( Sample::ConfigData->config('floo'), 'bhlar' ); + is( Sample::ConfigData->config('floo'), 'bhlar' ); # Make sure it actually got written Sample::ConfigData->write; @@ -108,22 +113,22 @@ local $^W; # Avoid warnings for subroutine redefinitions require Sample::ConfigData; } - ok( Sample::ConfigData->config('floo'), 'bhlar' ); + is( Sample::ConfigData->config('floo'), 'bhlar' ); } } eval {$build->dispatch('realclean')}; -ok $@, ''; +is $@, ''; { # Try again by running the script rather than with programmatic interface my $libdir = File::Spec->catdir('', 'foo', 'lib'); eval {$build->run_perl_script('Build.PL', [], ['--install_path', "lib=$libdir"])}; - ok $@, ''; + is $@, ''; eval {$build->run_perl_script('Build', [], ['install', '--destdir', $destdir])}; - ok $@, ''; + is $@, ''; my $install_to = File::Spec->catfile($destdir, $libdir, 'Sample.pm'); print "# Should have installed module as $install_to\n"; ok -e $install_to; @@ -131,13 +136,13 @@ my $basedir = File::Spec->catdir('', 'bar'); eval {$build->run_perl_script('Build', [], ['install', '--destdir', $destdir, '--install_base', $basedir])}; - ok $@, ''; + is $@, ''; $install_to = File::Spec->catfile($destdir, $libdir, 'Sample.pm'); - ok -e $install_to, 1, "Look for file at $install_to"; + is -e $install_to, 1, "Look for file at $install_to"; eval {$build->dispatch('realclean')}; - ok $@, ''; + is $@, ''; } { @@ -146,24 +151,24 @@ install_base => File::Spec->catdir('', 'foo'), install_path => {lib => File::Spec->catdir('', 'bar')}); ok $build; - ok $build->install_destination('lib'), File::Spec->catdir('', 'bar'); + is $build->install_destination('lib'), File::Spec->catdir('', 'bar'); } { # _find_file_by_type() isn't a public method, but this is currently # the only easy way to test that it works properly. my $pods = $build->_find_file_by_type('pod', 'lib'); - ok keys %$pods, 1; + is keys %$pods, 1; my $expect = $build->localize_file_path('lib/Sample/Docs.pod'); - ok $pods->{$expect}, $expect; + is $pods->{$expect}, $expect; my $pms = $build->_find_file_by_type('awefawef', 'lib'); ok $pms; - ok keys %$pms, 0; + is keys %$pms, 0; $pms = $build->_find_file_by_type('pod', 'awefawef'); ok $pms; - ok keys %$pms, 0; + is keys %$pms, 0; } sub strip_volume { |
