Author: jkeenan
Date: Sun Jul 20 19:03:02 2008
New Revision: 29639
Modified:
branches/parallel/t/steps/gen_config_h-01.t
branches/parallel/t/steps/gen_core_pmcs-01.t
Log:
gen_config_h: Delete unneeded sub import.
gen_core_pmcs: Test that the prerequisite parts of the Parrot::Configure
object can be located.
Modified: branches/parallel/t/steps/gen_config_h-01.t
==============================================================================
--- branches/parallel/t/steps/gen_config_h-01.t (original)
+++ branches/parallel/t/steps/gen_config_h-01.t Sun Jul 20 19:03:02 2008
@@ -13,7 +13,6 @@
use Parrot::Configure::Options qw( process_options );
use Parrot::Configure::Test qw(
test_step_thru_runstep
- rerun_defaults_for_testing
test_step_constructor_and_description
);
Modified: branches/parallel/t/steps/gen_core_pmcs-01.t
==============================================================================
--- branches/parallel/t/steps/gen_core_pmcs-01.t (original)
+++ branches/parallel/t/steps/gen_core_pmcs-01.t Sun Jul 20 19:03:02 2008
@@ -5,16 +5,34 @@
use strict;
use warnings;
-use Test::More tests => 2;
+use Test::More tests => 16;
use Carp;
use lib qw( lib );
+use_ok('init::defaults');
+use_ok('auto::pmc');
use_ok('config::gen::core_pmcs');
-
-=for hints_for_testing (At last! A config/ package with somewhat
-adequate documentation!) Consider testing the content of the files
-which the POD claims the module creates.
-
-=cut
+use Parrot::Configure;
+use Parrot::Configure::Options qw( process_options );
+use Parrot::Configure::Test qw(
+ test_step_thru_runstep
+);
+
+my $args = process_options(
+ {
+ argv => [ ],
+ mode => q{configure},
+ }
+);
+
+my $conf = Parrot::Configure->new;
+test_step_thru_runstep( $conf, q{init::defaults}, $args );
+test_step_thru_runstep( $conf, q{auto::pmc}, $args );
+my $pkg = q{gen::core_pmcs};
+$conf->add_steps($pkg);
+$conf->options->set( %{$args} );
+my $step = test_step_constructor_and_description($conf);
+ok( scalar( split( / /, $conf->data->get('pmc_names') ) ),
+ "Got nonzero number of pmc names, which is prerequisite for
gen:core_pmcs");
pass("Completed all tests in $0");
@@ -32,7 +50,10 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::gen::core_pmcs.
+The tests in this file test configuration step gen::core_pmcs. Since the step
+is primarily concerned with printing files based on reading of a list of
+C<pmc>s found within the Parrot::Configure object's data structure, we content
+ourselves with ensuring that that list has nonzero size.
=head1 AUTHOR
@@ -40,7 +61,7 @@
=head1 SEE ALSO
-config::gen::core_pmcs, F<Configure.pl>.
+config::gen::core_pmcs, config::auto::pmc, F<Configure.pl>.
=cut
