Author: jkeenan Date: Sun Oct 28 06:32:10 2007 New Revision: 22548 Modified: trunk/t/configure/117-inter_shlibs-01.t trunk/t/configure/117-inter_shlibs-02.t
Log: Correct error in construction of tests. Delete references to auto::gcc in tests of inter::shlibs. Per report from chromatic in http://rt.perl.org/rt3/Ticket/Display.html?id=46961. Modified: trunk/t/configure/117-inter_shlibs-01.t ============================================================================== --- trunk/t/configure/117-inter_shlibs-01.t (original) +++ trunk/t/configure/117-inter_shlibs-01.t Sun Oct 28 06:32:10 2007 @@ -5,11 +5,10 @@ use strict; use warnings; -use Test::More tests => 19; +use Test::More tests => 14; use Carp; use lib qw( lib t/configure/testlib ); use_ok('config::init::defaults'); -use_ok('config::auto::gcc'); use_ok('config::inter::shlibs'); use Parrot::Configure; use Parrot::Configure::Options qw( process_options ); @@ -26,7 +25,6 @@ my $conf = Parrot::Configure->new; test_step_thru_runstep( $conf, q{init::defaults}, $args ); -test_step_thru_runstep( $conf, q{auto::gcc}, $args ); my $pkg = q{inter::shlibs}; @@ -34,7 +32,7 @@ $conf->options->set( %{$args} ); my ( $task, $step_name, @step_params, $step); -$task = $conf->steps->[2]; +$task = $conf->steps->[1]; $step_name = $task->step; @step_params = @{ $task->params }; @@ -44,7 +42,6 @@ ok( $step->description(), "$step_name has description" ); my ( @prompts, $prompt, $object ); -##### $prompt = q{foobar}; push @prompts, $prompt; Modified: trunk/t/configure/117-inter_shlibs-02.t ============================================================================== --- trunk/t/configure/117-inter_shlibs-02.t (original) +++ trunk/t/configure/117-inter_shlibs-02.t Sun Oct 28 06:32:10 2007 @@ -5,11 +5,10 @@ use strict; use warnings; -use Test::More tests => 19; +use Test::More tests => 14; use Carp; use lib qw( lib t/configure/testlib ); use_ok('config::init::defaults'); -use_ok('config::auto::gcc'); use_ok('config::inter::shlibs'); use Parrot::Configure; use Parrot::Configure::Options qw( process_options ); @@ -26,7 +25,6 @@ my $conf = Parrot::Configure->new; test_step_thru_runstep( $conf, q{init::defaults}, $args ); -test_step_thru_runstep( $conf, q{auto::gcc}, $args ); my $pkg = q{inter::shlibs}; @@ -34,7 +32,7 @@ $conf->options->set( %{$args} ); my ( $task, $step_name, @step_params, $step); -$task = $conf->steps->[2]; +$task = $conf->steps->[1]; $step_name = $task->step; @step_params = @{ $task->params };
