t/configure/036-config_steps.t

   1 #!perl
   2 # Copyright (C) 2001-2005, The Perl Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7
   8 use lib qw( lib );
   9
  10 use Test::More;
  11 use File::Find;
  12
  13 =head1 NAME
  14
  15 t/configure/036-config_steps.t - tests step modules under the config dir
  16
  17 =head1 SYNOPSIS
  18
  19     prove t/configure/036-config_steps.t
  20
  21 =head1 DESCRIPTION
  22
  23 Regressions tests for configure steps that live under the config directory.
  24
  25 =cut
  26
  27 my @steps;
  28 sub wanted { $File::Find::name =~ m{^config\/(.*)\.pm\z}s &&
  29     do {
  30         my $mod = $1;
  31         my $class = join '::', ( split /\//, $mod );
  32         push @steps, $class;
  33     };
  34 }
  35 find( { wanted => \&wanted }, 'config' );
  36
  37 if ( $^O !~ /win32/i ) {
  38     @steps = grep { $_ !~ /win32/i } @steps;
  39 }
  40
  41 my $testcount = @steps + 2;
  42 plan tests => $testcount;
  43 unshift @INC, 'config';
  44
  45 foreach my $step (@steps) {
  46     require_ok($step);
  47 }
  48
  49 pass("Keep Devel::Cover happy");
  50 pass("Completed all tests in $0");
  51
  52 # Local Variables:
  53 #   mode: cperl
  54 #   cperl-indent-level: 4
  55 #   fill-column: 100
  56 # End:
  57 # vim: expandtab shiftwidth=4: