perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r29817 - branches/parallel/t/steps

Subject: [svn:parrot] r29817 - branches/parallel/t/steps
From:
Date: Sun, 27 Jul 2008 19:08:23 -0700 PDT
Newsgroups: perl.cvs.parrot

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(
     {

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r29817 - branches/parallel/t/steps, jkeenan <=