[p5sagit/p5-mst-13.2.git] / lib / Module / Build / t / new_from_context.t

#!/usr/bin/perl -w

use strict;
use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
use MBTest tests => 2;

use Cwd ();
my $cwd = Cwd::cwd;
my $tmp = File::Spec->catdir( $cwd, 't', '_tmp' );

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]}': $!";

use IO::File;
use Module::Build;

unshift(@INC, $libdir);
my $mb = eval { Module::Build->new_from_context};
ok(! $@, 'dodged the bullet') or die;
ok($mb);

# cleanup
chdir( $cwd ) or die "Can''t chdir to '$cwd': $!";
$dist->remove;

use File::Path;
rmtree( $tmp );

# vim:ts=2:sw=2:et:sta
Commit	Line	Data
7253302f	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4	use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
	5	use MBTest tests => 2;
	6
	7	use Cwd ();
	8	my $cwd = Cwd::cwd;
	9	my $tmp = File::Spec->catdir( $cwd, 't', '_tmp' );
	10
	11	use DistGen;
	12	my $dist = DistGen->new( dir => $tmp );
	13
	14	my $libdir = 'badlib';
	15	$dist->add_file("$libdir/Build.PL", 'die');
	16	$dist->regen;
	17
	18	chdir( $dist->dirname ) or die "Can't chdir to '@{[$dist->dirname]}': $!";
	19
	20	use IO::File;
	21	use Module::Build;
	22
	23	unshift(@INC, $libdir);
	24	my $mb = eval { Module::Build->new_from_context};
	25	ok(! $@, 'dodged the bullet') or die;
	26	ok($mb);
	27
	28	# cleanup
	29	chdir( $cwd ) or die "Can''t chdir to '$cwd': $!";
	30	$dist->remove;
	31
	32	use File::Path;
	33	rmtree( $tmp );
	34
	35	# vim:ts=2:sw=2:et:sta