t/steps/auto/readline-01.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # auto/readline-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests => 15;
   9 use Carp;
  10 use Cwd;
  11 use File::Spec;
  12 use File::Temp qw( tempdir );
  13 use lib qw( lib );
  14 use_ok('config::auto::readline');
  15 use Parrot::Configure::Options qw( process_options );
  16 use Parrot::Configure::Step::Test;
  17 use Parrot::Configure::Test qw(
  18     test_step_constructor_and_description
  19 );
  20 use IO::CaptureOutput qw | capture |;
  21
  22 ########## _select_lib() ##########
  23
  24 my ($args, $step_list_ref) = process_options(
  25     {
  26         argv => [ '--without-readline' ],
  27         mode => q{configure},
  28     }
  29 );
  30
  31 my $conf = Parrot::Configure::Step::Test->new;
  32 $conf->include_config_results( $args );
  33 my $serialized = $conf->pcfreeze();
  34
  35 my $pkg = q{auto::readline};
  36
  37 $conf->add_steps($pkg);
  38 $conf->options->set( %{$args} );
  39 my $step = test_step_constructor_and_description($conf);
  40
  41 my $ret = $step->runstep($conf);
  42 ok( $ret, "runstep() returned true value" );
  43 is($step->result(), q{not requested},
  44     "Got expected result for 'without-readline'");
  45 is($conf->data->get('HAS_READLINE'), 0,
  46     "Got expected value for HAS_READLINE");
  47
  48 $conf->replenish($serialized);
  49
  50 ($args, $step_list_ref) = process_options(
  51     {
  52         argv => [ ],
  53         mode => q{configure},
  54     }
  55 );
  56
  57 $conf->add_steps($pkg);
  58 $conf->options->set( %{$args} );
  59 $step = test_step_constructor_and_description($conf);
  60
  61 # Mock values for OS and C-compiler
  62 my ($osname, $cc);
  63 $osname = 'mswin32';
  64 $cc = 'gcc';
  65 is($step->_select_lib( {
  66     conf            => $conf,
  67     osname          => $osname,
  68     cc              => $cc,
  69     win32_nongcc    => 'readline.lib',
  70     default         => '-lreadline',
  71 } ),
  72    '-lreadline',
  73    "_select_lib() returned expected value");
  74
  75 $osname = 'mswin32';
  76 $cc = 'cc';
  77 is($step->_select_lib( {
  78     conf            => $conf,
  79     osname          => $osname,
  80     cc              => $cc,
  81     win32_nongcc    => 'readline.lib',
  82     default         => '-lreadline',
  83 } ),
  84    'readline.lib',
  85    "_select_lib() returned expected value");
  86
  87 $osname = 'foobar';
  88 $cc = undef;
  89 is($step->_select_lib( {
  90     conf            => $conf,
  91     osname          => $osname,
  92     cc              => $cc,
  93     win32_nongcc    => 'readline.lib',
  94     default         => '-lreadline',
  95 } ),
  96    '-lreadline',
  97    "_select_lib() returned true value");
  98
  99 $osname = 'foobar';
 100 $cc = undef;
 101 eval {
 102     $step->_select_lib( [
 103         conf            => $conf,
 104         osname          => $osname,
 105         cc              => $cc,
 106         win32_nongcc    => 'readline.lib',
 107         default         => '-lreadline',
 108     ] );
 109 };
 110 like($@, qr/_select_lib\(\) takes hashref/,
 111     "Bad argument to _select_lib correctly detected");
 112
 113 pass("Completed all tests in $0");
 114
 115 ################### DOCUMENTATION ###################
 116
 117 =head1 NAME
 118
 119 auto/readline-01.t - test auto::readline
 120
 121 =head1 SYNOPSIS
 122
 123     % prove t/steps/auto/readline-01.t
 124
 125 =head1 DESCRIPTION
 126
 127 The files in this directory test functionality used by F<Configure.pl>.
 128
 129 The tests in this file test auto::readline.
 130
 131 =head1 AUTHOR
 132
 133 James E Keenan
 134
 135 =head1 SEE ALSO
 136
 137 config::auto::readline, F<Configure.pl>.
 138
 139 =cut
 140
 141 # Local Variables:
 142 #   mode: cperl
 143 #   cperl-indent-level: 4
 144 #   fill-column: 100
 145 # End:
 146 # vim: expandtab shiftwidth=4: