[svn:parrot] r47180 - branches/tt1452_configure_debug/t/steps/auto

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Mon May 31 01:26:08 UTC 2010


Author: jkeenan
Date: Mon May 31 01:26:08 2010
New Revision: 47180
URL: https://trac.parrot.org/parrot/changeset/47180

Log:
Update test file to reflect change in handling of verbose debugging output.

Modified:
   branches/tt1452_configure_debug/t/steps/auto/gmp-01.t

Modified: branches/tt1452_configure_debug/t/steps/auto/gmp-01.t
==============================================================================
--- branches/tt1452_configure_debug/t/steps/auto/gmp-01.t	Mon May 31 01:21:09 2010	(r47179)
+++ branches/tt1452_configure_debug/t/steps/auto/gmp-01.t	Mon May 31 01:26:08 2010	(r47180)
@@ -110,12 +110,12 @@
 $conf->options->set( %{$args} );
 $step = test_step_constructor_and_description($conf);
 
-my ($test, $has_gmp, $verbose);
+my ($test, $has_gmp);
 
 $test = $step->{cc_run_expected};
 $has_gmp = 0;
-$verbose = undef;
-$has_gmp = $step->_evaluate_cc_run($conf, $test, $has_gmp, $verbose);
+$conf->options->set(verbose => undef);
+$has_gmp = $step->_evaluate_cc_run($conf, $test, $has_gmp);
 is($step->result, 'yes', "Got expected result");
 is($conf->data->get('gmp'), 'define', "Expected value set for 'gmp'");
 is($conf->data->get('HAS_GMP'), 1, "Expected value set for 'HAS_GMP'");
@@ -126,8 +126,8 @@
 
 $test = '12345';
 $has_gmp = 0;
-$verbose = undef;
-$has_gmp = $step->_evaluate_cc_run($conf, $test, $has_gmp, $verbose);
+$conf->options->set(verbose => undef);
+$has_gmp = $step->_evaluate_cc_run($conf, $test, $has_gmp);
 ok(! defined($step->result), "Result undefined as expected");
 is($has_gmp, 0, "gmp status unchanged");
 
@@ -135,10 +135,10 @@
     my $stdout;
     $test = $step->{cc_run_expected};
     $has_gmp = 0;
-    $verbose = 1;
+    $conf->options->set(verbose => 1);
     capture(
         sub { $has_gmp =
-            $step->_evaluate_cc_run($conf, $test, $has_gmp, $verbose); },
+            $step->_evaluate_cc_run($conf, $test, $has_gmp); },
         \$stdout,
     );
     is($step->result, 'yes', "Got expected result");


More information about the parrot-commits mailing list