[Module-build-checkins] Module-Build/t files.t,1.3,1.4

[Randy W. S. <si...@us...>]

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;