view release on metacpan or  search on metacpan

t/module_template.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Test::More tests => 26;
use Test::Exception;

use File::HomeDir;
use File::Path qw/remove_tree/;
use File::Spec;

use_ok( 'App::Module::Template::Initialize', 'module_template' );

ok( my $mt_dir = File::Spec->catdir( File::HomeDir->my_home(), '.module-template' ), 'set module-template dir' );

# skip if home path exists
SKIP: {
    skip( "$mt_dir exists", 2) if -d $mt_dir;

    ok( module_template(), 'module_template creates in home' );
    ok( remove_tree($mt_dir), 'remove test directory' );
}

ok( my $test_dir = File::Spec->catdir( File::Spec->curdir, 'test_dir' ), 'set test dir' );

SKIP: {
    skip( "test doesn't exist", 1) unless -d $test_dir;
    ok( remove_tree($test_dir), 'remove test directory' );
}

ok( my $mt_test_dir = File::Spec->catdir( $test_dir, '.module-template' ), 'set test module dir' );

is( module_template($test_dir), $mt_test_dir, 'module_template() w/ test dir' );

throws_ok{ module_template($test_dir) } qr/Directory/, 'fails on existing directory';

ok( my $tmpl_dir = File::Spec->catdir( $mt_test_dir, 'templates' ), 'set template dir' );

ok( -f File::Spec->catfile( $mt_test_dir, 'config') , 'config exists' );
ok( -f File::Spec->catfile( $tmpl_dir, '.gitignore' ), '.gitignore exists' );
ok( -f File::Spec->catfile( $tmpl_dir, '.travis.yml' ), '.travis.yml exists' );
ok( -f File::Spec->catfile( $tmpl_dir, 'Changes' ), 'Changes exists' );
ok( -f File::Spec->catfile( $tmpl_dir, 'LICENSE'), 'LICENSE exists' );
ok( -f File::Spec->catfile( $tmpl_dir, 'Makefile.PL' ), 'Makefile.PL exists' );
ok( -f File::Spec->catfile( $tmpl_dir, 'README' ), 'README exists' );
ok( -f File::Spec->catfile( $tmpl_dir, 'bin', 'script.pl' ), 'script.pl exists' );
ok( -f File::Spec->catfile( $tmpl_dir, 'lib', 'Module.pm' ), 'Module.pm exists' );
ok( -f File::Spec->catfile( $tmpl_dir, 't', '00-load.t' ), '00-load.t exists' );
ok( -f File::Spec->catfile( $tmpl_dir, 'xt', 'author', 'critic.t' ), 'critic.t exists' );
ok( -f File::Spec->catfile( $tmpl_dir, 'xt', 'author', 'perlcritic.rc' ), 'perlcritic.rc exists' );
ok( -f File::Spec->catfile( $tmpl_dir, 'xt', 'author', 'pod-coverage.t' ), 'pod-coverage.t exists' );
ok( -f File::Spec->catfile( $tmpl_dir, 'xt', 'release', 'pod-syntax.t' ), 'pod-syntax.t exists' );
ok( -f File::Spec->catfile( $tmpl_dir, 'xt', 'release', 'kwalitee.t' ), 'kwalitee.t exists' );

SKIP: {
    skip( "test doesn't exist", 1) unless -d $test_dir;
    ok( remove_tree($test_dir), 'remove test directory' );
}