[svn:Module-Build] r8633 - Module-Build/trunk/t

[ericwilhelm]

Author: ericwilhelm
Date: Fri Jan 19 13:03:41 2007
New Revision: 8633

Modified:
   Module-Build/trunk/t/new_from_context.t

Log:
t/new_from_context.t - using distgen properly makes it cleaner


Modified: Module-Build/trunk/t/new_from_context.t
==============================================================================
--- Module-Build/trunk/t/new_from_context.t     (original)
+++ Module-Build/trunk/t/new_from_context.t     Fri Jan 19 13:03:41 2007
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
-use MBTest tests => 4;
+use MBTest tests => 2;
 
 use Cwd ();
 my $cwd = Cwd::cwd;
@@ -11,6 +11,9 @@
 
 use DistGen;
 my $dist = DistGen->new( dir => $tmp );
+
+my $libdir = 'badlib';
+$dist->add_file("$libdir/Build.PL", 'die');
 $dist->regen;
 
 chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!";
@@ -18,19 +21,6 @@
 use IO::File;
 use Module::Build;
 
-# echo 'die' > badlib/Build.PL
-my $libdir = 'badlib';
-unless (-d $libdir) {
-  mkdir($libdir, 0777) or die "Can't create $libdir: $!";
-}
-ok -d $libdir;
-my $filename = 'Build.PL';
-my $file = File::Spec->catfile($libdir, $filename);
-my $fh = IO::File->new($file, '>') or die "Can't create $file: $!";
-print $fh "die\n";
-$fh->close;
-ok -e $file;
-
 unshift(@INC, $libdir);
 my $mb = eval { Module::Build->new_from_context};
 ok(! $@, 'dodged the bullet') or die;