The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# t/05_template.t -- tests abilty to create template directory

#use Test::More qw/no_plan/;
use Test::More tests => 24;
use File::pushd;

#--------------------------------------------------------------------------#
# Mask any user defaults for the duration of the program
#--------------------------------------------------------------------------#

BEGIN { 
    use_ok( "ExtUtils::ModuleMaker::Auxiliary",
        qw( _save_pretesting_status _restore_pretesting_status )
    );
}

# these add 8 tests
my $pretest_status = _save_pretesting_status();
END { _restore_pretesting_status( $pretest_status ) }

#--------------------------------------------------------------------------#

BEGIN { use_ok( 'ExtUtils::ModuleMaker::TT' ); }

{
    my $dir = tempd();

    ok (ExtUtils::ModuleMaker::TT->create_template_directory('templates'),
        "create_template_directory");

    ###########################################################################

    ok (chdir 'templates',
        "cd templates");

    #        MANIFEST.SKIP .cvsignore
    for ( keys %ExtUtils::ModuleMaker::TT::templates ) {
        ok (-e,
            "$_ exists");
    }

}