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

[jkeenan]

Author: jkeenan
Date: Wed Nov 26 15:15:31 2008
New Revision: 33244

Modified:
   trunk/t/steps/auto_arch-01.t
   trunk/t/steps/auto_signal-01.t
   trunk/t/steps/gen_platform-01.t

Log:
Delete tests pertaining to Configure.pl --miniparrot option, which has been 
deactivated.

Modified: trunk/t/steps/auto_arch-01.t
==============================================================================
--- trunk/t/steps/auto_arch-01.t        (original)
+++ trunk/t/steps/auto_arch-01.t        Wed Nov 26 15:15:31 2008
@@ -5,7 +5,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 110;
+use Test::More tests => 102;
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::init::defaults');
@@ -19,14 +19,12 @@
 );
 use IO::CaptureOutput qw| capture |;
 
-########## --miniparrot ##########
+########## Darwin special case ##########
 
-my ($args, $step_list_ref) = process_options(
-    {
-        argv => [ q{--miniparrot} ],
-        mode => q{configure},
-    }
-);
+my ($args, $step_list_ref) = process_options( {
+    argv => [ ],
+    mode => q{configure},
+} );
 
 my $conf = Parrot::Configure->new;
 
@@ -39,22 +37,6 @@
 $conf->add_steps($pkg);
 $conf->options->set( %{$args} );
 my $step = test_step_constructor_and_description($conf);
-my $ret = $step->runstep($conf);
-ok( $ret, "runstep() returned true value" );
-is($step->result(), q{skipped}, "Got expected result");
-
-$conf->replenish($serialized);
-
-########## Darwin special case ##########
-
-($args, $step_list_ref) = process_options( {
-    argv => [ ],
-    mode => q{configure},
-} );
-rerun_defaults_for_testing($conf, $args );
-$conf->add_steps($pkg);
-$conf->options->set( %{$args} );
-$step = test_step_constructor_and_description($conf);
 my $errstr;
 {
     # As the t/configure/ test suite is currently (Dec 25 2007) constructed,
@@ -119,7 +101,7 @@
 $step = test_step_constructor_and_description($conf);
 my $pseudoarch = q{foobar};
 $conf->data->set('archname' => $pseudoarch);
-$ret = $step->runstep($conf);
+my $ret = $step->runstep($conf);
 ok( $ret, "runstep() returned true value" );
 is($step->result(), q{}, "Result was empty string as expected");
 is($conf->data->get('cpuarch'), q{},

Modified: trunk/t/steps/auto_signal-01.t
==============================================================================
--- trunk/t/steps/auto_signal-01.t      (original)
+++ trunk/t/steps/auto_signal-01.t      Wed Nov 26 15:15:31 2008
@@ -5,7 +5,7 @@
 
 use strict;
 use warnings;
-use Test::More tests =>  43;
+use Test::More tests =>  35;
 use Carp;
 use Cwd;
 use File::Temp qw(tempdir);
@@ -21,14 +21,12 @@
 );
 use IO::CaptureOutput qw| capture |;
 
-########### --miniparrot ###########
+########### _handle__sighandler_t() ###########
 
-my ($args, $step_list_ref) = process_options(
-    {
-        argv => [ q{--miniparrot} ],
-        mode => q{configure},
-    }
-);
+my ($args, $step_list_ref) = process_options( {
+    argv => [ ],
+    mode => q{configure},
+} );
 
 my $conf = Parrot::Configure->new;
 
@@ -41,22 +39,6 @@
 $conf->add_steps($pkg);
 $conf->options->set( %{$args} );
 my $step = test_step_constructor_and_description($conf);
-my $ret = $step->runstep($conf);
-ok( $ret, "runstep() returned true value" );
-is($step->result(), q{skipped}, "Expected result was set");
-
-$conf->replenish($serialized);
-
-########### _handle__sighandler_t() ###########
-
-($args, $step_list_ref) = process_options( {
-    argv => [ ],
-    mode => q{configure},
-} );
-rerun_defaults_for_testing($conf, $args );
-$conf->add_steps($pkg);
-$conf->options->set( %{$args} );
-$step = test_step_constructor_and_description($conf);
 
 ok(auto::signal::_handle__sighandler_t($conf),
     "_handle__sighandler_t() returned true value");

Modified: trunk/t/steps/gen_platform-01.t
==============================================================================
--- trunk/t/steps/gen_platform-01.t     (original)
+++ trunk/t/steps/gen_platform-01.t     Wed Nov 26 15:15:31 2008
@@ -5,7 +5,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 20;
+use Test::More tests => 19;
 use Carp;
 use Cwd;
 use File::Copy;
@@ -48,11 +48,6 @@
 
 ########## _get_platform() ##########
 
-$conf->options->set( miniparrot => 1 );
-is( $step->_get_platform( $conf, $verbose ), q{ansi},
-    "Got expected platform for miniparrot");
-$conf->options->set( miniparrot => undef );
-
 $conf->data->set_p5( OSNAME => 'msys' );
 is( $step->_get_platform( $conf, $verbose ), q{win32},
     "Got expected platform for msys");