Author: jkeenan
Date: Mon Jul 28 16:53:37 2008
New Revision: 29834
Modified:
branches/parallel/t/steps/auto_alignptrs-01.t
branches/parallel/t/steps/auto_alignptrs-02.t
branches/parallel/t/steps/auto_arch-01.t
branches/parallel/t/steps/auto_crypto-01.t
branches/parallel/t/steps/auto_ctags-01.t
branches/parallel/t/steps/auto_env-01.t
branches/parallel/t/steps/auto_fink-01.t
branches/parallel/t/steps/auto_gc-01.t
branches/parallel/t/steps/auto_gcc-01.t
branches/parallel/t/steps/auto_gdbm-01.t
branches/parallel/t/steps/auto_gettext-01.t
branches/parallel/t/steps/auto_glibc-01.t
branches/parallel/t/steps/auto_icu-01.t
branches/parallel/t/steps/auto_isreg-01.t
branches/parallel/t/steps/auto_macports-01.t
branches/parallel/t/steps/auto_macports-02.t
branches/parallel/t/steps/auto_memalign-01.t
branches/parallel/t/steps/auto_opengl-01.t
branches/parallel/t/steps/auto_ops-01.t
branches/parallel/t/steps/auto_pack-01.t
branches/parallel/t/steps/auto_pcre-01.t
branches/parallel/t/steps/auto_perldoc-01.t
branches/parallel/t/steps/auto_readline-01.t
branches/parallel/t/steps/auto_readline-02.t
branches/parallel/t/steps/auto_revision-01.t
branches/parallel/t/steps/auto_snprintf-01.t
branches/parallel/t/steps/gen_call_list-01.t
branches/parallel/t/steps/gen_config_h-01.t
branches/parallel/t/steps/gen_config_pm-01.t
branches/parallel/t/steps/gen_core_pmcs-01.t
branches/parallel/t/steps/gen_crypto-01.t
branches/parallel/t/steps/gen_languages-01.t
branches/parallel/t/steps/gen_makefiles-01.t
branches/parallel/t/steps/gen_opengl-01.t
branches/parallel/t/steps/gen_parrot_include-01.t
branches/parallel/t/steps/gen_platform-01.t
branches/parallel/t/steps/init_defaults-01.t
branches/parallel/t/steps/init_headers-01.t
branches/parallel/t/steps/init_manifest-01.t
branches/parallel/t/steps/inter_lex-02.t
branches/parallel/t/steps/inter_lex-03.t
branches/parallel/t/steps/inter_make-01.t
branches/parallel/t/steps/inter_yacc-02.t
Log:
[configure] Fine-tuning of tests for configuration steps. Clarify POD.
Provide inline comments functioning as subheads where tests previously found
in multiple files have been moved into a single file.
Modified: branches/parallel/t/steps/auto_alignptrs-01.t
==============================================================================
--- branches/parallel/t/steps/auto_alignptrs-01.t (original)
+++ branches/parallel/t/steps/auto_alignptrs-01.t Mon Jul 28 16:53:37 2008
@@ -88,7 +88,7 @@
=head1 NAME
-auto_alignptrs-01.t - test config::auto::alignptrs
+auto_alignptrs-01.t - test auto::alignptrs
=head1 SYNOPSIS
@@ -98,7 +98,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::auto::alignptrs.
+The tests in this file test auto::alignptrs.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_alignptrs-02.t
==============================================================================
--- branches/parallel/t/steps/auto_alignptrs-02.t (original)
+++ branches/parallel/t/steps/auto_alignptrs-02.t Mon Jul 28 16:53:37 2008
@@ -89,7 +89,7 @@
=head1 NAME
-auto_alignptrs-02.t - test config::auto::alignptrs
+auto_alignptrs-02.t - test auto::alignptrs
=head1 SYNOPSIS
@@ -99,7 +99,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::auto::alignptrs.
+The tests in this file test auto::alignptrs.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_arch-01.t
==============================================================================
--- branches/parallel/t/steps/auto_arch-01.t (original)
+++ branches/parallel/t/steps/auto_arch-01.t Mon Jul 28 16:53:37 2008
@@ -293,7 +293,7 @@
=head1 NAME
-auto_arch-01.t - test config::auto::arch
+auto_arch-01.t - test auto::arch
=head1 SYNOPSIS
@@ -303,8 +303,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test config::auto::arch when the C<--miniparrot>
-option is provided.
+The tests in this file test auto::arch.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_crypto-01.t
==============================================================================
--- branches/parallel/t/steps/auto_crypto-01.t (original)
+++ branches/parallel/t/steps/auto_crypto-01.t Mon Jul 28 16:53:37 2008
@@ -18,6 +18,8 @@
);
use IO::CaptureOutput qw( capture );
+########## --without-crypto ##########
+
my $args = process_options(
{
argv => [ q{--without-crypto} ],
@@ -45,6 +47,8 @@
$conf->replenish($serialized);
+########## _add_to_libs() ##########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -117,6 +121,8 @@
"Got expected value for 'linkflags'");
is($step->result, 'no', "Expected result was set");
+########## _recheck_settings() ##########
+
{
my $stdout;
$libs = q{-lalpha};
@@ -140,6 +146,8 @@
$conf->replenish($serialized);
+########## --without-crypto; _evaluate_cc_run() ##########
+
$args = process_options( {
argv => [ q{--without-crypto} ],
mode => q{configure},
@@ -180,15 +188,13 @@
$step->set_result(undef);
}
-
-
pass("Completed all tests in $0");
################### DOCUMENTATION ###################
=head1 NAME
-auto_crypto-01.t - test config::auto::crypto
+auto_crypto-01.t - test auto::crypto
=head1 SYNOPSIS
@@ -198,8 +204,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test config::auto::crypto in the case where the
-C<--without-crypto> option is set.
+The tests in this file test auto::crypto.
=head1 HISTORY
Modified: branches/parallel/t/steps/auto_ctags-01.t
==============================================================================
--- branches/parallel/t/steps/auto_ctags-01.t (original)
+++ branches/parallel/t/steps/auto_ctags-01.t Mon Jul 28 16:53:37 2008
@@ -14,11 +14,12 @@
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
);
use IO::CaptureOutput qw( capture );
+########## regular ##########
+
my $args = process_options( {
argv => [ ],
mode => q{configure},
@@ -46,6 +47,8 @@
$conf->replenish($serialized);
+########## --verbose ##########
+
$args = process_options( {
argv => [ q{--verbose} ],
mode => q{configure},
@@ -66,6 +69,8 @@
$conf->replenish($serialized);
+########## _evaluate_ctags() ##########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -83,6 +88,8 @@
$conf->replenish($serialized);
+########## _probe_for_ctags_output() ##########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -124,9 +131,7 @@
=head1 DESCRIPTION
-Regression tests for the L<Parrot::Configure step auto::ctags> module.
-This file holds tests for Parrot::Configure step auto::ctags::runstep()
-(a non-exported subroutine).
+This file holds tests for auto::ctags.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_env-01.t
==============================================================================
--- branches/parallel/t/steps/auto_env-01.t (original)
+++ branches/parallel/t/steps/auto_env-01.t Mon Jul 28 16:53:37 2008
@@ -139,7 +139,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines found in auto::env.
+The tests in this file test auto::env.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_fink-01.t
==============================================================================
--- branches/parallel/t/steps/auto_fink-01.t (original)
+++ branches/parallel/t/steps/auto_fink-01.t Mon Jul 28 16:53:37 2008
@@ -136,7 +136,7 @@
$conf->replenish($serialized);
-########## not Darwin; verbose ##########
+########## not Darwin; --verbose ##########
$args = process_options( {
argv => [ q{--verbose} ],
@@ -162,7 +162,7 @@
$conf->replenish($serialized);
-########## Darwin; verbose; no Fink ##########
+########## Darwin; --verbose; no Fink ##########
$args = process_options( {
argv => [ q{--verbose} ],
@@ -190,7 +190,7 @@
$conf->replenish($serialized);
-########## Darwin; verbose; defective Fink ##########
+########## Darwin; --verbose; defective Fink ##########
$args = process_options( {
argv => [ q{--verbose} ],
@@ -224,7 +224,7 @@
$conf->replenish($serialized);
-########## Darwin; verbose; defective Fink ##########
+########## Darwin; --verbose; defective Fink ##########
$args = process_options( {
argv => [ q{--verbose} ],
Modified: branches/parallel/t/steps/auto_gc-01.t
==============================================================================
--- branches/parallel/t/steps/auto_gc-01.t (original)
+++ branches/parallel/t/steps/auto_gc-01.t Mon Jul 28 16:53:37 2008
@@ -135,7 +135,7 @@
=head1 NAME
-auto_gc-01.t - test config::auto::gc
+auto_gc-01.t - test auto::gc
=head1 SYNOPSIS
@@ -145,7 +145,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::auto::gc.
+The tests in this file test auto::gc.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_gcc-01.t
==============================================================================
--- branches/parallel/t/steps/auto_gcc-01.t (original)
+++ branches/parallel/t/steps/auto_gcc-01.t Mon Jul 28 16:53:37 2008
@@ -75,7 +75,7 @@
$conf->replenish($serialized);
-########## _evaluate_gcc(); verbose ##########
+########## _evaluate_gcc(); --verbose ##########
$args = process_options( {
argv => [ q{--verbose} ],
@@ -121,7 +121,7 @@
$conf->replenish($serialized);
-########## _evaluate_gcc(); verbose ##########
+########## _evaluate_gcc(); --verbose ##########
$args = process_options( {
argv => [ q{--verbose} ],
@@ -197,7 +197,7 @@
$conf->replenish($serialized);
-########## _evaluate_gcc(); verbose ##########
+########## _evaluate_gcc(); --verbose ##########
$args = process_options( {
argv => [ q{--verbose} ],
@@ -267,7 +267,7 @@
$conf->replenish($serialized);
-########## _evaluate_gcc(); miniparrot ##########
+########## _evaluate_gcc(); --miniparrot ##########
$args = process_options( {
argv => [ q{--miniparrot} ],
Modified: branches/parallel/t/steps/auto_gdbm-01.t
==============================================================================
--- branches/parallel/t/steps/auto_gdbm-01.t (original)
+++ branches/parallel/t/steps/auto_gdbm-01.t Mon Jul 28 16:53:37 2008
@@ -30,6 +30,8 @@
=cut
+########## --without-gdbm ##########
+
my $args = process_options( {
argv => [ q{--without-gdbm} ],
mode => q{configure},
@@ -54,6 +56,8 @@
$conf->replenish($serialized);
+########## --without-gdbm; _handle_darwin_for_fink() ##########
+
$args = process_options( {
argv => [ q{--without-gdbm} ],
mode => q{configure},
@@ -117,6 +121,8 @@
$conf->replenish($serialized);
+########## --without-gdbm; _evaluate_cc_run() ##########
+
$args = process_options( {
argv => [ q{--without-gdbm} ],
mode => q{configure},
@@ -159,6 +165,8 @@
$conf->replenish($serialized);
+########## --without-gdbm; _recheck_settings() ##########
+
$args = process_options( {
argv => [ q{--without-gdbm} ],
mode => q{configure},
@@ -210,7 +218,7 @@
=head1 NAME
-auto_gdbm-01.t - test config::auto::gdbm
+auto_gdbm-01.t - test auto::gdbm
=head1 SYNOPSIS
@@ -220,8 +228,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test config::auto::gdbm in the case where the
-C<--without-gdbm> option is set.
+The tests in this file test auto::gdbm.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_gettext-01.t
==============================================================================
--- branches/parallel/t/steps/auto_gettext-01.t (original)
+++ branches/parallel/t/steps/auto_gettext-01.t Mon Jul 28 16:53:37 2008
@@ -19,6 +19,8 @@
);
use IO::CaptureOutput qw( capture );
+########## --without-gettext ##########
+
my $args = process_options(
{
argv => [ q{--without-gettext} ],
@@ -46,6 +48,8 @@
$conf->replenish($serialized);
+########## _add_to_libs() ##########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -120,6 +124,8 @@
like($conf->data->get( 'libs' ), qr/-lintl/,
"'libs' modified as expected");
+########## _evaluate_cc_run() ##########
+
my ($test, $verbose);
my $has_gettext;
@@ -156,6 +162,8 @@
$conf->replenish($serialized);
+########## --without-gettext; _handle_gettext() ##########
+
$args = process_options( {
argv => [ q{--without-gettext} ],
mode => q{configure},
@@ -186,14 +194,13 @@
);
}
-
pass("Completed all tests in $0");
################### DOCUMENTATION ###################
=head1 NAME
-auto_gettext-01.t - test config::auto::gettext
+auto_gettext-01.t - test auto::gettext
=head1 SYNOPSIS
@@ -203,8 +210,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test config::auto::gettext in the case where the
-C<--without-gettext> option is set.
+The tests in this file test auto::gettext.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_glibc-01.t
==============================================================================
--- branches/parallel/t/steps/auto_glibc-01.t (original)
+++ branches/parallel/t/steps/auto_glibc-01.t Mon Jul 28 16:53:37 2008
@@ -74,7 +74,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test the 'normal functioning' of auto::glibc.
+The tests in this file test auto::glibc.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_icu-01.t
==============================================================================
--- branches/parallel/t/steps/auto_icu-01.t (original)
+++ branches/parallel/t/steps/auto_icu-01.t Mon Jul 28 16:53:37 2008
@@ -23,6 +23,8 @@
use Parrot::Configure::Utils qw( capture_output );
use IO::CaptureOutput qw( capture );
+########## --without-icu ##########
+
my $args = process_options(
{
argv => [ q{--without-icu} ],
@@ -53,6 +55,8 @@
is( $step->result(), 'not requested', "Got expected result" );
$step->set_result(q{}); # prepare for subsequent tests
+########## _handle_icuconfig_opt() ##########
+
# Test some internal routines
my $icuconfig;
my $phony = q{/path/to/icu-config};
@@ -64,6 +68,8 @@
is($step->_handle_icuconfig_opt($phony), $phony,
"Got expected value for icu-config");
+########## _handle_search_for_icuconfig() ##########
+
my ($autodetect, $without);
($icuconfig, $autodetect, $without) =
@@ -124,6 +130,8 @@
"Got expected verbose output");
}
+########## _handle_autodetect() ##########
+
($icuconfig, $autodetect, $without) =
$step->_handle_autodetect( {
icuconfig => $phony,
@@ -156,6 +164,8 @@
"Got expected verbose output");
}
+########## _handle_icushared() ##########
+
my $icushared;
$icushared = qq{-licui18n -lalpha\n};
@@ -173,6 +183,8 @@
ok(! defined $icushared, "icushared remains undefined, as expected");
is($without, 0, "Continuing to try to configure with ICU");
+########## _handle_icuheaders() ##########
+
my $icuheaders;
($icuheaders, $without) =
$step->_handle_icuheaders($conf, undef, 0);
@@ -226,6 +238,8 @@
chdir $cwd or croak "Unable to change back to starting directory";
}
+########## _try_icuconfig() ##########
+
($without, $icushared, $icuheaders) =
$step->_try_icuconfig(
$conf,
@@ -271,6 +285,8 @@
ok(! defined $icuheaders, "icuheaders undefined, as expected");
is($step->result(), q{}, "result is still empty string, as expected");
+########## _verbose_report() ##########
+
my $die = auto::icu::_die_message();
like($die, qr/Something is wrong with your ICU installation/s,
"Got expected die message");
@@ -324,6 +340,8 @@
ok(! $stdout, "No verbose output, as expected");
}
+########## _handle_icuconfig_errors() ##########
+
{
my ($stdout, $stderr);
capture(
@@ -344,6 +362,8 @@
"Got expected warnings");
}
+########## _handle_ccflags_status() ##########
+
$icuheaders = q{alpha};
my $status = $conf->data->get( 'ccflags' );
@@ -416,6 +436,8 @@
);
$conf->data->set( ccflags => $status ); # re-set for next test
+########## _set_no_configure_with_icu() ##########
+
$conf->data->set( 'has_icu', undef );
$conf->data->set( 'icu_shared', undef );
$conf->data->set( 'icu_dir', undef );
@@ -435,6 +457,8 @@
$conf->replenish($serialized);
+########## --without-icu; --icu-config=none ##########
+
$args = process_options( {
argv => [ q{--without-icu}, q{--icu-config=none} ],
mode => q{configure},
@@ -456,6 +480,8 @@
$conf->replenish($serialized);
+########## --icu-config=1; --icuheaders; --icushared ##########
+
{
my ($stdout, $stderr, $ret);
eval { ($stdout, $stderr, $ret) =
@@ -492,6 +518,8 @@
$conf->replenish($serialized);
+########## --verbose ##########
+
$args = process_options( {
argv => [ q{--verbose} ],
mode => q{configure},
@@ -502,7 +530,6 @@
$step = test_step_constructor_and_description($conf);
$phony = q{phony};
$step->{icuconfig_default} = $phony;
-#print STDERR Dumper ($step, $conf);
{
my ($stdout, $stderr);
@@ -545,6 +572,8 @@
$conf->replenish($serialized);
+########## --icuheaders ##########
+
{
my ($stdout, $stderr, $ret);
eval { ($stdout, $stderr, $ret) =
@@ -583,6 +612,8 @@
$conf->replenish($serialized);
+########## --verbose; _try_icuconfig() ##########
+
{
my ($stdout, $stderr, $ret);
eval { ($stdout, $stderr, $ret) =
@@ -639,7 +670,7 @@
=head1 NAME
-auto_icu-01.t - test config::auto::icu
+auto_icu-01.t - test auto::icu
=head1 SYNOPSIS
@@ -649,9 +680,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test config::auto::icu in the case where configuration
-without ICU is requested. Also tested are most of the internal subroutines
-and methods.
+The tests in this file test auto::icu.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_isreg-01.t
==============================================================================
--- branches/parallel/t/steps/auto_isreg-01.t (original)
+++ branches/parallel/t/steps/auto_isreg-01.t Mon Jul 28 16:53:37 2008
@@ -60,7 +60,7 @@
$conf->replenish($serialized);
-########## _evaluate_isreg(); verbose ##########
+########## _evaluate_isreg(); --verbose ##########
$args = process_options( {
argv => [ q{--verbose} ],
Modified: branches/parallel/t/steps/auto_macports-01.t
==============================================================================
--- branches/parallel/t/steps/auto_macports-01.t (original)
+++ branches/parallel/t/steps/auto_macports-01.t Mon Jul 28 16:53:37 2008
@@ -98,7 +98,7 @@
$conf->replenish($serialized);
-########## not Darwin; verbose ##########
+########## not Darwin; --verbose ##########
$args = process_options( {
argv => [ q{--verbose} ],
@@ -123,7 +123,7 @@
$conf->replenish($serialized);
-########## Darwin; verbose; no Macports ##########
+########## Darwin; --verbose; no Macports ##########
$args = process_options( {
argv => [ q{--verbose} ],
@@ -167,7 +167,7 @@
$conf->replenish($serialized);
-########## Darwin; verbose; defective Macports ##########
+########## Darwin; --verbose; defective Macports ##########
$args = process_options( {
argv => [ q{--verbose} ],
Modified: branches/parallel/t/steps/auto_macports-02.t
==============================================================================
--- branches/parallel/t/steps/auto_macports-02.t (original)
+++ branches/parallel/t/steps/auto_macports-02.t Mon Jul 28 16:53:37 2008
@@ -18,7 +18,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
);
@@ -47,7 +46,7 @@
=head1 NAME
-auto_macports-02.t - test config::auto::macports
+auto_macports-02.t - test auto::macports
=head1 SYNOPSIS
@@ -57,8 +56,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test config::auto::macports by mocking the case where
-the root directory for Macports is not located.
+The tests in this file test auto::macports.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_memalign-01.t
==============================================================================
--- branches/parallel/t/steps/auto_memalign-01.t (original)
+++ branches/parallel/t/steps/auto_memalign-01.t Mon Jul 28 16:53:37 2008
@@ -266,7 +266,7 @@
=head1 NAME
-auto_memalign-01.t - test config::auto::memalign
+auto_memalign-01.t - test auto::memalign
=head1 SYNOPSIS
Modified: branches/parallel/t/steps/auto_opengl-01.t
==============================================================================
--- branches/parallel/t/steps/auto_opengl-01.t (original)
+++ branches/parallel/t/steps/auto_opengl-01.t Mon Jul 28 16:53:37 2008
@@ -19,6 +19,8 @@
);
use IO::CaptureOutput qw| capture |;
+########## --without-opengl ##########
+
my $args = process_options(
{
argv => [ q{--without-opengl} ],
@@ -44,6 +46,8 @@
$conf->replenish($serialized);
+########## _add_to_libs() ##########
+
$args = process_options(
{
argv => [ ],
@@ -135,6 +139,8 @@
$conf->replenish($serialized);
+########## --verbose; _evaluate_cc_run() ##########
+
$args = process_options(
{
argv => [ q{--verbose} ],
@@ -189,6 +195,8 @@
);
}
+########## _handle_glut() ##########
+
{
my $glut_api_version = '4';
my $glut_brand = 'freeglut';
@@ -208,7 +216,6 @@
"Got expected value for has_glut");
is( $conf->data->get( 'HAS_GLUT' ), $glut_api_version,
"Got expected value for HAS_GLUT");
-
}
pass("Completed all tests in $0");
@@ -217,7 +224,7 @@
=head1 NAME
- auto_opengl-01.t - test config::auto::opengl
+ auto_opengl-01.t - test auto::opengl
=head1 SYNOPSIS
@@ -227,8 +234,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test configuration step class auto::opengl in the case
-where C<--without-opengl> has been requested on the command line.
+The tests in this file test configuration step class auto::opengl.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_ops-01.t
==============================================================================
--- branches/parallel/t/steps/auto_ops-01.t (original)
+++ branches/parallel/t/steps/auto_ops-01.t Mon Jul 28 16:53:37 2008
@@ -50,7 +50,7 @@
=head1 NAME
-auto_ops-01.t - test config::auto::ops
+auto_ops-01.t - test auto::ops
=head1 SYNOPSIS
@@ -60,7 +60,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::auto::ops.
+The tests in this file test auto::ops.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_pack-01.t
==============================================================================
--- branches/parallel/t/steps/auto_pack-01.t (original)
+++ branches/parallel/t/steps/auto_pack-01.t Mon Jul 28 16:53:37 2008
@@ -271,7 +271,7 @@
=head1 NAME
-auto_pack-01.t - test config::auto::pack
+auto_pack-01.t - test auto::pack
=head1 SYNOPSIS
@@ -281,8 +281,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test auto::pack internal subroutines C<_set_packtypes()>
-and C<_set_ptrcons()>.
+The tests in this file test auto::pack.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_pcre-01.t
==============================================================================
--- branches/parallel/t/steps/auto_pcre-01.t (original)
+++ branches/parallel/t/steps/auto_pcre-01.t Mon Jul 28 16:53:37 2008
@@ -19,6 +19,8 @@
);
use IO::CaptureOutput qw| capture |;
+########## --without-pcre ##########
+
my $args = process_options(
{
argv => [ q{--without-pcre} ],
@@ -44,6 +46,8 @@
$conf->replenish($serialized);
+########## _add_to_libs() ##########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -104,6 +108,8 @@
# Restore value for next test.
$conf->data->set( 'libs' => $initial_value );
+########## _evaluate_cc_run() ##########
+
# Mock different outcomes of _evaluate_cc_run
my ($test, $has_pcre);
my $verbose = $conf->options->get('verbose');
@@ -134,6 +140,8 @@
$conf->replenish($serialized);
+########## --verbose; _evaluate_cc_run() ##########
+
$args = process_options( {
argv => [ q{--verbose} ],
mode => q{configure},
@@ -186,7 +194,7 @@
=head1 NAME
- auto_pcre-01.t - test config::auto::pcre
+ auto_pcre-01.t - test auto::pcre
=head1 SYNOPSIS
@@ -196,8 +204,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test configuration step class auto::pcre in the case
-where C<--without-pcre> has been requested on the command line.
+The tests in this file test configuration step class auto::pcre.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_perldoc-01.t
==============================================================================
--- branches/parallel/t/steps/auto_perldoc-01.t (original)
+++ branches/parallel/t/steps/auto_perldoc-01.t Mon Jul 28 16:53:37 2008
@@ -20,6 +20,8 @@
);
use IO::CaptureOutput qw| capture |;
+########## regular ##########
+
my $args = process_options( {
argv => [],
mode => q{configure},
@@ -48,12 +50,16 @@
$conf->replenish($serialized);
+########## _initial_content_check() ##########
+
my $content = undef;
my $rv = $step->_initial_content_check($conf, $content);
ok(! defined $rv, "Got expected return value when content was undefined");
is($step->result(),
q{no}, "Got expected result when content was undefined");
+########## _handle_version() ##########
+
my $version;
$version = 0;
ok(auto::perldoc::_handle_version($conf, $version, 'not_a_path'),
@@ -85,9 +91,14 @@
is($conf->data->get('perldoc'), 'another_path_to_pd',
"... and expected 'perldoc' path");
+########## _handle_old_perldoc() ##########
+
$version = $step->_handle_old_perldoc();
is($version, 1, "Got expected version setting for old perldoc");
-is($step->result(), q{yes, old version}, "Got expected result when old
perldoc");
+is($step->result(), q{yes, old version},
+ "Got expected result when old perldoc");
+
+########## _handle_no_perldoc() ##########
$version = $step->_handle_no_perldoc();
is($version, 0, "Got expected version setting for no perldoc");
@@ -99,7 +110,7 @@
=head1 NAME
-auto_perldoc-01.t - test config::auto::perldoc
+auto_perldoc-01.t - test auto::perldoc
=head1 SYNOPSIS
@@ -109,7 +120,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::auto::perldoc.
+The tests in this file test auto::perldoc.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_readline-01.t
==============================================================================
--- branches/parallel/t/steps/auto_readline-01.t (original)
+++ branches/parallel/t/steps/auto_readline-01.t Mon Jul 28 16:53:37 2008
@@ -15,9 +15,14 @@
use_ok('config::auto::readline');
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
-use Parrot::Configure::Test qw( test_step_thru_runstep);
+use Parrot::Configure::Test qw(
+ test_step_thru_runstep
+ test_step_constructor_and_description
+);
use IO::CaptureOutput qw | capture |;
+########## _add_to_libs() ##########
+
my $args = process_options(
{
argv => [ ],
@@ -33,15 +38,7 @@
$conf->add_steps($pkg);
$conf->options->set( %{$args} );
-
-my ( $task, $step_name, $step);
-$task = $conf->steps->[-1];
-$step_name = $task->step;
-
-$step = $step_name->new();
-ok( defined $step, "$step_name constructor returned defined value" );
-isa_ok( $step, $step_name );
-ok( $step->description(), "$step_name has description" );
+my $step = test_step_constructor_and_description($conf);
# Mock values for OS and C-compiler
my ($osname, $cc);
@@ -98,6 +95,8 @@
like($@, qr/_add_to_libs\(\) takes hashref/,
"Bad argument to _add_to_libs correctly detected");
+########## _handle_darwin_for_fink() ##########
+
my ($flagsbefore, $flagsafter);
$osname = 'foobar';
@@ -200,6 +199,8 @@
ok(chdir $cwd, "Able to change back to original directory after testing");
}
+########## _handle_darwin_for_macports() ##########
+
$osname = 'foobar';
$flagsbefore = $conf->data->get( 'linkflags' );
ok($step->_handle_darwin_for_macports($conf, $osname, 'readline/readline.h'),
@@ -315,7 +316,7 @@
=head1 NAME
-auto_readline-01.t - test config::auto::readline
+auto_readline-01.t - test auto::readline
=head1 SYNOPSIS
@@ -325,7 +326,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::auto::readline.
+The tests in this file test auto::readline.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_readline-02.t
==============================================================================
--- branches/parallel/t/steps/auto_readline-02.t (original)
+++ branches/parallel/t/steps/auto_readline-02.t Mon Jul 28 16:53:37 2008
@@ -5,7 +5,7 @@
use strict;
use warnings;
-use Test::More tests => 35;
+use Test::More tests => 36;
use Carp;
use Cwd;
use lib qw( lib );
@@ -13,7 +13,10 @@
use_ok('config::auto::readline');
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
-use Parrot::Configure::Test qw( test_step_thru_runstep);
+use Parrot::Configure::Test qw(
+ test_step_thru_runstep
+ test_step_constructor_and_description
+);
use IO::CaptureOutput qw| capture |;
my $args = process_options(
@@ -31,15 +34,7 @@
$conf->add_steps($pkg);
$conf->options->set( %{$args} );
-
-my ( $task, $step_name, $step);
-$task = $conf->steps->[-1];
-$step_name = $task->step;
-
-$step = $step_name->new();
-ok( defined $step, "$step_name constructor returned defined value" );
-isa_ok( $step, $step_name );
-
+my $step = test_step_constructor_and_description($conf);
########## _evaluate_cc_run() ##########
@@ -181,7 +176,7 @@
=head1 NAME
-auto_readline-02.t - test config::auto::readline
+auto_readline-02.t - test auto::readline
=head1 SYNOPSIS
@@ -191,7 +186,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::auto::readline.
+The tests in this file test auto::readline.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_revision-01.t
==============================================================================
--- branches/parallel/t/steps/auto_revision-01.t (original)
+++ branches/parallel/t/steps/auto_revision-01.t Mon Jul 28 16:53:37 2008
@@ -12,7 +12,12 @@
use_ok('config::auto::revision');
use Parrot::Configure;
use Parrot::Configure::Options qw( process_options );
-use Parrot::Configure::Test qw( test_step_thru_runstep);
+use Parrot::Configure::Test qw(
+ test_step_thru_runstep
+ test_step_constructor_and_description
+);
+
+########## regular ##########
my $args = process_options(
{
@@ -29,22 +34,14 @@
$conf->add_steps($pkg);
$conf->options->set( %{$args} );
-
-my ( $task, $step_name, $step);
-$task = $conf->steps->[-1];
-$step_name = $task->step;
-
-$step = $step_name->new();
-ok( defined $step, "$step_name constructor returned defined value" );
-isa_ok( $step, $step_name );
-ok( $step->description(), "$step_name has description" );
+my $step = test_step_constructor_and_description($conf);
my ($testrev, $ret);
{
$testrev = 99999;
local $Parrot::Revision::current = $testrev;
$ret = $step->runstep($conf);
- ok( $ret, "$step_name runstep() returned true value" );
+ ok( $ret, "runstep() returned true value" );
is($conf->data->get('revision'), $testrev,
"'revision' element was set correctly");
is($step->result(), qq{r$testrev}, "Expected result was set");
@@ -54,7 +51,7 @@
$testrev = 0;
local $Parrot::Revision::current = $testrev;
$ret = $step->runstep($conf);
- ok( $ret, "$step_name runstep() returned true value" );
+ ok( $ret, "runstep() returned true value" );
is($conf->data->get('revision'), $testrev,
"'revision' element was set correctly");
is($step->result(), q{done}, "Expected result was set");
@@ -72,7 +69,7 @@
$testrev = undef;
local $Parrot::Revision::current = $testrev;
$ret = $step->runstep($conf);
- ok( $ret, "$step_name runstep() returned true value" );
+ ok( $ret, "runstep() returned true value" );
ok(! defined($conf->data->get('revision')),
"'revision' element is undefined as expected");
is($step->result(), q{done}, "Expected result was set");
@@ -84,7 +81,7 @@
=head1 NAME
-auto_revision-01.t - test config::auto::revision
+auto_revision-01.t - test auto::revision
=head1 SYNOPSIS
@@ -94,7 +91,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::auto::revision.
+The tests in this file test auto::revision.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_snprintf-01.t
==============================================================================
--- branches/parallel/t/steps/auto_snprintf-01.t (original)
+++ branches/parallel/t/steps/auto_snprintf-01.t Mon Jul 28 16:53:37 2008
@@ -22,6 +22,8 @@
);
use IO::CaptureOutput qw| capture |;
+########## regular ##########
+
my $args = process_options( {
argv => [],
mode => q{configure},
@@ -31,7 +33,6 @@
test_step_thru_runstep($conf, q{init::defaults}, $args);
test_step_thru_runstep($conf, q{init::hints}, $args);
-# test_step_thru_runstep($conf, q{inter::progs}, $args);
test_step_thru_runstep($conf, q{auto::attributes}, $args);
test_step_thru_runstep($conf, q{auto::aio}, $args);
@@ -64,6 +65,8 @@
$conf->replenish($serialized);
+########## _evaluate_snprintf() ##########
+
$args = process_options( {
argv => [],
mode => q{configure},
@@ -88,6 +91,8 @@
$conf->replenish($serialized);
+########## --verbose; _evaluate_snprintf() ##########
+
$args = process_options( {
argv => [ q{--verbose} ],
mode => q{configure},
@@ -112,7 +117,7 @@
=head1 NAME
-auto_snprintf-01.t - test config::auto::snprintf
+auto_snprintf-01.t - test auto::snprintf
=head1 SYNOPSIS
@@ -122,7 +127,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::auto::snprintf.
+The tests in this file test auto::snprintf.
=head1 AUTHOR
Modified: branches/parallel/t/steps/gen_call_list-01.t
==============================================================================
--- branches/parallel/t/steps/gen_call_list-01.t (original)
+++ branches/parallel/t/steps/gen_call_list-01.t Mon Jul 28 16:53:37 2008
@@ -16,6 +16,8 @@
test_step_constructor_and_description
);
+########## regular ##########
+
my $args = process_options(
{
argv => [ ],
@@ -40,7 +42,7 @@
=head1 NAME
- gen_call_list-01.t - test config::gen::call_list
+ gen_call_list-01.t - test gen::call_list
=head1 SYNOPSIS
@@ -50,11 +52,11 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::gen::call_list.
+The tests in this file test gen::call_list.
=head1 AUTHOR
-Geoffrey Broadwell; modified from a similar file by James E Keenan
+Geoffrey Broadwell; modified from a similar file by James E Keenan.
=head1 SEE ALSO
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 Mon Jul 28 16:53:37 2008
@@ -20,6 +20,8 @@
);
use Parrot::Configure::Utils qw( _slurp );
+########## regular ##########
+
my $args = process_options(
{
argv => [ ],
@@ -40,6 +42,8 @@
$conf->replenish($serialized);
+########## --define; _handle_define_option() ##########
+
$args = process_options( {
argv => [ q{--define=inet_aton} ],
mode => q{configure},
@@ -69,7 +73,7 @@
=head1 NAME
-gen_config_h-01.t - test config::gen::config_h
+gen_config_h-01.t - test gen::config_h
=head1 SYNOPSIS
Modified: branches/parallel/t/steps/gen_config_pm-01.t
==============================================================================
--- branches/parallel/t/steps/gen_config_pm-01.t (original)
+++ branches/parallel/t/steps/gen_config_pm-01.t Mon Jul 28 16:53:37 2008
@@ -17,6 +17,8 @@
test_step_constructor_and_description
);
+########## regular ##########
+
my $args = process_options(
{
argv => [ ],
@@ -42,7 +44,7 @@
=head1 NAME
-gen_config_pm-01.t - test config::gen::config_pm
+gen_config_pm-01.t - test gen::config_pm
=head1 SYNOPSIS
@@ -52,7 +54,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::gen::config_pm.
+The tests in this file test gen::config_pm.
=head1 AUTHOR
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 Mon Jul 28 16:53:37 2008
@@ -18,6 +18,8 @@
test_step_constructor_and_description
);
+########## regular ##########
+
my $args = process_options(
{
argv => [ ],
@@ -42,7 +44,7 @@
=head1 NAME
-gen_core_pmcs-01.t - test config::gen::core_pmcs
+gen_core_pmcs-01.t - test gen::core_pmcs
=head1 SYNOPSIS
Modified: branches/parallel/t/steps/gen_crypto-01.t
==============================================================================
--- branches/parallel/t/steps/gen_crypto-01.t (original)
+++ branches/parallel/t/steps/gen_crypto-01.t Mon Jul 28 16:53:37 2008
@@ -18,6 +18,8 @@
test_step_constructor_and_description
);
+########## regular ##########
+
my $args = process_options(
{
argv => [ ],
@@ -55,7 +57,7 @@
=head1 NAME
- gen_crypto-01.t - test config::gen::crypto
+ gen_crypto-01.t - test gen::crypto
=head1 SYNOPSIS
@@ -65,7 +67,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::gen::crypto.
+The tests in this file test gen::crypto.
=head1 AUTHOR
Modified: branches/parallel/t/steps/gen_languages-01.t
==============================================================================
--- branches/parallel/t/steps/gen_languages-01.t (original)
+++ branches/parallel/t/steps/gen_languages-01.t Mon Jul 28 16:53:37 2008
@@ -16,6 +16,8 @@
test_step_constructor_and_description
);
+########## regular ##########
+
my $args = process_options(
{
argv => [ ],
@@ -38,7 +40,7 @@
=head1 NAME
-gen_languages-01.t - test config::gen::languages
+gen_languages-01.t - test gen::languages
=head1 SYNOPSIS
@@ -48,7 +50,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::gen::languages.
+The tests in this file test gen::languages.
=head1 AUTHOR
Modified: branches/parallel/t/steps/gen_makefiles-01.t
==============================================================================
--- branches/parallel/t/steps/gen_makefiles-01.t (original)
+++ branches/parallel/t/steps/gen_makefiles-01.t Mon Jul 28 16:53:37 2008
@@ -16,6 +16,8 @@
test_step_constructor_and_description
);
+########## regular ##########
+
my $args = process_options(
{
argv => [ ],
@@ -42,7 +44,7 @@
=head1 NAME
-gen_makefiles-01.t - test config::gen::makefiles
+gen_makefiles-01.t - test gen::makefiles
=head1 SYNOPSIS
@@ -52,7 +54,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::gen::makefiles.
+The tests in this file test gen::makefiles.
=head1 AUTHOR
Modified: branches/parallel/t/steps/gen_opengl-01.t
==============================================================================
--- branches/parallel/t/steps/gen_opengl-01.t (original)
+++ branches/parallel/t/steps/gen_opengl-01.t Mon Jul 28 16:53:37 2008
@@ -5,14 +5,31 @@
use strict;
use warnings;
-use Test::More tests => 2;
+use Test::More tests => 5;
use Carp;
use lib qw( lib );
use_ok('config::gen::opengl');
-
-=for hints_for_testing This is just a stub so that Configure.pl will run.
-
-=cut
+use Parrot::Configure;
+use Parrot::Configure::Options qw( process_options );
+use Parrot::Configure::Test qw(
+ test_step_thru_runstep
+ test_step_constructor_and_description
+);
+
+########## regular ##########
+
+my $args = process_options(
+ {
+ argv => [ ],
+ mode => q{configure},
+ }
+);
+
+my $conf = Parrot::Configure->new;
+my $pkg = q{gen::opengl};
+$conf->add_steps($pkg);
+$conf->options->set( %{$args} );
+my $step = test_step_constructor_and_description($conf);
pass("Completed all tests in $0");
@@ -20,7 +37,7 @@
=head1 NAME
- gen_opengl-01.t - test config::gen::opengl
+ gen_opengl-01.t - test gen::opengl
=head1 SYNOPSIS
@@ -30,11 +47,11 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::gen::opengl.
+The tests in this file test gen::opengl.
=head1 AUTHOR
-Geoffrey Broadwell; modified from a similar file by James E Keenan
+Geoffrey Broadwell; modified from a similar file by James E Keenan.
=head1 SEE ALSO
Modified: branches/parallel/t/steps/gen_parrot_include-01.t
==============================================================================
--- branches/parallel/t/steps/gen_parrot_include-01.t (original)
+++ branches/parallel/t/steps/gen_parrot_include-01.t Mon Jul 28 16:53:37 2008
@@ -16,6 +16,8 @@
test_step_constructor_and_description
);
+########## regular ##########
+
my $args = process_options(
{
argv => [ ],
@@ -41,7 +43,7 @@
=head1 NAME
-gen_parrot_include-01.t - test config::gen::parrot_include
+gen_parrot_include-01.t - test gen::parrot_include
=head1 SYNOPSIS
@@ -51,7 +53,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by
config::gen::parrot_include.
+The tests in this file test gen::parrot_include.
=head1 AUTHOR
Modified: branches/parallel/t/steps/gen_platform-01.t
==============================================================================
--- branches/parallel/t/steps/gen_platform-01.t (original)
+++ branches/parallel/t/steps/gen_platform-01.t Mon Jul 28 16:53:37 2008
@@ -23,6 +23,8 @@
use Parrot::Configure::Utils qw( _slurp );
use IO::CaptureOutput qw( capture );
+########## regular ##########
+
my $args = process_options(
{
argv => [ ],
@@ -44,7 +46,7 @@
$conf->data->set_p5( archname => 'foo-bar' );
my $verbose = 0;
-########## _gen_platform() ##########
+########## _get_platform() ##########
$conf->options->set( miniparrot => 1 );
is( $step->_get_platform( $conf, $verbose ), q{ansi},
@@ -90,7 +92,7 @@
$conf->data->set_p5( archname => $archname_orig );
$conf->data->set_p5( OSNAME => $platform_orig );
-########## _gen_generated() ##########
+########## _get_generated() ##########
my $TEMP_generated_orig = $conf->data->get('TEMP_generated');
{
@@ -201,7 +203,7 @@
=head1 NAME
-gen_platform-01.t - test config::gen::platform
+gen_platform-01.t - test gen::platform
=head1 SYNOPSIS
@@ -211,7 +213,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::gen::platform.
+The tests in this file test gen::platform.
=head1 AUTHOR
Modified: branches/parallel/t/steps/init_defaults-01.t
==============================================================================
--- branches/parallel/t/steps/init_defaults-01.t (original)
+++ branches/parallel/t/steps/init_defaults-01.t Mon Jul 28 16:53:37 2008
@@ -153,7 +153,7 @@
=head1 NAME
-init_defaults-01.t - test config::init::defaults
+init_defaults-01.t - test init::defaults
=head1 SYNOPSIS
Modified: branches/parallel/t/steps/init_headers-01.t
==============================================================================
--- branches/parallel/t/steps/init_headers-01.t (original)
+++ branches/parallel/t/steps/init_headers-01.t Mon Jul 28 16:53:37 2008
@@ -48,7 +48,7 @@
push @lines, q{include/parrot/phony.h [main]include};
untie @lines;
my $ret = $step->runstep($conf);
- ok( defined $ret, "$step_name runstep() returned defined value" );
+ ok( defined $ret, "runstep() returned defined value" );
like( $conf->data->get(q{TEMP_nongen_headers}),
qr{\$\(INC_DIR\)/phony\.h\\},
qq{Header added to MANIFEST for testing purposes correctly detected in
Parrot::Configure object data structure}
);
Modified: branches/parallel/t/steps/init_manifest-01.t
==============================================================================
--- branches/parallel/t/steps/init_manifest-01.t (original)
+++ branches/parallel/t/steps/init_manifest-01.t Mon Jul 28 16:53:37 2008
@@ -44,7 +44,7 @@
ok(defined ($step->result), "result defined");
ok(! ($step->result), "result not yet true");
my $ret = $step->runstep($conf);
-ok( defined $ret, "$step_name runstep() returned defined value" );
+ok( defined $ret, "runstep() returned defined value" );
is( $step->result, q{skipped},
"Because of --nomanicheck, result is 'skipped'." );
@@ -80,7 +80,7 @@
\$stdout,
\$stderr,
);
- is( $rv, undef, "$step_name runstep returned undef" );
+ is( $rv, undef, "runstep returned undef" );
}
unlink qq{$tdir/MANIFEST}
or croak "Unable to delete file after testing";
@@ -93,7 +93,7 @@
=head1 NAME
-init_manifest-01.t - test config::init::manifest
+init_manifest-01.t - test init::manifest
=head1 SYNOPSIS
Modified: branches/parallel/t/steps/inter_lex-02.t
==============================================================================
--- branches/parallel/t/steps/inter_lex-02.t (original)
+++ branches/parallel/t/steps/inter_lex-02.t Mon Jul 28 16:53:37 2008
@@ -48,7 +48,7 @@
=head1 NAME
-inter_lex-02.t - test config::inter::lex
+inter_lex-02.t - test inter::lex
=head1 SYNOPSIS
@@ -58,11 +58,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::inter::lex. In
-this case, the C<--ask> and C<--maintainer> options are provided but an
-environmental variable was provided in order to trick the package into not
-finding a real F<lex>-equivalent program. As a result, no prompt is ever
-reached.
+The tests in this file test inter::lex.
=head1 AUTHOR
Modified: branches/parallel/t/steps/inter_lex-03.t
==============================================================================
--- branches/parallel/t/steps/inter_lex-03.t (original)
+++ branches/parallel/t/steps/inter_lex-03.t Mon Jul 28 16:53:37 2008
@@ -76,7 +76,7 @@
=head1 NAME
-inter_lex-03.t - test config::inter::lex
+inter_lex-03.t - test inter::lex
=head1 SYNOPSIS
@@ -86,7 +86,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::inter::lex. In
+The tests in this file test inter::lex. In
this test the C<--ask>, C<--maintainer> and C<--lex=flex> options are
provided.
Modified: branches/parallel/t/steps/inter_make-01.t
==============================================================================
--- branches/parallel/t/steps/inter_make-01.t (original)
+++ branches/parallel/t/steps/inter_make-01.t Mon Jul 28 16:53:37 2008
@@ -87,7 +87,7 @@
=head1 NAME
-inter_make-01.t - test config::inter::make
+inter_make-01.t - test inter::make
=head1 SYNOPSIS
@@ -97,7 +97,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::inter::make.
+The tests in this file test inter::make.
B<Note:> Since F<inter::make> probes for the F<make> program
found on a particular OS, it will probably be difficult to achieve high
Modified: branches/parallel/t/steps/inter_yacc-02.t
==============================================================================
--- branches/parallel/t/steps/inter_yacc-02.t (original)
+++ branches/parallel/t/steps/inter_yacc-02.t Mon Jul 28 16:53:37 2008
@@ -49,7 +49,7 @@
=head1 NAME
-inter_yacc-02.t - test config::inter::yacc
+inter_yacc-02.t - test inter::yacc
=head1 SYNOPSIS
@@ -59,11 +59,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::inter::yacc. In
-this case, the C<--ask> and C<--maintainer> options are provided but an
-environmental variable was provided in order to trick the package into not
-finding a real F<yacc>-equivalent program. As a result, no prompt is ever
-reached.
+The tests in this file test inter::yacc.
=head1 AUTHOR
