t/steps/auto/isreg-01.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # auto/isreg-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests => 18;
   9 use Carp;
  10 use lib qw( lib t/configure/testlib );
  11 use_ok('config::auto::isreg');
  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::isreg};
  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_isreg() ##########
  42
  43 $conf->options->set(%{$args});
  44 $step = test_step_constructor_and_description($conf);
  45 {
  46     my $anyerror;
  47     my $stdout;
  48     my $ret = capture(
  49         sub { $step->_evaluate_isreg($conf, $anyerror) },
  50         \$stdout
  51     );
  52     ok($ret, "_evaluate_isreg returned true value");
  53     is($conf->data->get('isreg'), 1, "'isreg' set to true value as expected");
  54     is($step->result, 'yes', "Got expected result");
  55 }
  56
  57 $conf->replenish($serialized);
  58
  59 ########## _evaluate_isreg(); --verbose ##########
  60
  61 ($args, $step_list_ref) = process_options( {
  62     argv            => [ q{--verbose} ],
  63     mode            => q{configure},
  64 } );
  65 $conf->options->set(%{$args});
  66 $step = test_step_constructor_and_description($conf);
  67 {
  68     my $anyerror = 1;
  69     my $stdout;
  70     my $ret = capture(
  71         sub { $step->_evaluate_isreg($conf, $anyerror) },
  72         \$stdout
  73     );
  74     ok($ret, "_evaluate_isreg returned true value");
  75     is($conf->data->get('isreg'), 0, "'isreg' set to false value as expected");
  76     is($step->result, 'no', "Got expected result");
  77 }
  78
  79 pass("Completed all tests in $0");
  80
  81 ################### DOCUMENTATION ###################
  82
  83 =head1 NAME
  84
  85 auto/isreg-01.t - test auto::isreg
  86
  87 =head1 SYNOPSIS
  88
  89     % prove t/steps/auto/isreg-01.t
  90
  91 =head1 DESCRIPTION
  92
  93 The files in this directory test functionality used by F<Configure.pl>.
  94
  95 The tests in this file test auto::isreg.
  96
  97 =head1 AUTHOR
  98
  99 James E Keenan
 100
 101 =head1 SEE ALSO
 102
 103 config::auto::isreg, F<Configure.pl>.
 104
 105 =cut
 106
 107 # Local Variables:
 108 #   mode: cperl
 109 #   cperl-indent-level: 4
 110 #   fill-column: 100
 111 # End:
 112 # vim: expandtab shiftwidth=4: