[Module-build-checkins] Module-Build/t compat.t,1.27,1.28 files.t,1.5,1.6 notes.t,1.11,1.12 tilde.t,
Status: Beta
Brought to you by:
kwilliams
|
From: Randy W. S. <si...@us...> - 2005-06-28 07:33:41
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18982/t Modified Files: compat.t files.t notes.t tilde.t versions.t xs.t Log Message: Update cleanup code. Index: files.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/files.t,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- files.t 23 Jun 2005 08:44:47 -0000 1.5 +++ files.t 28 Jun 2005 07:33:32 -0000 1.6 @@ -53,5 +53,6 @@ ok -e $file2; } +# cleanup chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; Index: versions.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/versions.t,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- versions.t 28 Jun 2005 04:02:44 -0000 1.5 +++ versions.t 28 Jun 2005 07:33:32 -0000 1.6 @@ -19,3 +19,7 @@ is( Module::Build->version_from_file( $file ), '0.01', 'version_from_file' ); ok( Module::Build->compare_versions( '1.01_01', '>', '1.01' ), 'compare: 1.0_01 > 1.0' ); + + +# cleanup +$dist->remove; Index: compat.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/compat.t,v retrieving revision 1.27 retrieving revision 1.28 diff -u -d -r1.27 -r1.28 --- compat.t 28 Jun 2005 03:36:45 -0000 1.27 +++ compat.t 28 Jun 2005 07:33:32 -0000 1.28 @@ -192,3 +192,8 @@ ok ! -e 'Makefile', "Makefile shouldn't exist"; } } + + +# cleanup +chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; +$dist->remove; Index: notes.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/notes.t,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- notes.t 23 Jun 2005 08:44:47 -0000 1.11 +++ notes.t 28 Jun 2005 07:33:32 -0000 1.12 @@ -61,5 +61,6 @@ is $m->notes('foo'), 'bar'; +# cleanup chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; Index: tilde.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/tilde.t,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- tilde.t 23 Jun 2005 08:44:48 -0000 1.8 +++ tilde.t 28 Jun 2005 07:33:32 -0000 1.9 @@ -78,5 +78,6 @@ } +# cleanup chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; Index: xs.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/xs.t,v retrieving revision 1.21 retrieving revision 1.22 diff -u -d -r1.21 -r1.22 --- xs.t 23 Jun 2005 10:50:43 -0000 1.21 +++ xs.t 28 Jun 2005 07:33:32 -0000 1.22 @@ -45,27 +45,27 @@ eval {$m->dispatch('clean')}; -ok not $@; +ok ! $@; eval {$m->dispatch('build')}; -ok not $@; +ok ! $@; { # Try again in a subprocess eval {$m->dispatch('clean')}; - ok not $@; + ok ! $@; $m->create_build_script; ok -e 'Build'; eval {$m->run_perl_script('Build')}; - ok not $@; + ok ! $@; } # We can't be verbose in the sub-test, because Test::Harness will # think that the output is for the top-level test. eval {$m->dispatch('test')}; -ok not $@; +ok ! $@; { $m->dispatch('ppd', args => {codebase => '/path/to/codebase-xs'}); @@ -99,22 +99,20 @@ unless $m->os_type eq 'Unix'; eval {$m->dispatch('clean')}; - ok not $@; + ok ! $@; local $m->{config}{ld} = "FOO=BAR $m->{config}{ld}"; eval {$m->dispatch('build')}; - ok not $@; + ok ! $@; } eval {$m->dispatch('realclean')}; -ok not $@; +ok ! $@; # Make sure blib/ is gone after 'realclean' -ok not -e 'blib'; +ok ! -e 'blib'; -######################### # cleanup - chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; |