# t/06_build.t use strict; local $^W = 1; use Test::More tests => 23; use_ok( 'ExtUtils::ModuleMaker' ); use_ok( 'ExtUtils::ModuleMaker::Auxiliary', qw( _save_pretesting_status _restore_pretesting_status read_file_string six_file_tests ) ); my $statusref = _save_pretesting_status(); SKIP: { eval { require 5.006_001 and require Module::Build }; skip "tests require File::Temp, core with 5.6, and require Module::Build", (23 - 10) if $@; use warnings; use_ok( 'File::Temp', qw| tempdir |); my $tdir = tempdir( CLEANUP => 1); ok(chdir $tdir, 'changed to temp directory for testing'); ######################################################################## my $mod; my $testmod = 'Gamma'; ok( $mod = ExtUtils::ModuleMaker->new( NAME => "Alpha::$testmod", ABSTRACT => 'Test of the capacities of EU::MM', COMPACT => 1, CHANGES_IN_POD => 1, BUILD_SYSTEM => 'Module::Build', AUTHOR => 'Phineas T. Bluster', CPANID => 'PTBLUSTER', ORGANIZATION => 'Peanut Gallery', WEBSITE => 'http://www.anonymous.com/~phineas', EMAIL => 'phineas@anonymous.com', ), "call ExtUtils::ModuleMaker->new for Alpha-$testmod" ); ok( $mod->complete_build(), 'call complete_build()' ); ok( chdir "Alpha-$testmod", "cd Alpha-$testmod" ); my ($filetext); ok($filetext = read_file_string('Build.PL'), 'Able to read Build.PL'); six_file_tests(7, $testmod); # first arg is # entries in MANIFEST ok(chdir $statusref->{cwd}, "changed back to original directory"); } # end SKIP block END { _restore_pretesting_status($statusref); }