[Module-build-checkins] Module-Build/t basic.t,1.41,1.42 compat.t,1.29,1.30 destinations.t,1.20,1.21
Status: Beta
Brought to you by:
kwilliams
|
From: Randy W. S. <si...@us...> - 2005-06-29 07:50:50
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30273/t Modified Files: basic.t compat.t destinations.t extend.t files.t install.t manifypods.t moduleinfo.t notes.t runthrough.t signature.t tilde.t versions.t xs.t Log Message: Create test distributions a temporary directory in 't/_tmp', and clean it up when done. Index: files.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/files.t,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- files.t 28 Jun 2005 07:33:32 -0000 1.6 +++ files.t 29 Jun 2005 07:50:40 -0000 1.7 @@ -8,9 +8,10 @@ use Cwd (); my $cwd = Cwd::cwd; +my $tmp = File::Spec->catdir( $cwd, 't', '_tmp' ); use DistGen; -my $dist = DistGen->new; +my $dist = DistGen->new( dir => $tmp ); $dist->regen; chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!"; @@ -56,3 +57,6 @@ # cleanup chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; + +use File::Path; +rmtree( $tmp ); Index: signature.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/signature.t,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- signature.t 28 Jun 2005 05:02:26 -0000 1.10 +++ signature.t 29 Jun 2005 07:50:41 -0000 1.11 @@ -25,9 +25,10 @@ use Cwd (); my $cwd = Cwd::cwd; +my $tmp = File::Spec->catdir( $cwd, 't', '_tmp' ); use DistGen; -my $dist = DistGen->new; +my $dist = DistGen->new( dir => $tmp ); $dist->change_file( 'Build.PL', <<"---" ); use Module::Build; @@ -82,3 +83,6 @@ # cleanup chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; + +use File::Path; +rmtree( $tmp ); Index: moduleinfo.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/moduleinfo.t,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- moduleinfo.t 28 Jun 2005 07:31:23 -0000 1.7 +++ moduleinfo.t 29 Jun 2005 07:50:40 -0000 1.8 @@ -13,9 +13,10 @@ use Cwd (); my $cwd = Cwd::cwd; +my $tmp = File::Spec->catdir( $cwd, 't', '_tmp' ); use DistGen; -my $dist = DistGen->new; +my $dist = DistGen->new( dir => $tmp ); $dist->regen; chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!"; @@ -114,7 +115,7 @@ # revert to pristine state chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; -$dist = DistGen->new; +$dist = DistGen->new( dir => $tmp ); $dist->regen; chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!"; @@ -153,7 +154,7 @@ # revert to pristine state chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; -$dist = DistGen->new; +$dist = DistGen->new( dir => $tmp ); $dist->regen; chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!"; @@ -275,3 +276,6 @@ # cleanup chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; + +use File::Path; +rmtree( $tmp ); Index: basic.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/basic.t,v retrieving revision 1.41 retrieving revision 1.42 diff -u -d -r1.41 -r1.42 --- basic.t 29 Jun 2005 05:13:13 -0000 1.41 +++ basic.t 29 Jun 2005 07:50:40 -0000 1.42 @@ -13,9 +13,10 @@ use Cwd (); my $cwd = Cwd::cwd; +my $tmp = File::Spec->catdir( $cwd, 't', '_tmp' ); use DistGen; -my $dist = DistGen->new; +my $dist = DistGen->new( dir => $tmp ); $dist->regen; chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!"; @@ -179,7 +180,7 @@ # revert test distribution to pristine state because we modified a file chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; - $dist = DistGen->new; + $dist = DistGen->new( dir => $tmp ); $dist->regen; chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!"; } @@ -201,3 +202,6 @@ # cleanup chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; + +use File::Path; +rmtree( $tmp ); Index: compat.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/compat.t,v retrieving revision 1.29 retrieving revision 1.30 diff -u -d -r1.29 -r1.30 --- compat.t 29 Jun 2005 05:13:13 -0000 1.29 +++ compat.t 29 Jun 2005 07:50:40 -0000 1.30 @@ -32,9 +32,10 @@ use Cwd (); my $cwd = Cwd::cwd; +my $tmp = File::Spec->catdir( $cwd, 't', '_tmp' ); use DistGen; -my $dist = DistGen->new; +my $dist = DistGen->new( dir => $tmp ); $dist->regen; chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!"; @@ -197,3 +198,6 @@ # cleanup chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; + +use File::Path; +rmtree( $tmp ); Index: install.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/install.t,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- install.t 28 Jun 2005 07:25:20 -0000 1.20 +++ install.t 29 Jun 2005 07:50:40 -0000 1.21 @@ -13,9 +13,10 @@ use Cwd (); my $cwd = Cwd::cwd; +my $tmp = File::Spec->catdir( $cwd, 't', '_tmp' ); use DistGen; -my $dist = DistGen->new; +my $dist = DistGen->new( dir => $tmp ); $dist->regen; chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!"; @@ -206,7 +207,7 @@ # revert to pristine state chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; - $dist = DistGen->new; + $dist = DistGen->new( dir => $tmp ); $dist->regen; chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!"; } @@ -221,3 +222,6 @@ # cleanup chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; + +use File::Path; +rmtree( $tmp ); Index: xs.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/xs.t,v retrieving revision 1.22 retrieving revision 1.23 diff -u -d -r1.22 -r1.23 --- xs.t 28 Jun 2005 07:33:32 -0000 1.22 +++ xs.t 29 Jun 2005 07:50:41 -0000 1.23 @@ -35,9 +35,10 @@ use Cwd (); my $cwd = Cwd::cwd; +my $tmp = File::Spec->catdir( $cwd, 't', '_tmp' ); use DistGen; -my $dist = DistGen->new( xs_module => 1 ); +my $dist = DistGen->new( dir => $tmp, xs_module => 1 ); $dist->regen; chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!"; @@ -116,3 +117,6 @@ # cleanup chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; + +use File::Path; +rmtree( $tmp ); Index: manifypods.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/manifypods.t,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- manifypods.t 28 Jun 2005 09:40:50 -0000 1.12 +++ manifypods.t 29 Jun 2005 07:50:40 -0000 1.13 @@ -24,10 +24,10 @@ use Cwd (); my $cwd = Cwd::cwd; - +my $tmp = File::Spec->catdir( $cwd, 't', '_tmp' ); use DistGen; -my $dist = DistGen->new; +my $dist = DistGen->new( dir => $tmp ); $dist->add_file( 'bin/nopod.pl', <<'---' ); #!perl -w print "sample script without pod to test manifypods action\n"; @@ -130,7 +130,7 @@ # revert to a pristine state chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; -$dist = DistGen->new; +$dist = DistGen->new( dir => $tmp ); $dist->regen; chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!"; @@ -157,3 +157,6 @@ # cleanup chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; + +use File::Path; +rmtree( $tmp ); Index: runthrough.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/runthrough.t,v retrieving revision 1.55 retrieving revision 1.56 diff -u -d -r1.55 -r1.56 --- runthrough.t 29 Jun 2005 05:13:13 -0000 1.55 +++ runthrough.t 29 Jun 2005 07:50:40 -0000 1.56 @@ -17,9 +17,10 @@ use Cwd (); my $cwd = Cwd::cwd; +my $tmp = File::Spec->catdir( $cwd, 't', '_tmp' ); use DistGen; -my $dist = DistGen->new; +my $dist = DistGen->new( dir => $tmp ); $dist->remove_file( 't/basic.t' ); $dist->change_file( 'Build.PL', <<'---' ); use Module::Build; @@ -196,3 +197,6 @@ # cleanup chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; + +use File::Path; +rmtree( $tmp ); Index: extend.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/extend.t,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- extend.t 29 Jun 2005 05:13:13 -0000 1.16 +++ extend.t 29 Jun 2005 07:50:40 -0000 1.17 @@ -13,9 +13,10 @@ use Cwd (); my $cwd = Cwd::cwd; +my $tmp = File::Spec->catdir( $cwd, 't', '_tmp' ); use DistGen; -my $dist = DistGen->new; +my $dist = DistGen->new( dir => $tmp ); $dist->regen; chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!"; @@ -211,3 +212,6 @@ # cleanup chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; + +use File::Path; +rmtree( $tmp ); Index: versions.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/versions.t,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- versions.t 28 Jun 2005 07:33:32 -0000 1.6 +++ versions.t 29 Jun 2005 07:50:41 -0000 1.7 @@ -5,8 +5,12 @@ use Test::More tests => 2; +use Cwd (); +my $cwd = Cwd::cwd; +my $tmp = File::Spec->catdir( $cwd, 't', '_tmp' ); + use DistGen; -my $dist = DistGen->new; +my $dist = DistGen->new( dir => $tmp ); $dist->regen; ######################### @@ -23,3 +27,6 @@ # cleanup $dist->remove; + +use File::Path; +rmtree( $tmp ); Index: notes.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/notes.t,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- notes.t 28 Jun 2005 07:33:32 -0000 1.12 +++ notes.t 29 Jun 2005 07:50:40 -0000 1.13 @@ -8,9 +8,10 @@ use Cwd (); my $cwd = Cwd::cwd; +my $tmp = File::Spec->catdir( $cwd, 't', '_tmp' ); use DistGen; -my $dist = DistGen->new; +my $dist = DistGen->new( dir => $tmp ); $dist->regen; chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!"; @@ -64,3 +65,6 @@ # cleanup chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; + +use File::Path; +rmtree( $tmp ); Index: tilde.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/tilde.t,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- tilde.t 28 Jun 2005 07:33:32 -0000 1.9 +++ tilde.t 29 Jun 2005 07:50:41 -0000 1.10 @@ -15,9 +15,10 @@ use Cwd (); my $cwd = Cwd::cwd; +my $tmp = File::Spec->catdir( $cwd, 't', '_tmp' ); use DistGen; -my $dist = DistGen->new; +my $dist = DistGen->new( dir => $tmp ); $dist->regen; chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!"; @@ -81,3 +82,6 @@ # cleanup chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; + +use File::Path; +rmtree( $tmp ); Index: destinations.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/destinations.t,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- destinations.t 28 Jun 2005 03:03:17 -0000 1.20 +++ destinations.t 29 Jun 2005 07:50:40 -0000 1.21 @@ -13,9 +13,10 @@ use Cwd (); my $cwd = Cwd::cwd; +my $tmp = File::Spec->catdir( $cwd, 't', '_tmp' ); use DistGen; -my $dist = DistGen->new; +my $dist = DistGen->new( dir => $tmp ); $dist->regen; chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!"; @@ -216,3 +217,6 @@ chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; $dist->remove; + +use File::Path; +rmtree( $tmp ); |