[svn:parrot] r42293 - trunk/t/steps/auto
jkeenan at svn.parrot.org
jkeenan at svn.parrot.org
Fri Nov 6 02:37:23 UTC 2009
Author: jkeenan
Date: Fri Nov 6 02:37:21 2009
New Revision: 42293
URL: https://trac.parrot.org/parrot/changeset/42293
Log:
Internal sub _handle_gettext() takes three arguments. Correct tests to reflect this interface.
Modified:
trunk/t/steps/auto/gettext-01.t
Modified: trunk/t/steps/auto/gettext-01.t
==============================================================================
--- trunk/t/steps/auto/gettext-01.t Fri Nov 6 01:21:15 2009 (r42292)
+++ trunk/t/steps/auto/gettext-01.t Fri Nov 6 02:37:21 2009 (r42293)
@@ -5,7 +5,7 @@
use strict;
use warnings;
-use Test::More tests => 30;
+use Test::More tests => 32;
use Carp;
use lib qw( lib t/configure/testlib );
use_ok('config::auto::gettext');
@@ -160,21 +160,29 @@
$verbose = undef;
$conf->data->set( ccflags => q{} );
-ok(auto::gettext::_handle_gettext($conf, $verbose),
+$conf->data->set( libs => q{} );
+my $libs = q{foo bar baz};
+ok(auto::gettext::_handle_gettext($conf, $verbose, $libs),
"_handle_gettext() returned true value");
like($conf->data->get( 'ccflags' ), qr/-DHAS_GETTEXT/,
"HAS_GETTEXT was added to 'ccflags'");
+like($conf->data->get( 'libs' ), qr/$libs/,
+ "Values added to 'libs' as expected");
+$conf->data->set( ccflags => q{} );
+$conf->data->set( libs => q{} );
{
my ($stdout, $rv);
$verbose = 1;
capture(
- sub { $rv = auto::gettext::_handle_gettext($conf, $verbose); },
+ sub { $rv = auto::gettext::_handle_gettext($conf, $verbose, $libs); },
\$stdout,
);
ok($rv, "_handle_gettext() returned true value");
like($conf->data->get( 'ccflags' ), qr/-DHAS_GETTEXT/,
"HAS_GETTEXT was added to 'ccflags'");
+ like($conf->data->get( 'libs' ), qr/$libs/,
+ "Values added to 'libs' as expected");
like($stdout,
qr/ccflags:\s.*-DHAS_GETTEXT/,
"Got expected verbose output"
More information about the parrot-commits
mailing list