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;
|
