view release on metacpan or  search on metacpan

t/script/name.t  view on Meta::CPAN

sub my_subtest {
    chdir( my $d = a_temp_dir );
    not <*> or BAIL_OUT( "temp dir should have been empty, but it's not, can't handle it!" );
    subtest @_;
    go_back;
}

## no args
{
    chdir( my $d = a_temp_dir );
    run_not_ok( fatstart, [], "no args shuold fail, it should require a --name" );
    go_back;
}

note( "Variations of name" );
## variations of name
my_subtest "name by -n" => sub {
    run_ok( fatstart, [qw/-n foo/], "name by -n" );
    ok( -d "foo/t", "app dir foo/ created" );
};
my_subtest "name by --n" => sub {