Author: jkeenan
Date: Sun Jul 27 19:22:18 2008
New Revision: 29818
Modified:
branches/parallel/t/steps/auto_aio-01.t
branches/parallel/t/steps/auto_env-01.t
branches/parallel/t/steps/auto_gmp-01.t
branches/parallel/t/steps/auto_signal-01.t
branches/parallel/t/steps/auto_socklen_t-01.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_aio-01.t
==============================================================================
--- branches/parallel/t/steps/auto_aio-01.t (original)
+++ branches/parallel/t/steps/auto_aio-01.t Sun Jul 27 19:22:18 2008
@@ -19,6 +19,8 @@
);
use IO::CaptureOutput qw( capture );
+########### regular ###########
+
my $args = process_options( {
argv => [ ],
mode => q{configure},
@@ -46,6 +48,8 @@
$conf->replenish($serialized);
+########### --verbose ###########
+
$args = process_options(
{
argv => [ q{--verbose} ],
@@ -72,6 +76,8 @@
$conf->replenish($serialized);
+########### _handle_error_case() ###########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -88,6 +94,8 @@
$conf->replenish($serialized);
+########### _handle_error_case(); --verbose ###########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -115,7 +123,7 @@
=head1 NAME
-auto_aio-01.t - test config::auto::aio
+auto_aio-01.t - test auto::aio
=head1 SYNOPSIS
@@ -126,7 +134,7 @@
The files in this directory test functionality used by F<Configure.pl>.
The tests in this file test methods found in configuration step class
-config::auto::aio.
+auto::aio.
=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 Sun Jul 27 19:22:18 2008
@@ -19,6 +19,8 @@
);
use IO::CaptureOutput qw( capture );
+########### regular ###########
+
my $args = process_options( {
argv => [],
mode => q{configure},
@@ -40,6 +42,8 @@
$conf->replenish($serialized);
+########### _evaluate_env() ###########
+
$args = process_options( {
argv => [],
mode => q{configure},
@@ -66,6 +70,8 @@
$conf->replenish($serialized);
+########### --verbose; _evaluate_env() ###########
+
$args = process_options( {
argv => [ q{--verbose} ],
mode => q{configure},
@@ -123,7 +129,7 @@
=head1 NAME
-auto_env-01.t - test config::auto::env
+auto_env-01.t - test auto::env
=head1 SYNOPSIS
@@ -133,8 +139,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines found in config::auto::env in
-its most ordinary usage.
+The tests in this file test subroutines found in auto::env.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_gmp-01.t
==============================================================================
--- branches/parallel/t/steps/auto_gmp-01.t (original)
+++ branches/parallel/t/steps/auto_gmp-01.t Sun Jul 27 19:22:18 2008
@@ -28,6 +28,8 @@
=cut
+########### --without-gmp ###########
+
my $args = process_options( {
argv => [ q{--without-gmp} ],
mode => q{configure},
@@ -53,6 +55,8 @@
$conf->replenish($serialized);
+########### _add_to_libs() ###########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -107,6 +111,8 @@
# Restore value for next test.
$conf->data->set( 'libs' => $initial_value );
+########### _handle_darwin_for_fink() ###########
+
my ($flagsbefore, $flagsafter);
$osname = 'foobar';
$flagsbefore = $conf->data->get( 'linkflags' );
@@ -163,6 +169,8 @@
$conf->replenish($serialized);
+########### _evaluate_cc_run() ###########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -211,6 +219,8 @@
$step->set_result(undef);
}
+########### _recheck_settings() ###########
+
my ($libs, $ccflags, $linkflags);
$libs = q{-lalpha};
@@ -249,6 +259,8 @@
$conf->replenish($serialized);
+########### _handle_darwin_for_fink() ###########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -313,7 +325,7 @@
=head1 NAME
-auto_gmp-01.t - test config::auto::gmp
+auto_gmp-01.t - test auto::gmp
=head1 SYNOPSIS
@@ -323,8 +335,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test config::auto::gmp in the case where the
-C<--without-gmp> option is set.
+The tests in this file test auto::gmp.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_signal-01.t
==============================================================================
--- branches/parallel/t/steps/auto_signal-01.t (original)
+++ branches/parallel/t/steps/auto_signal-01.t Sun Jul 27 19:22:18 2008
@@ -21,6 +21,8 @@
);
use IO::CaptureOutput qw| capture |;
+########### --miniparrot ###########
+
my $args = process_options(
{
argv => [ q{--miniparrot} ],
@@ -45,6 +47,8 @@
$conf->replenish($serialized);
+########### _handle__sighandler_t() ###########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -59,11 +63,15 @@
is($conf->data->get( 'has___sighandler_t'), 'define',
"Got expected value for has__sighandler_t");
+########### _handle_sigaction() ###########
+
ok(auto::signal::_handle_sigaction($conf),
"_handle_sigaction() returned true value");
is($conf->data->get( 'has_sigaction'), 'define',
"Got expected value for has_sigaction");
+########### _handle_setitimer() ###########
+
ok(auto::signal::_handle_setitimer($conf),
"_handle_setitimer() returned true value");
is($conf->data->get( 'has_setitimer'), 'define',
@@ -71,6 +79,8 @@
is($conf->data->get( 'has_sig_atomic_t'), 'define',
"Got expected value for has_sig_atomic_t");
+########### _print_signalpasm() ###########
+
my $cwd = cwd();
{
my $tdir = tempdir( CLEANUP => 1);
@@ -85,6 +95,8 @@
$conf->replenish($serialized);
+########### --verbose; _handle__sighandler_t() ###########
+
$args = process_options( {
argv => [ q{--verbose} ],
mode => q{configure},
@@ -107,6 +119,8 @@
like($stdout, qr/__sighandler_t/, "Got expected verbose output");
}
+########### --verbose; _handle_sigaction() ###########
+
{
my ($rv, $stdout);
capture(
@@ -119,6 +133,8 @@
like($stdout, qr/sigaction/, "Got expected verbose output");
}
+########### --verbose; _handle_setitimer() ###########
+
{
my ($rv, $stdout);
capture(
@@ -139,7 +155,7 @@
=head1 NAME
-auto_signal-01.t - test config::auto::signal
+auto_signal-01.t - test auto::signal
=head1 SYNOPSIS
@@ -149,7 +165,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::auto::signal.
+The tests in this file test auto::signal.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_socklen_t-01.t
==============================================================================
--- branches/parallel/t/steps/auto_socklen_t-01.t (original)
+++ branches/parallel/t/steps/auto_socklen_t-01.t Sun Jul 27 19:22:18 2008
@@ -19,6 +19,8 @@
);
use IO::CaptureOutput qw| capture |;
+########### regular ###########
+
my $args = process_options(
{
argv => [ ],
@@ -77,7 +79,7 @@
=head1 NAME
-auto_socklen_t-01.t - test config::auto::socklen_t
+auto_socklen_t-01.t - test auto::socklen_t
=head1 SYNOPSIS
@@ -87,7 +89,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::auto::socklen_t.
+The tests in this file test auto::socklen_t.
=head1 AUTHOR
