t/configure/003-steplist.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # 003-steplist.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests => 3;
   9 use Carp;
  10 use lib qw( lib );
  11 use Parrot::Configure::Step::List qw| get_steps_list |;
  12
  13 my @steps;
  14 ok( @steps = get_steps_list(), "non-zero number of steps located" );
  15 my $badsteps = 0;
  16 foreach my $s (@steps) {
  17     $badsteps++ unless $s =~ /^(init|inter|auto|gen)::\w+$/;
  18 }
  19 is( $badsteps, 0, "no bad entries found in \@steps" );
  20
  21 pass("Completed all tests in $0");
  22
  23 ################### DOCUMENTATION ###################
  24
  25 =head1 NAME
  26
  27 003-steplist.t - test Parrot::Configure::Step::List
  28
  29 =head1 SYNOPSIS
  30
  31     % prove t/configure/003-steplist.t
  32
  33 =head1 DESCRIPTION
  34
  35 The files in this directory test functionality used by F<Configure.pl>.
  36
  37 The tests in this file test subroutines exported by
  38 Parrot::Configure::Step::List.
  39
  40 =head1 AUTHOR
  41
  42 James E Keenan
  43
  44 =head1 SEE ALSO
  45
  46 Parrot::Configure::Step::List, F<Configure.pl>.
  47
  48 =cut
  49
  50 # Local Variables:
  51 #   mode: cperl
  52 #   cperl-indent-level: 4
  53 #   fill-column: 100
  54 # End:
  55 # vim: expandtab shiftwidth=4: