t/configure/037-run_single_step.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # 037-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 use IO::CaptureOutput qw | capture |;
  15
  16 my ($args, $step_list_ref) = process_options(
  17     {
  18         argv => [],
  19         mode => q{configure},
  20     }
  21 );
  22 ok( defined $args, "process_options returned successfully" );
  23 my %args = %$args;
  24
  25 my $conf = Parrot::Configure->new;
  26 ok( defined $conf, "Parrot::Configure->new() returned okay" );
  27
  28 my $step = q{init::defaults};
  29 $conf->add_step($step);
  30 $conf->options->set( %{$args} );
  31
  32 {
  33     my $stdout;
  34     capture ( sub { eval { $conf->run_single_step($step); } }, \$stdout );
  35     ok( !$@, "run_single_step() completed without error" );
  36     like(
  37         $stdout,
  38 #        qr/$step.*done./s, #'
  39 #        qr/Setting up Configure's default values/s, #'
  40         qr/Set Configure's default values/s, #'
  41         "Got message expected upon running $step"
  42     );
  43 }
  44
  45 pass("Completed all tests in $0");
  46
  47 ################### DOCUMENTATION ###################
  48
  49 =head1 NAME
  50
  51 037-run_single_step.t - test C<run_single_step()> during configuration
  52
  53 =head1 SYNOPSIS
  54
  55     % prove t/configure/037-run_single_step.t
  56
  57 =head1 DESCRIPTION
  58
  59 The files in this directory test functionality used by F<Configure.pl>.
  60
  61 The tests in this file examine what would happen if
  62 C<Parrot::Configure::run_single_step()> were run during configuration.
  63 This is not its typical or recommended use.  It is more typically called
  64 post-configuration by F<tools/dev/reconfigure.pl>.
  65
  66 =head1 AUTHOR
  67
  68 James E Keenan
  69
  70 =head1 SEE ALSO
  71
  72 Parrot::Configure, F<Configure.pl>.
  73
  74 =cut
  75
  76 # Local Variables:
  77 #   mode: cperl
  78 #   cperl-indent-level: 4
  79 #   fill-column: 100
  80 # End:
  81 # vim: expandtab shiftwidth=4: