t/configure/027-option_or_data.t

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