[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 => 4;

use_ok 'Module::Build';
ensure_blib('Module::Build');

use IO::File;
my $tmp = MBTest->tmpdir;

use DistGen;
my $dist = DistGen->new( dir => $tmp );

my $libdir = 'badlib';
$dist->add_file("$libdir/Build.PL", 'die');
$dist->regen;

$dist->chdir_in;


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

# cleanup
$dist->remove;

# 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';
738349a8	5	use MBTest tests => 4;
7253302f	6
738349a8	7	use_ok 'Module::Build';
	8	ensure_blib('Module::Build');
	9
	10	use IO::File;
7a827510	11	my $tmp = MBTest->tmpdir;
7253302f	12
	13	use DistGen;
	14	my $dist = DistGen->new( dir => $tmp );
	15
	16	my $libdir = 'badlib';
	17	$dist->add_file("$libdir/Build.PL", 'die');
	18	$dist->regen;
	19
738349a8	20	$dist->chdir_in;
7253302f	21
7253302f	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
7253302f	29	$dist->remove;
7253302f	30
7253302f	31	# vim:ts=2:sw=2:et:sta