Author: jkeenan Date: Sun Oct 28 17:20:36 2007 New Revision: 22577 Modified: branches/autogcc/t/configure/036-config_steps.t
Log: Reverting one test file. Modified: branches/autogcc/t/configure/036-config_steps.t ============================================================================== --- branches/autogcc/t/configure/036-config_steps.t (original) +++ branches/autogcc/t/configure/036-config_steps.t Sun Oct 28 17:20:36 2007 @@ -24,23 +24,22 @@ =cut -#my @steps; -#sub wanted { /^.*\.pm\z/s && push @steps, $File::Find::name; } -#find( { wanted => \&wanted }, 'config' ); -# -#if ( $^O !~ /win32/i ) { -# @steps = grep { $_ !~ /win32/i } @steps; -#} -# -#my $testcount = @steps + 1; -# -## my $testcount = @steps; -# -#plan tests => $testcount; -#foreach my $step (@steps) { -# require_ok($step); -#} -plan tests => 1; +my @steps; +sub wanted { /^.*\.pm\z/s && push @steps, $File::Find::name; } +find( { wanted => \&wanted }, 'config' ); + +if ( $^O !~ /win32/i ) { + @steps = grep { $_ !~ /win32/i } @steps; +} + +my $testcount = @steps + 1; + +# my $testcount = @steps; + +plan tests => $testcount; +foreach my $step (@steps) { + require_ok($step); +} pass("Completed all tests in $0");