Revision 29639

Date:
2008/07/21 02:03:02
Author:
jkeenan
Revision Log:
gen_config_h: Delete unneeded sub import.
gen_core_pmcs: Test that the prerequisite parts of the Parrot::Configure
object can be located.
Files:

Legend:

 
Added
 
Removed
 
Modified

  • branches/parallel/t/steps/gen_config_h-01.t

     
    13 13 use Parrot::Configure::Options qw( process_options );
    14 14 use Parrot::Configure::Test qw(
    15 15 test_step_thru_runstep
    16 rerun_defaults_for_testing
    17 16 test_step_constructor_and_description
    18 17 );
    19 18

  • branches/parallel/t/steps/gen_core_pmcs-01.t

     
    5 5
    6 6 use strict;
    7 7 use warnings;
    8 use Test::More tests => 2;
    8 use Test::More tests => 16;
    9 9 use Carp;
    10 10 use lib qw( lib );
    11 use_ok('init::defaults');
    12 use_ok('auto::pmc');
    11 13 use_ok('config::gen::core_pmcs');
    14 use Parrot::Configure;
    15 use Parrot::Configure::Options qw( process_options );
    16 use Parrot::Configure::Test qw(
    17 test_step_thru_runstep
    18 );
    12 19
    13 =for hints_for_testing (At last! A config/ package with somewhat
    14 adequate documentation!) Consider testing the content of the files
    15 which the POD claims the module creates.
    20 my $args = process_options(
    21 {
    22 argv => [ ],
    23 mode => q{configure},
    24 }
    25 );
    16 26
    17 =cut
    27 my $conf = Parrot::Configure->new;
    28 test_step_thru_runstep( $conf, q{init::defaults}, $args );
    29 test_step_thru_runstep( $conf, q{auto::pmc}, $args );
    30 my $pkg = q{gen::core_pmcs};
    31 $conf->add_steps($pkg);
    32 $conf->options->set( %{$args} );
    33 my $step = test_step_constructor_and_description($conf);
    34 ok( scalar( split( / /, $conf->data->get('pmc_names') ) ),
    35 "Got nonzero number of pmc names, which is prerequisite for gen:core_pmcs");
    18 36
    19 37 pass("Completed all tests in $0");
    20 38
    … …  
    32 50
    33 51 The files in this directory test functionality used by F<Configure.pl>.
    34 52
    35 The tests in this file test subroutines exported by config::gen::core_pmcs.
    53 The tests in this file test configuration step gen::core_pmcs. Since the step
    54 is primarily concerned with printing files based on reading of a list of
    55 C<pmc>s found within the Parrot::Configure object's data structure, we content
    56 ourselves with ensuring that that list has nonzero size.
    36 57
    37 58 =head1 AUTHOR
    38 59
    … …  
    40 61
    41 62 =head1 SEE ALSO
    42 63
    43 config::gen::core_pmcs, F<Configure.pl>.
    64 config::gen::core_pmcs, config::auto::pmc, F<Configure.pl>.
    44 65
    45 66 =cut
    46 67