| # sample.t -- a sample test file for Module::Build |
| |
| use strict; |
| use lib 't/lib'; |
| use MBTest tests => 2; # or 'no_plan' |
| 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 |