t/configure/026-options_test.t

   1 #! perl
   2 # Copyright (C) 2007, The Perl Foundation.
   3 # $Id$
   4 # 026-options_test.t
   5
   6 use strict;
   7 use warnings;
   8 use Carp;
   9 use Cwd;
  10 use Data::Dumper;
  11 use Test::More tests => 23;
  12 use lib qw( lib );
  13 use IO::CaptureOutput qw| capture |;
  14 use_ok(
  15     'Parrot::Configure::Options', qw|
  16         process_options
  17         |
  18 );
  19 use_ok("Parrot::Configure::Options::Test");
  20 use_ok('Parrot::Configure::Options::Test::Prepare', qw|
  21     get_preconfiguration_tests
  22     get_postconfiguration_tests
  23     |
  24 );
  25
  26 my ( $args, $opttest );
  27
  28 ##### 1 #####
  29 $args = process_options(
  30     {
  31         argv => [],
  32         mode => q{configure},
  33     }
  34 );
  35 ok( defined $args,
  36     "process_options() returned successfully when no options were specified" );
  37
  38 $opttest = Parrot::Configure::Options::Test->new($args);
  39 ok( defined $opttest, "Constructor returned successfully" );
  40
  41 {
  42     my $stdout;
  43     capture(
  44         sub { $opttest->run_configure_tests( get_preconfiguration_tests() ); },
  45         \$stdout,
  46     );
  47     ok( ! $stdout,
  48         "Nothing captured because no pre-configuration tests were run." );
  49 }
  50
  51 {
  52     my $stdout;
  53     capture(
  54         sub { $opttest->run_build_tests( get_postconfiguration_tests() ); },
  55         \$stdout,
  56     );
  57     ok( ! $stdout,
  58         "Nothing captured because no pre-build tests were run." );
  59 }
  60
  61 ##### 2 #####
  62 $args = process_options(
  63     {
  64         argv => [q{--test=configure}],
  65         mode => q{configure},
  66     }
  67 );
  68 ok( defined $args,
  69     "process_options() returned successfully when '--test=configure' was specified" );
  70
  71 $opttest = Parrot::Configure::Options::Test->new($args);
  72 ok( defined $opttest, "Constructor returned successfully" );
  73
  74 ##### 3 #####
  75 $args = process_options(
  76     {
  77         argv => [q{--test=build}],
  78         mode => q{configure},
  79     }
  80 );
  81 ok( defined $args,
  82     "process_options() returned successfully when '--test=build' was specified" );
  83
  84 $opttest = Parrot::Configure::Options::Test->new($args);
  85 ok( defined $opttest, "Constructor returned successfully" );
  86
  87 ##### 4 #####
  88 my $badoption = q{foobar};
  89 $args = process_options(
  90     {
  91         argv => [qq{--test=$badoption}],
  92         mode => q{configure},
  93     }
  94 );
  95 ok( defined $args,
  96     "process_options() returned successfully when '--test=$badoption' was specified" );
  97
  98 eval { $opttest = Parrot::Configure::Options::Test->new($args); };
  99 like(
 100     $@,
 101     qr/'$badoption' is a bad value/,
 102     "Bad option to '--test' correctly detected"
 103 );
 104
 105 ##### 5 #####
 106 $args = process_options(
 107     {
 108         argv => [],
 109         mode => q{configure},
 110     }
 111 );
 112 ok( defined $args,
 113     "process_options() returned successfully when no options were specified" );
 114
 115 $opttest = Parrot::Configure::Options::Test->new($args);
 116 ok( defined $opttest, "Constructor returned successfully" );
 117
 118 eval { $opttest->set( 'foobar' ); };
 119 like($@, qr/Need 2 arguments to Parrot::Configure::Options::Test::set/,
 120     "Correctly detected lack of argument to set()");
 121
 122 $opttest->set( foo => 'bar' );
 123 is($opttest->get( 'foo' ), 'bar', "set() set value correctly");
 124
 125 eval { $opttest->get( foo => 'bar' ); };
 126 like($@, qr/Need 1 argument to Parrot::Configure::Options::Test::get/,
 127     "Correctly detected wrong number of arguments to get()");
 128
 129 ok(! defined $opttest->get( 'baz' ),
 130     "Correctly detected value which never was set");
 131
 132 eval { $opttest->set_run( 'foobar' ); };
 133 like($@, qr/Need 2 arguments to Parrot::Configure::Options::Test::set_run/,
 134     "Correctly detected lack of argument to set_run()");
 135
 136 $opttest->set_run( foo => 'bar' );
 137 is($opttest->get_run( 'foo' ), 'bar', "set_run() set value correctly");
 138
 139 eval { $opttest->get_run( foo => 'bar' ); };
 140 like($@, qr/Need 1 argument to Parrot::Configure::Options::Test::get_run/,
 141     "Correctly detected wrong number of arguments to get_run()");
 142
 143 pass("Completed all tests in $0");
 144
 145 ################### DOCUMENTATION ###################
 146
 147 =head1 NAME
 148
 149 026-options_test.t - test Parrot::Configure::Options::Test
 150
 151 =head1 SYNOPSIS
 152
 153     % prove t/configure/026-options_test.t
 154
 155 =head1 DESCRIPTION
 156
 157 The files in this directory test functionality used by F<Configure.pl>.
 158
 159 The tests in this file test Parrot::Configure::Options::Test methods.
 160
 161 =head1 AUTHOR
 162
 163 James E Keenan
 164
 165 =head1 SEE ALSO
 166
 167 Parrot::Configure::Options, F<Configure.pl>.
 168
 169 =cut
 170
 171 # Local Variables:
 172 #   mode: cperl
 173 #   cperl-indent-level: 4
 174 #   fill-column: 100
 175 # End:
 176 # vim: expandtab shiftwidth=4: