inter_libparrot-*.t

James Keenan via RT Sat, 17 May 2008 14:19:45 -0700

The tests needed a bit more information to adapt to the change described
above in config/inter/libparrot.pm.

The patch attached fixes the tests.  If there is no objection I'll apply
it within 24 hours.

Index: t/steps/inter_libparrot-02.t
===================================================================
--- t/steps/inter_libparrot-02.t        (revision 27599)
+++ t/steps/inter_libparrot-02.t        (working copy)
@@ -5,10 +5,11 @@
 
 use strict;
 use warnings;
-use Test::More tests =>  10;
+use Test::More tests =>  15;
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::init::defaults');
+use_ok('config::init::install');
 use_ok('config::inter::libparrot');
 use Parrot::Configure;
 use Parrot::Configure::Options qw( process_options );
@@ -24,6 +25,7 @@
 my $conf = Parrot::Configure->new;
 
 test_step_thru_runstep( $conf, q{init::defaults}, $args );
+test_step_thru_runstep( $conf, q{init::install}, $args );
 
 my $pkg = q{inter::libparrot};
 
@@ -31,7 +33,7 @@
 $conf->options->set( %{$args} );
 
 my ( $task, $step_name, $step);
-$task        = $conf->steps->[1];
+$task        = $conf->steps->[-1];
 $step_name   = $task->step;
 
 $step = $step_name->new();
Index: t/steps/inter_libparrot-06.t
===================================================================
--- t/steps/inter_libparrot-06.t        (revision 27599)
+++ t/steps/inter_libparrot-06.t        (working copy)
@@ -5,10 +5,11 @@
 
 use strict;
 use warnings;
-use Test::More tests =>  11;
+use Test::More tests =>  16;
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::init::defaults');
+use_ok('config::init::install');
 use_ok('config::inter::libparrot');
 use Parrot::Configure;
 use Parrot::Configure::Options qw( process_options );
@@ -24,6 +25,7 @@
 my $conf = Parrot::Configure->new;
 
 test_step_thru_runstep( $conf, q{init::defaults}, $args );
+test_step_thru_runstep( $conf, q{init::install}, $args );
 
 my $pkg = q{inter::libparrot};
 
@@ -31,7 +33,7 @@
 $conf->options->set( %{$args} );
 
 my ( $task, $step_name, $step);
-$task        = $conf->steps->[1];
+$task        = $conf->steps->[-1];
 $step_name   = $task->step;
 
 $step = $step_name->new();
Index: t/steps/inter_libparrot-03.t
===================================================================
--- t/steps/inter_libparrot-03.t        (revision 27599)
+++ t/steps/inter_libparrot-03.t        (working copy)
@@ -5,10 +5,11 @@
 
 use strict;
 use warnings;
-use Test::More tests =>  11;
+use Test::More tests =>  16;
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::init::defaults');
+use_ok('config::init::install');
 use_ok('config::inter::libparrot');
 use Parrot::Configure;
 use Parrot::Configure::Options qw( process_options );
@@ -24,6 +25,7 @@
 my $conf = Parrot::Configure->new;
 
 test_step_thru_runstep( $conf, q{init::defaults}, $args );
+test_step_thru_runstep( $conf, q{init::install}, $args );
 
 my $pkg = q{inter::libparrot};
 
@@ -31,7 +33,7 @@
 $conf->options->set( %{$args} );
 
 my ( $task, $step_name, $step);
-$task        = $conf->steps->[1];
+$task        = $conf->steps->[-1];
 $step_name   = $task->step;
 
 $step = $step_name->new();
Index: t/steps/inter_libparrot-07.t
===================================================================
--- t/steps/inter_libparrot-07.t        (revision 27599)
+++ t/steps/inter_libparrot-07.t        (working copy)
@@ -5,10 +5,11 @@
 
 use strict;
 use warnings;
-use Test::More tests =>  13;
+use Test::More tests =>  18;
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::init::defaults');
+use_ok('config::init::install');
 use_ok('config::inter::libparrot');
 use Parrot::Configure;
 use Parrot::Configure::Options qw( process_options );
@@ -25,6 +26,7 @@
 my $conf = Parrot::Configure->new;
 
 test_step_thru_runstep( $conf, q{init::defaults}, $args );
+test_step_thru_runstep( $conf, q{init::install}, $args );
 
 my $pkg = q{inter::libparrot};
 
@@ -32,7 +34,7 @@
 $conf->options->set( %{$args} );
 
 my ( $task, $step_name, $step);
-$task        = $conf->steps->[1];
+$task        = $conf->steps->[-1];
 $step_name   = $task->step;
 
 $step = $step_name->new();
Index: t/steps/inter_libparrot-04.t
===================================================================
--- t/steps/inter_libparrot-04.t        (revision 27599)
+++ t/steps/inter_libparrot-04.t        (working copy)
@@ -5,10 +5,11 @@
 
 use strict;
 use warnings;
-use Test::More tests =>  11;
+use Test::More tests =>  16;
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::init::defaults');
+use_ok('config::init::install');
 use_ok('config::inter::libparrot');
 use Parrot::Configure;
 use Parrot::Configure::Options qw( process_options );
@@ -24,6 +25,7 @@
 my $conf = Parrot::Configure->new;
 
 test_step_thru_runstep( $conf, q{init::defaults}, $args );
+test_step_thru_runstep( $conf, q{init::install}, $args );
 
 my $pkg = q{inter::libparrot};
 
@@ -31,7 +33,7 @@
 $conf->options->set( %{$args} );
 
 my ( $task, $step_name, $step);
-$task        = $conf->steps->[1];
+$task        = $conf->steps->[-1];
 $step_name   = $task->step;
 
 $step = $step_name->new();
Index: t/steps/inter_libparrot-08.t
===================================================================
--- t/steps/inter_libparrot-08.t        (revision 27599)
+++ t/steps/inter_libparrot-08.t        (working copy)
@@ -5,10 +5,11 @@
 
 use strict;
 use warnings;
-use Test::More tests =>  13;
+use Test::More tests =>  18;
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::init::defaults');
+use_ok('config::init::install');
 use_ok('config::inter::libparrot');
 use Parrot::Configure;
 use Parrot::Configure::Options qw( process_options );
@@ -25,6 +26,7 @@
 my $conf = Parrot::Configure->new;
 
 test_step_thru_runstep( $conf, q{init::defaults}, $args );
+test_step_thru_runstep( $conf, q{init::install}, $args );
 
 my $pkg = q{inter::libparrot};
 
@@ -32,7 +34,7 @@
 $conf->options->set( %{$args} );
 
 my ( $task, $step_name, $step);
-$task        = $conf->steps->[1];
+$task        = $conf->steps->[-1];
 $step_name   = $task->step;
 
 $step = $step_name->new();
Index: t/steps/inter_libparrot-01.t
===================================================================
--- t/steps/inter_libparrot-01.t        (revision 27599)
+++ t/steps/inter_libparrot-01.t        (working copy)
@@ -5,10 +5,11 @@
 
 use strict;
 use warnings;
-use Test::More tests => 11;
+use Test::More tests => 16;
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::init::defaults');
+use_ok('config::init::install');
 use_ok('config::inter::libparrot');
 use Parrot::Configure;
 use Parrot::Configure::Options qw( process_options );
@@ -24,6 +25,7 @@
 my $conf = Parrot::Configure->new;
 
 test_step_thru_runstep( $conf, q{init::defaults}, $args );
+test_step_thru_runstep( $conf, q{init::install}, $args );
 
 my $pkg = q{inter::libparrot};
 
@@ -31,7 +33,7 @@
 $conf->options->set( %{$args} );
 
 my ( $task, $step_name, $step);
-$task        = $conf->steps->[1];
+$task        = $conf->steps->[-1];
 $step_name   = $task->step;
 
 $step = $step_name->new();
Index: t/steps/inter_libparrot-05.t
===================================================================
--- t/steps/inter_libparrot-05.t        (revision 27599)
+++ t/steps/inter_libparrot-05.t        (working copy)
@@ -5,10 +5,11 @@
 
 use strict;
 use warnings;
-use Test::More tests =>  10;
+use Test::More tests =>  15;
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::init::defaults');
+use_ok('config::init::install');
 use_ok('config::inter::libparrot');
 use Parrot::Configure;
 use Parrot::Configure::Options qw( process_options );
@@ -24,6 +25,7 @@
 my $conf = Parrot::Configure->new;
 
 test_step_thru_runstep( $conf, q{init::defaults}, $args );
+test_step_thru_runstep( $conf, q{init::install}, $args );
 
 my $pkg = q{inter::libparrot};
 
@@ -31,7 +33,7 @@
 $conf->options->set( %{$args} );
 
 my ( $task, $step_name, $step);
-$task        = $conf->steps->[1];
+$task        = $conf->steps->[-1];
 $step_name   = $task->step;
 
 $step = $step_name->new();
Index: t/steps/inter_libparrot-09.t
===================================================================
--- t/steps/inter_libparrot-09.t        (revision 27599)
+++ t/steps/inter_libparrot-09.t        (working copy)
@@ -5,10 +5,11 @@
 
 use strict;
 use warnings;
-use Test::More tests =>  13;
+use Test::More tests =>  18;
 use Carp;
 use lib qw( lib t/configure/testlib );
 use_ok('config::init::defaults');
+use_ok('config::init::install');
 use_ok('config::inter::libparrot');
 use Parrot::Configure;
 use Parrot::Configure::Options qw( process_options );
@@ -25,6 +26,7 @@
 my $conf = Parrot::Configure->new;
 
 test_step_thru_runstep( $conf, q{init::defaults}, $args );
+test_step_thru_runstep( $conf, q{init::install}, $args );
 
 my $pkg = q{inter::libparrot};
 
@@ -32,7 +34,7 @@
 $conf->options->set( %{$args} );
 
 my ( $task, $step_name, $step);
-$task        = $conf->steps->[1];
+$task        = $conf->steps->[-1];
 $step_name   = $task->step;
 
 $step = $step_name->new();

[perl #54374] [BUG]: Warning being emitted when harness runs t/steps/inter_libparrot-*.t

Reply via email to