Author: jkeenan
Date: Sun Feb 17 09:38:37 2008
New Revision: 25798
Modified:
branches/tcif/t/steps/auto_format-01.t
branches/tcif/t/steps/auto_pack-01.t
branches/tcif/t/steps/auto_va_ptr-01.t
Log:
Revising test to eliminate reliance on init::defaults and use
Parrot::Configure::Parallel::Trace instead.
Modified: branches/tcif/t/steps/auto_format-01.t
==============================================================================
--- branches/tcif/t/steps/auto_format-01.t (original)
+++ branches/tcif/t/steps/auto_format-01.t Sun Feb 17 09:38:37 2008
@@ -5,15 +5,18 @@
use strict;
use warnings;
-use Test::More tests => 16;
+use Test::More tests => 13;
use Carp;
use lib qw( lib t/configure/testlib );
-use_ok('config::init::defaults');
use_ok('config::auto::format');
use Parrot::BuildUtil;
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
-use Parrot::Configure::Test qw( test_step_thru_runstep);
+use Parrot::Configure::Parallel::Trace;
+
+my $trace = Parrot::Configure::Parallel::Trace->new($0);
+ok(defined $trace, "Parallel::Trace constructor succeeded");
+is($trace->store_this_step(), 1, "Step stored");
my $args = process_options( {
argv => [],
@@ -21,12 +24,10 @@
} );
my $conf = Parrot::Configure->new();
-
-test_step_thru_runstep($conf, q{init::defaults}, $args);
+$conf->refresh($trace->get_previous_state());
my ($task, $step_name, $step, $ret);
my $pkg = q{auto::format};
-
$conf->add_steps($pkg);
$conf->options->set(%{$args});
Modified: branches/tcif/t/steps/auto_pack-01.t
==============================================================================
--- branches/tcif/t/steps/auto_pack-01.t (original)
+++ branches/tcif/t/steps/auto_pack-01.t Sun Feb 17 09:38:37 2008
@@ -5,16 +5,19 @@
use strict;
use warnings;
-use Test::More tests => 19;
+use Test::More tests => 16;
use Carp;
use lib qw( lib t/configure/testlib );
-use_ok('config::init::defaults');
use_ok('config::auto::pack');
use Parrot::BuildUtil;
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
-use Parrot::Configure::Test qw( test_step_thru_runstep);
use IO::CaptureOutput qw( capture );
+use Parrot::Configure::Parallel::Trace;
+
+my $trace = Parrot::Configure::Parallel::Trace->new($0);
+ok(defined $trace, "Parallel::Trace constructor succeeded");
+is($trace->store_this_step(), 1, "Step stored");
my $args = process_options( {
argv => [],
@@ -22,12 +25,10 @@
} );
my $conf = Parrot::Configure->new();
-
-test_step_thru_runstep($conf, q{init::defaults}, $args);
+$conf->refresh($trace->get_previous_state());
my ($task, $step_name, $step, $ret);
my $pkg = q{auto::pack};
-
$conf->add_steps($pkg);
$conf->options->set(%{$args});
Modified: branches/tcif/t/steps/auto_va_ptr-01.t
==============================================================================
--- branches/tcif/t/steps/auto_va_ptr-01.t (original)
+++ branches/tcif/t/steps/auto_va_ptr-01.t Sun Feb 17 09:38:37 2008
@@ -5,10 +5,17 @@
use strict;
use warnings;
-use Test::More tests => 2;
+use Test::More tests => 4;
use Carp;
use lib qw( lib );
use_ok('config::auto::va_ptr');
+use Parrot::Configure;
+use Parrot::Configure::Options qw( process_options );
+use Parrot::Configure::Parallel::Trace;
+
+my $trace = Parrot::Configure::Parallel::Trace->new($0);
+ok(defined $trace, "Parallel::Trace constructor succeeded");
+is($trace->store_this_step(), 1, "Step stored");
=for hints_for_testing The documentation of the package being tested is
insufficient; please try to improve it. Explore the likelihood of seg
