t/steps/auto/inline-01.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # auto/inline-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests =>  32;
   9 use Carp;
  10 use lib qw( lib t/configure/testlib );
  11 use_ok('config::auto::inline');
  12 use Parrot::Configure::Options qw( process_options );
  13 use Parrot::Configure::Step::Test;
  14 use Parrot::Configure::Test qw(
  15     test_step_constructor_and_description
  16 );
  17 use IO::CaptureOutput qw( capture );
  18
  19 ########### regular  ###########
  20
  21 my ($args, $step_list_ref) = process_options(
  22     {
  23         argv => [ ],
  24         mode => q{configure},
  25     }
  26 );
  27
  28 my $conf = Parrot::Configure::Step::Test->new;
  29 $conf->include_config_results( $args );
  30
  31 my $pkg = q{auto::inline};
  32
  33 $conf->add_steps($pkg);
  34
  35 my $serialized = $conf->pcfreeze();
  36
  37 $conf->options->set( %{$args} );
  38 my $step = test_step_constructor_and_description($conf);
  39
  40 my $ret = $step->runstep($conf);
  41 ok( $ret, "runstep() returned true value" );
  42
  43 $conf->replenish($serialized);
  44
  45 ########### --inline ###########
  46
  47 ($args, $step_list_ref) = process_options( {
  48     argv => [ q{--inline} ],
  49     mode => q{configure},
  50 } );
  51 $conf->options->set( %{$args} );
  52 $step = test_step_constructor_and_description($conf);
  53 $ret = $step->runstep($conf);
  54 ok( $ret, "runstep() returned true value" );
  55
  56 $conf->replenish($serialized);
  57
  58 ########### _evaluate_inline() ###########
  59
  60 ($args, $step_list_ref) = process_options( {
  61     argv => [ ],
  62     mode => q{configure},
  63 } );
  64 $conf->options->set( %{$args} );
  65 $step = test_step_constructor_and_description($conf);
  66 my $test = 1;
  67 ok($step->_evaluate_inline($conf, $test),
  68     "_evaluate_inline() returned true value");
  69 is($step->result, q{yes}, "Got expected result");
  70 is($conf->data->get( 'inline' ), 1,
  71     "'inline' attribute has expected value");
  72
  73 $conf->replenish($serialized);
  74
  75 ########### _evaluate_inline() ###########
  76
  77 ($args, $step_list_ref) = process_options( {
  78     argv => [ ],
  79     mode => q{configure},
  80 } );
  81 $conf->options->set( %{$args} );
  82 $step = test_step_constructor_and_description($conf);
  83 $test = 0;
  84 ok($step->_evaluate_inline($conf, $test),
  85     "_evaluate_inline() returned true value");
  86 is($step->result, q{no}, "Got expected result");
  87 is($conf->data->get( 'inline' ), q{},
  88     "'inline' attribute has expected value");
  89
  90 $conf->replenish($serialized);
  91
  92 ########### _evaluate_inline(); --verbose ###########
  93
  94 ($args, $step_list_ref) = process_options( {
  95     argv => [ q{--verbose} ],
  96     mode => q{configure},
  97 } );
  98 $conf->options->set( %{$args} );
  99 $step = test_step_constructor_and_description($conf);
 100 {
 101     my $test = 1;
 102     my $stdout;
 103     my $ret = capture(
 104         sub { $step->_evaluate_inline($conf, $test) },
 105         \$stdout
 106     );
 107     ok($ret, "_evaluate_inline() returned true value");
 108     is($step->result, q{yes}, "Got expected result");
 109     is($conf->data->get( 'inline' ), 1,
 110         "'inline' attribute has expected value");
 111 }
 112
 113 $conf->replenish($serialized);
 114
 115 ########### _second_probe_for_inline(); _evaluate_inline() ###########
 116
 117 ($args, $step_list_ref) = process_options( {
 118     argv => [ ],
 119     mode => q{configure},
 120 } );
 121 $conf->options->set( %{$args} );
 122 $step = test_step_constructor_and_description($conf);
 123 $test = 0;
 124 $test = $step->_second_probe_for_inline($conf, $test);
 125 ok($step->_evaluate_inline($conf, $test),
 126     "_evaluate_inline() returned true value");
 127
 128 pass("Completed all tests in $0");
 129
 130 ################### DOCUMENTATION ###################
 131
 132 =head1 NAME
 133
 134 auto/inline-01.t - test auto::inline
 135
 136 =head1 SYNOPSIS
 137
 138     % prove t/steps/auto/inline-01.t
 139
 140 =head1 DESCRIPTION
 141
 142 The files in this directory test functionality used by F<Configure.pl>.
 143
 144 The tests in this file test auto::inline.
 145
 146 =head1 AUTHOR
 147
 148 James E Keenan
 149
 150 =head1 SEE ALSO
 151
 152 config::auto::inline, F<Configure.pl>.
 153
 154 =cut
 155
 156 # Local Variables:
 157 #   mode: cperl
 158 #   cperl-indent-level: 4
 159 #   fill-column: 100
 160 # End:
 161 # vim: expandtab shiftwidth=4: