Author: coke
Date: Wed Nov 26 12:52:32 2008
New Revision: 33239
Modified:
branches/rm_miniparrot/t/steps/auto_memalign-01.t
branches/rm_miniparrot/t/steps/auto_signal-01.t
branches/rm_miniparrot/t/steps/gen_platform-01.t
Log:
Remove miniparrot from remaining tests in the branch. - all tests pass now.
Modified: branches/rm_miniparrot/t/steps/auto_memalign-01.t
==============================================================================
--- branches/rm_miniparrot/t/steps/auto_memalign-01.t (original)
+++ branches/rm_miniparrot/t/steps/auto_memalign-01.t Wed Nov 26 12:52:32 2008
@@ -1,11 +1,11 @@
#! perl
-# Copyright (C) 2007, The Perl Foundation.
+# Copyright (C) 2007-2008, The Perl Foundation.
# $Id$
# auto_memalign-01.t
use strict;
use warnings;
-use Test::More tests => 78;
+use Test::More tests => 68;
use Carp;
use lib qw( lib t/configure/testlib );
use_ok('config::init::defaults');
@@ -19,11 +19,11 @@
);
use IO::CaptureOutput qw| capture |;
-########### --miniparrot ###########
+########### regular ###########
my ($args, $step_list_ref) = process_options(
{
- argv => [ q{--miniparrot} ],
+ argv => [ ],
mode => q{configure},
}
);
@@ -32,37 +32,15 @@
my $serialized = $conf->pcfreeze();
-test_step_thru_runstep( $conf, q{init::defaults}, $args );
+rerun_defaults_for_testing($conf, $args );
my $pkg = q{auto::memalign};
$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");
-is($conf->data->get('memalign'),
- q{},
- "memalign set to empty string as expected"
-);
-
-$conf->replenish($serialized);
-
-########### regular ###########
-
-($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);
$conf->data->set( memalign => 'memalign');
-$ret = $step->runstep($conf);
+my $ret = $step->runstep($conf);
ok( $ret, "runstep() returned true value" );
is($step->result(), q{already set}, "Expected result was set");
is($conf->data->get('memalign'),
Modified: branches/rm_miniparrot/t/steps/auto_signal-01.t
==============================================================================
--- branches/rm_miniparrot/t/steps/auto_signal-01.t (original)
+++ branches/rm_miniparrot/t/steps/auto_signal-01.t Wed Nov 26 12:52:32 2008
@@ -1,11 +1,11 @@
#! perl
-# Copyright (C) 2007, The Perl Foundation.
+# Copyright (C) 2007-2008, The Perl Foundation.
# $Id$
# auto_signal-01.t
use strict;
use warnings;
-use Test::More tests => 43;
+use Test::More tests => 34;
use Carp;
use Cwd;
use File::Temp qw(tempdir);
@@ -21,42 +21,22 @@
);
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;
-
my $serialized = $conf->pcfreeze();
-test_step_thru_runstep( $conf, q{init::defaults}, $args );
-
my $pkg = q{auto::signal};
-$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);
+my $step = test_step_constructor_and_description($conf);
ok(auto::signal::_handle__sighandler_t($conf),
"_handle__sighandler_t() returned true value");
Modified: branches/rm_miniparrot/t/steps/gen_platform-01.t
==============================================================================
--- branches/rm_miniparrot/t/steps/gen_platform-01.t (original)
+++ branches/rm_miniparrot/t/steps/gen_platform-01.t Wed Nov 26 12:52:32 2008
@@ -1,11 +1,11 @@
#! perl
-# Copyright (C) 2007, The Perl Foundation.
+# Copyright (C) 2007-2008, The Perl Foundation.
# $Id$
# gen_platform-01.t
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");
