view release on metacpan or  search on metacpan

t/create.t  view on Meta::CPAN

#!/usr/bin/perl

use Test::More;
use File::Temp qw(tempdir);
use File::Spec::Functions;
use Cwd;

use App::Padadoy;

my ($cwd) = (cwd =~ /^(.*)$/g); # untainted cwd

my $devdir = tempdir( CLEANUP => 1 );
diag "creating Foo::Bar app in $devdir";
chdir $devdir;

my $padadoy = App::Padadoy->new('', quiet => 1);
$padadoy->create('Foo::Bar');

foreach my $dir (qw(app data app/lib app/t app/lib/Foo libs)) {
    ok( -d catdir($devdir,$dir), "$dir/ created" )