Author: jkeenan
Date: Thu Mar 29 19:06:52 2007
New Revision: 17849
Modified:
branches/reconfigure/t/configure/configure.t
Log:
In 'reconfigure' branch, t/configure/configure.t will break because
Parrot::Configure object is now a singleton. So most tests have been put in a
TODO block. Some have been commented out to avoid "can't locate in @INC"
errors.
Modified: branches/reconfigure/t/configure/configure.t
==============================================================================
--- branches/reconfigure/t/configure/configure.t (original)
+++ branches/reconfigure/t/configure/configure.t Thu Mar 29 19:06:52 2007
@@ -6,7 +6,8 @@
use warnings;
use lib qw( . lib ../lib ../../lib );
-use Test::More tests => 32;
+use Test::More qw(no_plan); # tests => 32;
+use Data::Dumper;
=head1 NAME
@@ -43,6 +44,10 @@
isa_ok( $pc, 'Parrot::Configure' );
}
+TODO: { # BEGIN TODO BLOCK
+ local $TODO = "t/configure/configure.t needs to be rewritten to reflect
that
+Parrot::Configure is now a singleton";
+
# ->data()
{
@@ -91,16 +96,16 @@
}
{
- my $pc = Parrot::Configure->new;
+ my $pci = Parrot::Configure->new;
- $pc->add_steps(qw(foo::step bar::step baz::step));
- my $steps = $pc->steps;
+ $pci->add_steps(qw(foo::step bar::step baz::step));
+ my $steps = $pci->steps;
is( scalar @$steps, 3, '->steps() retuned the proper number of steps' );
- is_deeply( $pc->steps->[0]->step,
+ is_deeply( $pci->steps->[0]->step,
'foo::step', '->steps() returned a task with the proper step name' );
- is_deeply( $pc->steps->[1]->step,
+ is_deeply( $pci->steps->[1]->step,
'bar::step', '->steps() returned a task with the proper step name' );
- is_deeply( $pc->steps->[2]->step,
+ is_deeply( $pci->steps->[2]->step,
'baz::step', '->steps() returned a task with the proper step name' );
}
@@ -135,140 +140,142 @@
'->steps() return a task with the proper params after ->add_step()
with args' );
}
-# ->runsteps()
-
-{
- my $pc = Parrot::Configure->new;
-
- isa_ok( $pc->runsteps, 'Parrot::Configure' );
-}
-
-{
-
- package test::step;
-
- # XXX is there a better way of doing this?
- $INC{'test/step.pm'}++;
-
- use vars qw($ran);
- use base qw(Parrot::Configure::Step::Base);
-
- $ran = 0;
-
- sub runstep {
- my ( $self, $conf ) = @_;
-
- $ran = 1;
-
- return $self;
- }
-
- package main;
-
- my $pc = Parrot::Configure->new;
-
- $pc->add_steps('test::step');
- $pc->runsteps;
-
- # otherwise runsteps() output will make Test::Harness think this test
- # failed.
- print "\n";
- is( $test::step::ran, 1, "test step was invokved" );
-}
-
-{
-
- package test::step::params;
-
- # XXX is there a better way of doing this?
- $INC{'test/step/params.pm'}++;
-
- use vars qw($self $conf @params);
- use base qw(Parrot::Configure::Step::Base);
-
- sub runstep {
- ( $self, $conf, @params ) = @_;
- return $self;
- }
+## ->runsteps()
+#
+#{
+# my $pc = Parrot::Configure->new;
+#
+# isa_ok( $pc->runsteps, 'Parrot::Configure' );
+#}
+#
+#{
+#
+# package test::step;
+#
+# # XXX is there a better way of doing this?
+# $INC{'test/step.pm'}++;
+#
+# use vars qw($ran);
+# use base qw(Parrot::Configure::Step::Base);
+#
+# $ran = 0;
+#
+# sub runstep {
+# my ( $self, $conf ) = @_;
+#
+# $ran = 1;
+#
+# return $self;
+# }
+#
+# package main;
+#
+# my $pc = Parrot::Configure->new;
+#
+# $pc->add_steps('test::step');
+# $pc->runsteps;
+#
+# # otherwise runsteps() output will make Test::Harness think this test
+# # failed.
+# print "\n";
+# is( $test::step::ran, 1, "test step was invokved" );
+#}
+#
+#{
+#
+# package test::step::params;
+#
+# # XXX is there a better way of doing this?
+# $INC{'test/step/params.pm'}++;
+#
+# use vars qw($self $conf @params);
+# use base qw(Parrot::Configure::Step::Base);
+#
+# sub runstep {
+# ( $self, $conf, @params ) = @_;
+# return $self;
+# }
+#
+# package main;
+#
+# my $pc = Parrot::Configure->new;
+#
+# $pc->add_steps('test::step::params');
+# $pc->runsteps;
+#
+# # otherwise runsteps() output will make Test::Harness think this test
+# # failed.
+# print "\n";
+# isa_ok( $test::step::params::self, 'test::step::params' );
+# isa_ok( $test::step::params::conf, 'Parrot::Configure' );
+# is_deeply( [EMAIL PROTECTED]::step::params::conf, [], "no extra
parameters were passed to ->runstep()" );
+#}
+#
+#{
+#
+# package test::step::stepparams;
+#
+# # XXX is there a better way of doing this?
+# $INC{'test/step/stepparams.pm'}++;
+#
+# use vars qw($self $conf @params);
+# use base qw(Parrot::Configure::Step::Base);
+#
+# sub runstep {
+# ( $self, $conf, @params ) = @_;
+# return $self;
+# }
+#
+# package main;
+#
+# my $pc = Parrot::Configure->new;
+#
+# $pc->add_step( 'test::step::stepparams', 24, qw( bar baz bong ), 42 );
+# $pc->runsteps;
+#
+# # otherwise runsteps() output will make Test::Harness think this test
+# # failed.
+# print "\n";
+# isa_ok( $test::step::stepparams::self, 'test::step::stepparams' );
+# isa_ok( $test::step::stepparams::conf, 'Parrot::Configure' );
+# cmp_ok( $test::step::stepparams::self, 'ne',
$test::step::stepparams::conf,
+# '$self and $conf params are not the same object' );
+# is_deeply(
+# [EMAIL PROTECTED]::step::stepparams::params,
+# [ 24, qw( bar baz bong ), 42 ],
+# 'proper additional parameters were passed to ->runstep()'
+# );
+#}
+#
+#{
+#
+# package test::step::stepfail;
+#
+# # XXX is there a better way of doing this?
+# $INC{'test/step/stepfail.pm'}++;
+#
+# use vars qw($self $conf @params);
+# use base qw(Parrot::Configure::Step::Base);
+#
+# sub runstep {
+# return;
+# }
+#
+# package main;
+#
+# my $pc = Parrot::Configure->new();
+#
+# # send warnings to stdout
+# open *STDERR, ">&STDOUT" or die "Can't dup STDOUT: $!";
+#
+# $pc->add_step('test::step::stepfail');
+# my $ret = $pc->runsteps();
+# print "\n";
+# is( ref $ret, 'Parrot::Configure',
+# '->runsteps() returns even on failure a Parrot::Configure instance' );
+#}
- package main;
-
- my $pc = Parrot::Configure->new;
-
- $pc->add_steps('test::step::params');
- $pc->runsteps;
-
- # otherwise runsteps() output will make Test::Harness think this test
- # failed.
- print "\n";
- isa_ok( $test::step::params::self, 'test::step::params' );
- isa_ok( $test::step::params::conf, 'Parrot::Configure' );
- is_deeply( [EMAIL PROTECTED]::step::params::conf, [], "no extra parameters
were passed to ->runstep()" );
-}
-
-{
-
- package test::step::stepparams;
-
- # XXX is there a better way of doing this?
- $INC{'test/step/stepparams.pm'}++;
-
- use vars qw($self $conf @params);
- use base qw(Parrot::Configure::Step::Base);
-
- sub runstep {
- ( $self, $conf, @params ) = @_;
- return $self;
- }
-
- package main;
-
- my $pc = Parrot::Configure->new;
-
- $pc->add_step( 'test::step::stepparams', 24, qw( bar baz bong ), 42 );
- $pc->runsteps;
-
- # otherwise runsteps() output will make Test::Harness think this test
- # failed.
- print "\n";
- isa_ok( $test::step::stepparams::self, 'test::step::stepparams' );
- isa_ok( $test::step::stepparams::conf, 'Parrot::Configure' );
- cmp_ok( $test::step::stepparams::self, 'ne', $test::step::stepparams::conf,
- '$self and $conf params are not the same object' );
- is_deeply(
- [EMAIL PROTECTED]::step::stepparams::params,
- [ 24, qw( bar baz bong ), 42 ],
- 'proper additional parameters were passed to ->runstep()'
- );
-}
-
-{
-
- package test::step::stepfail;
-
- # XXX is there a better way of doing this?
- $INC{'test/step/stepfail.pm'}++;
-
- use vars qw($self $conf @params);
- use base qw(Parrot::Configure::Step::Base);
-
- sub runstep {
- return;
- }
-
- package main;
-
- my $pc = Parrot::Configure->new();
-
- # send warnings to stdout
- open *STDERR, ">&STDOUT" or die "Can't dup STDOUT: $!";
-
- $pc->add_step('test::step::stepfail');
- my $ret = $pc->runsteps();
- print "\n";
- is( ref $ret, 'Parrot::Configure',
- '->runsteps() returns even on failure a Parrot::Configure instance' );
-}
+} # END TODO BLOCK
# Local Variables:
# mode: cperl
