t/steps/auto/env-01.t

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