[svn:parrot] r42476 - branches/configtests/t/steps/auto

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Fri Nov 13 03:43:29 UTC 2009


Author: jkeenan
Date: Fri Nov 13 03:43:26 2009
New Revision: 42476
URL: https://trac.parrot.org/parrot/changeset/42476

Log:
Eliminate one superseded test.

Modified:
   branches/configtests/t/steps/auto/arch-01.t

Modified: branches/configtests/t/steps/auto/arch-01.t
==============================================================================
--- branches/configtests/t/steps/auto/arch-01.t	Fri Nov 13 03:40:16 2009	(r42475)
+++ branches/configtests/t/steps/auto/arch-01.t	Fri Nov 13 03:43:26 2009	(r42476)
@@ -5,7 +5,7 @@
 
 use strict;
 use warnings;
-use Test::More tests =>  84;
+use Test::More tests =>  81;
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::auto::arch');
@@ -33,29 +33,6 @@
 $conf->add_steps($pkg);
 $conf->options->set( %{$args} );
 my $step = test_step_constructor_and_description($conf);
-my $errstr;
-{
-    # As the t/configure/ test suite is currently (Dec 25 2007) constructed,
-    # an uninitialized value warning is generated when this test is run on
-    # Darwin because of a hack in config/auto/arch.pm.  We capture the warning
-    # and verify that we did so if on Darwin.  In the future, we will be able
-    # to eliminate this use of the signal handler because the
-    # Parrot::Configure object will have the same information available to it
-    # as it does during regular configuration.
-    local $SIG{__WARN__} = \&_capture;
-    my $ret = $step->runstep($conf);
-    ok( $ret, "runstep() returned true value" );
-    is($step->result(), q{}, "Result was empty string as expected");
-    if ($^O eq 'darwin') {
-        like(
-            $errstr,
-            qr/Uninitialized value/i,
-            "Caught uninitialized value warning as expected"
-        );
-    } else {
-        pass("Test not needed except on Darwin");
-    }
-}
 
 $conf->replenish($serialized);
 
@@ -340,8 +317,6 @@
 }
 pass("Completed all tests in $0");
 
-sub _capture { $errstr = $_[0]; }
-
 ################### DOCUMENTATION ###################
 
 =head1 NAME


More information about the parrot-commits mailing list