[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