Author: jkeenan
Date: Sun Jul 27 19:08:22 2008
New Revision: 29817
Modified:
branches/parallel/t/steps/auto_alignptrs-01.t
branches/parallel/t/steps/auto_arch-01.t
branches/parallel/t/steps/auto_cgoto-01.t
branches/parallel/t/steps/auto_cpu-01.t
branches/parallel/t/steps/auto_funcptr-01.t
branches/parallel/t/steps/auto_gc-01.t
branches/parallel/t/steps/auto_headers-01.t
branches/parallel/t/steps/auto_inline-01.t
branches/parallel/t/steps/auto_memalign-01.t
branches/parallel/t/steps/auto_sizes-01.t
branches/parallel/t/steps/init_hints-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_alignptrs-01.t
==============================================================================
--- branches/parallel/t/steps/auto_alignptrs-01.t (original)
+++ branches/parallel/t/steps/auto_alignptrs-01.t Sun Jul 27 19:08:22 2008
@@ -17,7 +17,7 @@
test_step_constructor_and_description
);
-########## miniparrot ##########
+########## --miniparrot ##########
my $args = process_options(
{
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 Sun Jul 27 19:08:22 2008
@@ -19,7 +19,7 @@
);
use IO::CaptureOutput qw| capture |;
-########## miniparrot ##########
+########## --miniparrot ##########
my $args = process_options(
{
@@ -81,7 +81,7 @@
$conf->replenish($serialized);
-########## verbose ##########
+########## --verbose ##########
$args = process_options( {
argv => [ q{--verbose} ],
Modified: branches/parallel/t/steps/auto_cgoto-01.t
==============================================================================
--- branches/parallel/t/steps/auto_cgoto-01.t (original)
+++ branches/parallel/t/steps/auto_cgoto-01.t Sun Jul 27 19:08:22 2008
@@ -19,6 +19,8 @@
);
use IO::CaptureOutput qw( capture );
+########### --miniparrot ###########
+
my $args = process_options(
{
argv => [ q{--miniparrot} ],
@@ -41,6 +43,8 @@
$conf->replenish($serialized);
+########### regular ###########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -60,6 +64,8 @@
$conf->replenish($serialized);
+########### _probe_for_cgoto() ###########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -78,6 +84,8 @@
ok(defined(auto::cgoto::_probe_for_cgoto($conf)),
"Probe returned a defined value");
+########### _evaluate_cgoto() ###########
+
$step->_evaluate_cgoto($conf, 1);
ok($conf->data->get('TEMP_cg_h'), "An attribute was set to true value");
ok($conf->data->get('TEMP_cg_c'), "An attribute was set to true value");
@@ -124,11 +132,16 @@
sub { $step->_evaluate_cgoto($conf, 0) },
\$stdout
);
- is($conf->data->get('TEMP_cg_h'), q{}, "An attribute was set to empty
string");
- is($conf->data->get('TEMP_cg_c'), q{}, "An attribute was set to empty
string");
- is($conf->data->get('TEMP_cg_o'), q{}, "An attribute was set to empty
string");
- is($conf->data->get('TEMP_cg_r'), q{}, "An attribute was set to empty
string");
- is($conf->data->get('cg_flag'), q{}, "An attribute was set to empty
string");
+ is($conf->data->get('TEMP_cg_h'), q{},
+ "An attribute was set to empty string");
+ is($conf->data->get('TEMP_cg_c'), q{},
+ "An attribute was set to empty string");
+ is($conf->data->get('TEMP_cg_o'), q{},
+ "An attribute was set to empty string");
+ is($conf->data->get('TEMP_cg_r'), q{},
+ "An attribute was set to empty string");
+ is($conf->data->get('cg_flag'), q{},
+ "An attribute was set to empty string");
is($step->result(), q{no}, "Expected result was set");
}
@@ -139,7 +152,7 @@
=head1 NAME
-auto_cgoto-01.t - test config::auto::cgoto
+auto_cgoto-01.t - test auto::cgoto
=head1 SYNOPSIS
@@ -149,7 +162,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test subroutines exported by config::auto::cgoto.
+The tests in this file test auto::cgoto.
=head1 AUTHOR
Modified: branches/parallel/t/steps/auto_cpu-01.t
==============================================================================
--- branches/parallel/t/steps/auto_cpu-01.t (original)
+++ branches/parallel/t/steps/auto_cpu-01.t Sun Jul 27 19:08:22 2008
@@ -19,7 +19,7 @@
);
use IO::CaptureOutput qw( capture );
-########### miniparrot ###########
+########### --miniparrot ###########
my $args = process_options(
{
@@ -45,7 +45,7 @@
$conf->replenish($serialized);
-########### verbose ###########
+########### --verbose ###########
$args = process_options( {
argv => [ q{--verbose} ],
Modified: branches/parallel/t/steps/auto_funcptr-01.t
==============================================================================
--- branches/parallel/t/steps/auto_funcptr-01.t (original)
+++ branches/parallel/t/steps/auto_funcptr-01.t Sun Jul 27 19:08:22 2008
@@ -21,6 +21,8 @@
);
use IO::CaptureOutput qw( capture );
+########### --jitcapable=0 ###########
+
my $args = process_options( {
argv => [ q{--jitcapable=0} ],
mode => q{configure},
@@ -42,6 +44,8 @@
$conf->replenish($serialized);
+########### _cast_void_pointers_msg() ###########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -59,6 +63,9 @@
like($stdout, qr/Although it is not required/s,
"Got expected advisory message");
}
+
+########### _set_positive_result() ###########
+
{
my $stdout;
my $ret = capture(
@@ -71,6 +78,8 @@
$conf->replenish($serialized);
+########### --verbose; _set_positive_result() ###########
+
$args = process_options( {
argv => [ q{--verbose} ],
mode => q{configure},
@@ -95,7 +104,7 @@
=head1 NAME
-auto_funcptr-01.t - test config::auto::funcptr
+auto_funcptr-01.t - test auto::funcptr
=head1 SYNOPSIS
@@ -105,8 +114,7 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file test aspects of config::auto::funcptr in the case where
-the C<--jitcapable> option has been set to C<0>.
+The tests in this file test aspects of auto::funcptr.
=head1 AUTHOR
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 Sun Jul 27 19:08:22 2008
@@ -17,6 +17,8 @@
);
use IO::CaptureOutput qw| capture |;
+########### --verbose ###########
+
my $args = process_options(
{
argv => [ q{--verbose} ],
@@ -48,6 +50,8 @@
$conf->replenish($serialized);
+########### --gc=gc ###########
+
$args = process_options( {
argv => [ q{--gc=gc} ],
mode => q{configure},
@@ -61,6 +65,8 @@
$conf->replenish($serialized);
+########### --gc=libc ###########
+
$args = process_options( {
argv => [ q{--gc=libc} ],
mode => q{configure},
@@ -77,6 +83,8 @@
$conf->replenish($serialized);
+########### --gc=libc ###########
+
$args = process_options( {
argv => [ q{--gc=libc} ],
mode => q{configure},
@@ -93,6 +101,8 @@
$conf->replenish($serialized);
+########### --gc=malloc ###########
+
$args = process_options( {
argv => [ q{--gc=malloc} ],
mode => q{configure},
@@ -106,6 +116,8 @@
$conf->replenish($serialized);
+########### --gc=malloc-trace ###########
+
$args = process_options( {
argv => [ q{--gc=malloc-trace} ],
mode => q{configure},
Modified: branches/parallel/t/steps/auto_headers-01.t
==============================================================================
--- branches/parallel/t/steps/auto_headers-01.t (original)
+++ branches/parallel/t/steps/auto_headers-01.t Sun Jul 27 19:08:22 2008
@@ -19,7 +19,7 @@
);
use IO::CaptureOutput qw | capture |;
-########## miniparrot ##########
+########## --miniparrot ##########
my $args = process_options(
{
@@ -66,7 +66,7 @@
$conf->replenish($serialized);
-########## verbose ##########
+########## --verbose ##########
$args = process_options(
{
Modified: branches/parallel/t/steps/auto_inline-01.t
==============================================================================
--- branches/parallel/t/steps/auto_inline-01.t (original)
+++ branches/parallel/t/steps/auto_inline-01.t Sun Jul 27 19:08:22 2008
@@ -19,6 +19,8 @@
);
use IO::CaptureOutput qw( capture );
+########### regular ###########
+
my $args = process_options(
{
argv => [ ],
@@ -44,6 +46,8 @@
$conf->replenish($serialized);
+########### --inline ###########
+
$args = process_options( {
argv => [ q{--inline} ],
mode => q{configure},
@@ -55,6 +59,8 @@
$conf->replenish($serialized);
+########### _evaluate_inline() ###########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -70,6 +76,8 @@
$conf->replenish($serialized);
+########### _evaluate_inline() ###########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -85,6 +93,8 @@
$conf->replenish($serialized);
+########### _evaluate_inline(); --verbose ###########
+
$args = process_options( {
argv => [ q{--verbose} ],
mode => q{configure},
@@ -106,6 +116,8 @@
$conf->replenish($serialized);
+########### _second_probe_for_inline(); _evaluate_inline() ###########
+
$args = process_options( {
argv => [ ],
mode => q{configure},
@@ -123,7 +135,7 @@
=head1 NAME
-auto_inline-01.t - test config::auto::inline
+auto_inline-01.t - test auto::inline
=head1 SYNOPSIS
@@ -133,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::inline.
+The tests in this file test auto::inline.
=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 Sun Jul 27 19:08:22 2008
@@ -19,6 +19,8 @@
);
use IO::CaptureOutput qw| capture |;
+########### --miniparrot ###########
+
my $args = process_options(
{
argv => [ q{--miniparrot} ],
@@ -47,6 +49,8 @@
$conf->replenish($serialized);
+########### regular ###########
+
$args = process_options(
{
argv => [ ],
@@ -68,6 +72,8 @@
$conf->replenish($serialized);
+########### _set_malloc_header() ###########
+
$args = process_options(
{
argv => [ ],
@@ -96,6 +102,8 @@
$conf->data->set('i_malloc' => undef); # reset for next test
}
+########### _set_ptrcast() ###########
+
{
$conf->data->set('ptrsize' => 2);
$conf->data->set('intsize' => 2);
@@ -120,6 +128,8 @@
$conf->data->set('intsize' => undef);
}
+########### _set_memalign() ###########
+
{
$conf->data->set( malloc_header => 'malloc.h' );
ok($step->_set_memalign($conf, 1, 1),
@@ -166,6 +176,8 @@
$conf->replenish($serialized);
+########### --verbose; _set_memalign() ###########
+
$args = process_options(
{
argv => [ q{--verbose} ],
@@ -248,7 +260,6 @@
"Got expected verbose output");
}
-
pass("Completed all tests in $0");
################### DOCUMENTATION ###################
Modified: branches/parallel/t/steps/auto_sizes-01.t
==============================================================================
--- branches/parallel/t/steps/auto_sizes-01.t (original)
+++ branches/parallel/t/steps/auto_sizes-01.t Sun Jul 27 19:08:22 2008
@@ -19,7 +19,7 @@
);
use IO::CaptureOutput qw | capture |;
-########## miniparrot ##########
+########## --miniparrot ##########
my $args = process_options(
{
Modified: branches/parallel/t/steps/init_hints-01.t
==============================================================================
--- branches/parallel/t/steps/init_hints-01.t (original)
+++ branches/parallel/t/steps/init_hints-01.t Sun Jul 27 19:08:22 2008
@@ -22,7 +22,7 @@
);
use IO::CaptureOutput qw | capture |;
-########## verbose ##########
+########## --verbose ##########
my $args = process_options(
{
@@ -56,7 +56,7 @@
$conf->replenish($serialized);
-########## verbose; local hints directory ##########
+########## --verbose; local hints directory ##########
$args = process_options(
{
@@ -99,7 +99,7 @@
$conf->replenish($serialized);
-########## verbose; local hints directory; no runstep() in local hints
##########
+########## --verbose; local hints directory; no runstep() in local hints
##########
$args = process_options(
{
@@ -139,7 +139,7 @@
$conf->replenish($serialized);
-########## verbose; imaginary OS ##########
+########## --verbose; imaginary OS ##########
$args = process_options(
{
