[svn:parrot] r37152 - trunk/t/steps

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Sat Mar 7 02:05:14 UTC 2009


Author: jkeenan
Date: Sat Mar  7 02:05:14 2009
New Revision: 37152
URL: https://trac.parrot.org/parrot/changeset/37152

Log:
Last revisions duped what was being tested in auto_alignptrs-02.t.  Hence, added nothing to coverage.  Reverting.

Modified:
   trunk/t/steps/auto_alignptrs-01.t

Modified: trunk/t/steps/auto_alignptrs-01.t
==============================================================================
--- trunk/t/steps/auto_alignptrs-01.t	Sat Mar  7 01:12:13 2009	(r37151)
+++ trunk/t/steps/auto_alignptrs-01.t	Sat Mar  7 02:05:14 2009	(r37152)
@@ -5,7 +5,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 22;
+use Test::More tests => 17;
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::init::defaults');
@@ -63,34 +63,6 @@
 ok( $ret, "runstep() returned true value" );
 is($step->result(), qq{configured:  $align bytes}, "Expected result was set");
 
-$conf->replenish($serialized);
-
-########## mock an HPUX special case ##########
-
-($args, $step_list_ref) = process_options(
-    {
-        argv => [ ],
-        mode => q{configure},
-    }
-);
-
-$conf->add_steps($pkg);
-$conf->options->set( %{$args} );
-$step = test_step_constructor_and_description($conf);
-
-my $orig_OSNAME = $conf->data->get_p5('OSNAME');
-my $orig_ccflags = $conf->data->get_p5('ccflags');
-
-$conf->data->set_p5('OSNAME' => 'hpux');
-$conf->data->set_p5('ccflags' => '');
-$ret = $step->runstep($conf);
-ok( $ret, "runstep() returned true value" );
-like($step->result(), qr/^for hpux:/, "Expected result was set");
-
-# restore prior to subsequent tests
-$conf->data->set_p5('OSNAME' => $orig_OSNAME);
-$conf->data->set_p5('ccflags' => $orig_ccflags);
-
 pass("Completed all tests in $0");
 
 ################### DOCUMENTATION ###################


More information about the parrot-commits mailing list