Author: jkeenan
Date: Sun Jul 27 08:47:39 2008
New Revision: 29800
Modified:
branches/parallel/t/steps/auto_backtrace-01.t
branches/parallel/t/steps/auto_fink-01.t
branches/parallel/t/steps/auto_macports-01.t
branches/parallel/t/steps/auto_msvc-01.t
Log:
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_backtrace-01.t
==============================================================================
--- branches/parallel/t/steps/auto_backtrace-01.t (original)
+++ branches/parallel/t/steps/auto_backtrace-01.t Sun Jul 27 08:47:39 2008
@@ -14,10 +14,11 @@
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
);
+########## regular ##########
+
my $args = process_options( {
argv => [],
mode => q{configure},
@@ -39,6 +40,8 @@
$conf->replenish($serialized);
+########## _evaluate_backtrace() ##########
+
$conf->options->set(%{$args});
$step = test_step_constructor_and_description($conf);
my $error = q{mock_error};
@@ -61,7 +64,7 @@
=head1 NAME
-auto_backtrace-01.t - test config::auto::backtrace
+auto_backtrace-01.t - test auto::backtrace
=head1 SYNOPSIS
@@ -71,8 +74,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by
-config::auto::backtrace.
+The tests in this file test auto::backtrace.
=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 Sun Jul 27 08:47:39 2008
@@ -21,6 +21,8 @@
);
use IO::CaptureOutput qw( capture );
+########## Darwin but no good Fink ##########
+
my $args = process_options( {
argv => [],
mode => q{configure},
@@ -50,6 +52,8 @@
$conf->replenish($serialized);
+########## not Darwin ##########
+
$args = process_options( {
argv => [],
mode => q{configure},
@@ -63,6 +67,8 @@
$conf->replenish($serialized);
+########## no Fink ##########
+
$args = process_options( {
argv => [],
mode => q{configure},
@@ -80,6 +86,8 @@
$conf->replenish($serialized);
+########## Darwin but defective Fink ##########
+
$args = process_options( {
argv => [],
mode => q{configure},
@@ -103,6 +111,8 @@
$conf->replenish($serialized);
+########## Darwin but defective Fink ##########
+
$args = process_options( {
argv => [],
mode => q{configure},
@@ -126,6 +136,8 @@
$conf->replenish($serialized);
+########## not Darwin; verbose ##########
+
$args = process_options( {
argv => [ q{--verbose} ],
mode => q{configure},
@@ -150,6 +162,8 @@
$conf->replenish($serialized);
+########## Darwin; verbose; no Fink ##########
+
$args = process_options( {
argv => [ q{--verbose} ],
mode => q{configure},
@@ -176,6 +190,8 @@
$conf->replenish($serialized);
+########## Darwin; verbose; defective Fink ##########
+
$args = process_options( {
argv => [ q{--verbose} ],
mode => q{configure},
@@ -208,6 +224,8 @@
$conf->replenish($serialized);
+########## Darwin; verbose; defective Fink ##########
+
$args = process_options( {
argv => [ q{--verbose} ],
mode => q{configure},
@@ -244,7 +262,7 @@
=head1 NAME
-auto_fink-01.t - test config::auto::fink
+auto_fink-01.t - test auto::fink
=head1 SYNOPSIS
@@ -254,7 +272,8 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file run on Darwin only and test config::auto::fink.
+The tests in this file test auto::fink. Some tests will run only on Darwin.
+Others simulate how auto::fink runs on operating systems other than Darwin.
=head1 AUTHOR
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 Sun Jul 27 08:47:39 2008
@@ -17,11 +17,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 );
+########## not Darwin ##########
+
my $args = process_options( {
argv => [],
mode => q{configure},
@@ -47,6 +48,8 @@
$conf->replenish($serialized);
+########## Darwin but no Macports ##########
+
$args = process_options( {
argv => [],
mode => q{configure},
@@ -63,6 +66,8 @@
$conf->replenish($serialized);
+########## Darwin with Macports ##########
+
$args = process_options( {
argv => [],
mode => q{configure},
@@ -93,6 +98,8 @@
$conf->replenish($serialized);
+########## not Darwin; verbose ##########
+
$args = process_options( {
argv => [ q{--verbose} ],
mode => q{configure},
@@ -116,6 +123,8 @@
$conf->replenish($serialized);
+########## Darwin; verbose; no Macports ##########
+
$args = process_options( {
argv => [ q{--verbose} ],
mode => q{configure},
@@ -140,6 +149,8 @@
$conf->replenish($serialized);
+########## Darwin; defective Macports ##########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -156,6 +167,8 @@
$conf->replenish($serialized);
+########## Darwin; verbose; defective Macports ##########
+
$args = process_options( {
argv => [ q{--verbose} ],
mode => q{configure},
@@ -183,7 +196,7 @@
=head1 NAME
-auto_macports-01.t - test config::auto::macports
+auto_macports-01.t - test auto::macports
=head1 SYNOPSIS
@@ -193,8 +206,8 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test config::auto::macports in the case where the OS is
not
-Darwin.
+The tests in this file test auto::macports. Some tests run only on Darwin.
+Others simulate what happens on operating systems other than Darwin.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_msvc-01.t
==============================================================================
--- branches/parallel/t/steps/auto_msvc-01.t (original)
+++ branches/parallel/t/steps/auto_msvc-01.t Sun Jul 27 08:47:39 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 |;
+########## Win32 ##########
+
my $args = process_options( {
argv => [],
mode => q{configure},
@@ -43,6 +44,8 @@
$conf->replenish($serialized);
+########## _evaluate_msvc() ##########
+
$args = process_options( {
argv => [],
mode => q{configure},
@@ -58,6 +61,8 @@
$conf->replenish($serialized);
+########## _evaluate_msvc() ##########
+
$args = process_options( {
argv => [],
mode => q{configure},
@@ -78,6 +83,8 @@
$conf->replenish($serialized);
+########## _handle_not_msvc() ##########
+
$args = process_options( {
argv => [],
mode => q{configure},
@@ -131,6 +138,8 @@
$step->set_result(undef);
}
+########## _compose_msvcversion() ##########
+
my $msvcversion;
$major = 13;
@@ -163,7 +172,7 @@
=head1 NAME
-auto_msvc-01.t - test config::auto::msvc
+auto_msvc-01.t - test auto::msvc
=head1 SYNOPSIS
@@ -173,7 +182,8 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::auto::msvc.
+The tests in this file test auto::msvc. Some tests run only if the system is
+Win32.
=head1 AUTHOR
