[Module-build-checkins] Module-Build/t files.t,1.3,1.4
Status: Beta
Brought to you by:
kwilliams
|
From: Randy W. S. <si...@us...> - 2005-06-23 07:56:07
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28487/t Modified Files: files.t Log Message: Use the DistGen module for tests. Index: files.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/files.t,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- files.t 23 Jun 2005 07:46:32 -0000 1.3 +++ files.t 23 Jun 2005 07:55:52 -0000 1.4 @@ -1,16 +1,27 @@ - +use lib 't/lib'; use strict; use Test::More tests => 6; + use File::Spec; use IO::File; + +use Cwd (); +my $cwd = Cwd::cwd; + +use DistGen; +my $dist = DistGen->new; +$dist->regen; + +chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!"; + + use Module::Build; ok(1); - -my $m = Module::Build->current; +my $m = Module::Build->new_from_context; my @files; { @@ -42,4 +53,5 @@ ok -e $file2; } -$m->delete_filetree(@files); +chdir( $cwd ) or die "Can''t chdir to '$cwd': $!"; +$dist->remove; |