t/configure/030-option_or_data.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # 030-option_or_data.t
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More tests =>  6;
  10 use Carp;
  11 use lib qw( lib t/configure/testlib );
  12 use Parrot::Configure;
  13 use Parrot::Configure::Options qw( process_options );
  14 use Parrot::Configure::Test qw( test_step_thru_runstep);
  15 use Parrot::Configure::Step::List qw( get_steps_list );
  16 use IO::CaptureOutput qw | capture |;
  17
  18 $| = 1;
  19 is( $|, 1, "output autoflush is set" );
  20
  21 my $testopt    = q{bindir};
  22 my $testoptval = q{mybindir};
  23 my $localargv  = [];
  24 my ($args, $step_list_ref) = process_options(
  25     {
  26         mode => q{configure},
  27         argv => $localargv,
  28     }
  29 );
  30 ok( defined $args, "process_options returned successfully" );
  31
  32 my $conf = Parrot::Configure->new;
  33 ok( defined $conf, "Parrot::Configure->new() returned okay" );
  34
  35 my $step        = q{init::foobar};
  36 my $description = 'Determining if your computer does foobar';
  37
  38 $conf->add_steps($step);
  39 $conf->options->set( %{$args} );
  40 {
  41     my $rv;
  42     my $stdout;
  43     capture ( sub {$rv    = $conf->runsteps}, \$stdout );
  44     like( $stdout, qr/$description/s, "Got message expected upon running $step" );
  45     ok( !defined( $conf->option_or_data($testopt) ),
  46         "option_or_data returned undef; neither option nor data had been defined" );
  47 }
  48
  49 pass("Completed all tests in $0");
  50
  51 ################### DOCUMENTATION ###################
  52
  53 =head1 NAME
  54
  55 030-option_or_data.t - test C<Parrot::Configure::option_or_data()>
  56
  57 =head1 SYNOPSIS
  58
  59     % prove t/configure/030-option_or_data.t
  60
  61 =head1 DESCRIPTION
  62
  63 The files in this directory test functionality used by F<Configure.pl>.
  64
  65 This file tests C<Parrot::Configure::option_or_data()> in the case where
  66 no value for the tested option has been set on the command line but
  67 where no value for the tested option has been located internally by a
  68 configuration step.
  69
  70 =head1 AUTHOR
  71
  72 James E Keenan
  73
  74 =head1 SEE ALSO
  75
  76 Parrot::Configure, F<Configure.pl>.
  77
  78 =cut
  79
  80 # Local Variables:
  81 #   mode: cperl
  82 #   cperl-indent-level: 4
  83 #   fill-column: 100
  84 # End:
  85 # vim: expandtab shiftwidth=4: