[Module-build-checkins] Module-Build/t runthrough.t,1.51,1.52
Status: Beta
Brought to you by:
kwilliams
|
From: Randy W. S. <si...@us...> - 2005-06-28 05:10:41
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12610/t Modified Files: runthrough.t Log Message: use Test::More Index: runthrough.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/runthrough.t,v retrieving revision 1.51 retrieving revision 1.52 diff -u -d -r1.51 -r1.52 --- runthrough.t 7 Jan 2005 10:15:54 -0000 1.51 +++ runthrough.t 28 Jun 2005 05:10:32 -0000 1.52 @@ -1,19 +1,27 @@ +#!/usr/bin/perl -w + +use lib 't/lib'; use strict; -use Test; -BEGIN { plan tests => 28 } -use Module::Build; -use File::Spec; -use File::Path; -use Config; +use Test::More tests => 28; -ok(1); -ok $INC{'Module/Build.pm'}, '/blib/', "Make sure version from blib/ is loaded"; -my $common_pl = File::Spec->catfile('t', 'common.pl'); +use File::Spec (); +my $common_pl = File::Spec->catfile( 't', 'common.pl' ); require $common_pl; -######################### End of black magic. + +use Cwd (); +my $cwd = Cwd::cwd; + +######################### + +use Module::Build; +ok(1); + +like $INC{'Module/Build.pm'}, qr{/blib/}, "Make sure version from blib/ is loaded"; + +######################### my $have_yaml = Module::Build->current->feature('YAML_support'); @@ -25,31 +33,31 @@ my $build = Module::Build->new_from_context(); ok $build; -ok $build->license, 'perl'; +is $build->license, 'perl'; # Make sure cleanup files added before create_build_script() get respected $build->add_to_cleanup('before_script'); eval {$build->create_build_script}; -ok $@, ''; -ok -e $build->build_script, 1; +ok ! $@; +ok -e $build->build_script; -ok $build->dist_dir, 'Sample-0.01'; +is $build->dist_dir, 'Sample-0.01'; # The 'cleanup' file doesn't exist yet -ok grep $_ eq 'before_script', $build->cleanup; +ok grep {$_ eq 'before_script'} $build->cleanup; $build->add_to_cleanup('save_out'); # The 'cleanup' file now exists -ok grep $_ eq 'before_script', $build->cleanup; -ok grep $_ eq 'save_out', $build->cleanup; +ok grep {$_ eq 'before_script'} $build->cleanup; +ok grep {$_ eq 'save_out' } $build->cleanup; my $output = eval { stdout_of( sub { $build->dispatch('test', verbose => 1) } ) }; -ok $@, ''; -ok $output, qr/all tests successful/i; +ok ! $@; +like $output, qr/all tests successful/i; # This is the output of lib/Sample/Script.PL ok -e $build->localize_file_path('lib/Sample/Script'); @@ -63,32 +71,32 @@ if ($have_yaml) { eval {$build->dispatch('disttest')}; - ok $@, ''; + ok ! $@; # After a test, the distdir should contain a blib/ directory ok -e File::Spec->catdir('Sample-0.01', 'blib'); eval {$build->dispatch('distdir')}; - ok $@, ''; + ok ! $@; # The 'distdir' should contain a lib/ directory ok -e File::Spec->catdir('Sample-0.01', 'lib'); # The freshly run 'distdir' should never contain a blib/ directory, or # else it could get into the tarball - ok not -e File::Spec->catdir('Sample-0.01', 'blib'); + ok ! -e File::Spec->catdir('Sample-0.01', 'blib'); # Make sure all of the above was done by the new version of Module::Build my $fh = IO::File->new(File::Spec->catfile($goto, 'META.yml')); my $contents = do {local $/; <$fh>}; $contents =~ /Module::Build version ([0-9_.]+)/m; - ok $1 == $build->VERSION, 1, "Check version used to create META.yml: $1 == " . $build->VERSION; + ok $1 == $build->VERSION, "Check version used to create META.yml: $1 == " . $build->VERSION; if ($build->check_installed_status('Archive::Tar', 0) or $build->isa('Module::Build::Platform::Unix')) { $build->add_to_cleanup($build->dist_dir . ".tar.gz"); eval {$build->dispatch('dist')}; - ok $@, ''; + ok ! $@; } else { skip_subtest("not sure if we can create a tarball on this platform"); @@ -105,13 +113,13 @@ # Check that a shebang line is rewritten my $blib_script = File::Spec->catdir( qw( blib script script ) ); - ok -e $blib_script; + ok -e $blib_script; my $fh = IO::File->new($blib_script); my $first_line = <$fh>; print "# rewritten shebang?\n$first_line"; - ok $first_line ne "#!perl -w\n"; + isnt $first_line, "#!perl -w\n"; } { @@ -123,7 +131,7 @@ # This test is quite a hack since with XML you don't really want to # do a strict string comparison, but absent an XML parser it's the # best we can do. - ok $ppd, <<'EOF'; + is $ppd, <<'EOF'; <SOFTPKG NAME="Sample" VERSION="0,01,0,0"> <TITLE>Sample</TITLE> <ABSTRACT>Foo foo sample foo</ABSTRACT> @@ -138,8 +146,8 @@ eval {$build->dispatch('realclean')}; -ok $@, ''; +ok ! $@; -ok not -e $build->build_script; -ok not -e $build->config_dir; -ok not -e $build->dist_dir; +ok ! -e $build->build_script; +ok ! -e $build->config_dir; +ok ! -e $build->dist_dir; |