t/steps/auto/neg_0-01.t

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