t/steps/auto/gettext-01.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # auto/gettext-01.t
   5
   6 use strict;
   7 use warnings;
   8 use Test::More tests =>  32;
   9 use Carp;
  10 use lib qw( lib t/configure/testlib );
  11 use_ok('config::auto::gettext');
  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 ########## --without-gettext ##########
  20
  21 my ($args, $step_list_ref) = process_options(
  22     {
  23         argv => [ q{--without-gettext} ],
  24         mode => q{configure},
  25     }
  26 );
  27
  28 my $conf = Parrot::Configure::Step::Test->new;
  29 $conf->include_config_results( $args );
  30
  31 my $pkg = q{auto::gettext};
  32
  33 $conf->add_steps($pkg);
  34
  35 my $serialized = $conf->pcfreeze();
  36
  37 $conf->options->set( %{$args} );
  38 my $step = test_step_constructor_and_description($conf);
  39 my $ret = $step->runstep($conf);
  40 ok( $ret, "runstep() returned true value" );
  41 is($conf->data->get('has_gettext'), 0,
  42     "Got expected value for 'has_gettext'");
  43 is($step->result(), q{no}, "Expected result was set");
  44
  45 $conf->replenish($serialized);
  46
  47 ########## _select_lib() ##########
  48
  49 ($args, $step_list_ref) = process_options( {
  50     argv => [ ],
  51     mode => q{configure},
  52 } );
  53 $conf->options->set( %{$args} );
  54 $step = test_step_constructor_and_description($conf);
  55
  56 # Mock values for OS and C-compiler
  57 my ($osname, $cc, $initial_value);
  58 $osname = 'mswin32';
  59 $cc = 'gcc';
  60 $initial_value = $conf->data->get( 'libs' );
  61 is($step->_select_lib( {
  62     conf            => $conf,
  63     osname          => $osname,
  64     cc              => $cc,
  65     win32_gcc       => '-lintl',
  66     win32_nongcc    => 'intl.lib',
  67     default         => defined $conf->data->get('glibc') ? '' : '-lintl',
  68 } ),
  69    '-lintl',
  70    "_select_lib() returned expected value");
  71
  72 $osname = 'mswin32';
  73 $cc = 'cc';
  74 is($step->_select_lib( {
  75     conf            => $conf,
  76     osname          => $osname,
  77     cc              => $cc,
  78     win32_gcc       => '-lintl',
  79     win32_nongcc    => 'intl.lib',
  80     default         => defined $conf->data->get('glibc') ? '' : '-lintl',
  81 } ),
  82    'intl.lib',
  83    "_select_lib() returned expected value");
  84
  85 $osname = 'foobar';
  86 $cc = 'cc';
  87 $conf->data->set( glibc => 1 );
  88 isnt($step->_select_lib( {
  89     conf            => $conf,
  90     osname          => $osname,
  91     cc              => $cc,
  92     win32_gcc       => '-lintl',
  93     win32_nongcc    => 'intl.lib',
  94     default         => defined $conf->data->get('glibc') ? '' : '-lintl',
  95 } ),
  96    '-lintl',
  97    "_select_lib() returned expected value");
  98
  99 $osname = 'foobar';
 100 $cc = 'cc';
 101 $conf->data->set( glibc => undef );
 102 is($step->_select_lib( {
 103     conf            => $conf,
 104     osname          => $osname,
 105     cc              => $cc,
 106     win32_gcc       => '-lintl',
 107     win32_nongcc    => 'intl.lib',
 108     default         => defined $conf->data->get('glibc') ? '' : '-lintl',
 109 } ),
 110    '-lintl',
 111    "_select_lib() returned expected value");
 112
 113 ########## _evaluate_cc_run() ##########
 114
 115 my $test;
 116 my $has_gettext;
 117
 118 $test = "Hello, world!\n";
 119 $conf->options->set(verbose => undef);
 120 $has_gettext = $step->_evaluate_cc_run($conf, $test);
 121 is($has_gettext, 1, "Got expected value for has_gettext");
 122 is($step->result(), 'yes', "Expected result was set");
 123 # Prepare for next test
 124 $step->set_result(undef);
 125
 126 {
 127     my $stdout;
 128     $test = "Hello, world!\n";
 129     $conf->options->set(verbose => 1);
 130     capture(
 131         sub {
 132             $has_gettext = $step->_evaluate_cc_run($conf, $test);
 133         },
 134         \$stdout,
 135     );
 136     is($has_gettext, 1, "Got expected value for has_gettext");
 137     is($step->result(), 'yes', "Expected result was set");
 138     like($stdout, qr/\(yes\)/, "Got expected verbose output");
 139     # Prepare for next test
 140     $step->set_result(undef);
 141 }
 142
 143 $test = "Foobar\n";
 144 $conf->options->set(verbose => undef);
 145 $has_gettext = $step->_evaluate_cc_run($conf, $test);
 146 is($has_gettext, 0, "Got expected value for has_gettext");
 147 ok(! defined $step->result(), "As expected, result is not yet defined");
 148
 149 $conf->replenish($serialized);
 150
 151 ########## --without-gettext; _handle_gettext() ##########
 152
 153 ($args, $step_list_ref) = process_options( {
 154     argv => [ q{--without-gettext} ],
 155     mode => q{configure},
 156 } );
 157 $conf->options->set( %{$args} );
 158 $step = test_step_constructor_and_description($conf);
 159
 160 $conf->options->set(verbose => undef);
 161 $conf->data->set( ccflags => q{} );
 162 $conf->data->set( libs    => q{} );
 163 my $libs = q{foo bar baz};
 164 ok(auto::gettext::_handle_gettext($conf, $libs),
 165     "_handle_gettext() returned true value");
 166 like($conf->data->get( 'ccflags' ), qr/-DHAS_GETTEXT/,
 167     "HAS_GETTEXT was added to 'ccflags'");
 168 like($conf->data->get( 'libs' ), qr/$libs/,
 169     "Values added to 'libs' as expected");
 170
 171 $conf->data->set( ccflags => q{} );
 172 $conf->data->set( libs    => q{} );
 173 {
 174     my ($stdout, $rv);
 175     $conf->options->set(verbose => 1);
 176     capture(
 177         sub { $rv = auto::gettext::_handle_gettext($conf, $libs); },
 178         \$stdout,
 179     );
 180     ok($rv, "_handle_gettext() returned true value");
 181     like($conf->data->get( 'ccflags' ), qr/-DHAS_GETTEXT/,
 182         "HAS_GETTEXT was added to 'ccflags'");
 183     like($conf->data->get( 'libs' ), qr/$libs/,
 184         "Values added to 'libs' as expected");
 185     like($stdout,
 186         qr/ccflags:\s.*-DHAS_GETTEXT/,
 187         "Got expected verbose output"
 188     );
 189     $conf->options->set(verbose => undef);
 190 }
 191
 192 pass("Completed all tests in $0");
 193
 194 ################### DOCUMENTATION ###################
 195
 196 =head1 NAME
 197
 198 auto/gettext-01.t - test auto::gettext
 199
 200 =head1 SYNOPSIS
 201
 202     % prove t/steps/auto/gettext-01.t
 203
 204 =head1 DESCRIPTION
 205
 206 The files in this directory test functionality used by F<Configure.pl>.
 207
 208 The tests in this file test auto::gettext.
 209
 210 =head1 AUTHOR
 211
 212 James E Keenan
 213
 214 =head1 SEE ALSO
 215
 216 config::auto::gettext, F<Configure.pl>.
 217
 218 =cut
 219
 220 # Local Variables:
 221 #   mode: cperl
 222 #   cperl-indent-level: 4
 223 #   fill-column: 100
 224 # End:
 225 # vim: expandtab shiftwidth=4: