t/configure/039-run_single_step.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # 039-run_single_step.t
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More tests =>  5;
  10 use Carp;
  11 use lib qw( lib t/configure/testlib );
  12 use Parrot::Configure;
  13 use Parrot::Configure::Options qw( process_options );
  14
  15 $| = 1;
  16 is($|, 1, "output autoflush is set");
  17
  18 my ($args, $step_list_ref) = process_options(
  19     {
  20         argv => [],
  21         mode => q{configure},
  22     }
  23 );
  24 ok( defined $args, "process_options returned successfully" );
  25 my %args = %$args;
  26
  27 my $conf = Parrot::Configure->new;
  28 ok( defined $conf, "Parrot::Configure->new() returned okay" );
  29
  30 my $step = q{init::zeta};
  31 $conf->add_step($step);
  32 $conf->options->set( %{$args} );
  33
  34 eval {
  35     $conf->run_single_step('init::omega');
  36 };
  37 like( $@,
  38     qr/Mangled task in run_single_step/,
  39     "Got expected error message"
  40 );
  41
  42 pass("Completed all tests in $0");
  43
  44 ################### DOCUMENTATION ###################
  45
  46 =head1 NAME
  47
  48 039-run_single_step.t - test C<run_single_step()> during configuration
  49
  50 =head1 SYNOPSIS
  51
  52     % prove t/configure/039-run_single_step.t
  53
  54 =head1 DESCRIPTION
  55
  56 The files in this directory test functionality used by F<Configure.pl>.
  57
  58 The tests in this file examine what would happen if
  59 C<Parrot::Configure::run_single_step()> were run during configuration.
  60 This is not its typical or recommended use.  It is more typically called
  61 post-configuration by F<tools/dev/reconfigure.pl>.
  62
  63 =head1 AUTHOR
  64
  65 James E Keenan
  66
  67 =head1 SEE ALSO
  68
  69 Parrot::Configure, F<Configure.pl>.
  70
  71 =cut
  72
  73 # Local Variables:
  74 #   mode: cperl
  75 #   cperl-indent-level: 4
  76 #   fill-column: 100
  77 # End:
  78 # vim: expandtab shiftwidth=4: