# sample.t -- a sample test file for Module::Build
use
strict;
use
DistGen;
# Ensure any Module::Build modules are loaded from correct directory
blib_load(
'Module::Build'
);
# create dist object in a temp directory
# enter the directory and generate the skeleton files
my
$dist
= DistGen->new->chdir_in->regen;
# get a Module::Build object and test with it
my
$mb
=
$dist
->new_from_context();
# quiet by default
isa_ok(
$mb
,
"Module::Build"
);
is(
$mb
->dist_name,
"Simple"
,
"dist_name is 'Simple'"
);
# vim:ts=2:sw=2:et:sta:sts=2