Author: jkeenan
Date: Tue Aug 19 19:21:59 2008
New Revision: 30367
Added:
trunk/t/configure/055-verbose_step.t
- copied unchanged from r30366,
/branches/stepdescription/t/configure/055-verbose_step.t
trunk/t/configure/056-verbose_step.t
- copied unchanged from r30366,
/branches/stepdescription/t/configure/056-verbose_step.t
trunk/t/configure/testlib/init/mu.pm
- copied unchanged from r30366,
/branches/stepdescription/t/configure/testlib/init/mu.pm
Removed:
trunk/t/configure/008-verbose_step_number.t
trunk/t/configure/009-verbose_step_regex.t
trunk/t/configure/010-verbose_step_num_uncalled.t
trunk/t/configure/055-fatal_step.t
trunk/t/configure/056-fatal_step.t
trunk/t/configure/057-fatal_step.t
trunk/t/configure/058-fatal_step.t
Modified:
trunk/MANIFEST
trunk/MANIFEST.SKIP
trunk/config/auto/aio.pm
trunk/config/auto/alignptrs.pm
trunk/config/auto/arch.pm
trunk/config/auto/attributes.pm
trunk/config/auto/backtrace.pm
trunk/config/auto/byteorder.pm
trunk/config/auto/cgoto.pm
trunk/config/auto/cpu.pm
trunk/config/auto/crypto.pm
trunk/config/auto/ctags.pm
trunk/config/auto/env.pm
trunk/config/auto/fink.pm
trunk/config/auto/format.pm
trunk/config/auto/funcptr.pm
trunk/config/auto/gc.pm
trunk/config/auto/gcc.pm
trunk/config/auto/gdbm.pm
trunk/config/auto/gettext.pm
trunk/config/auto/glibc.pm
trunk/config/auto/gmp.pm
trunk/config/auto/headers.pm
trunk/config/auto/icu.pm
trunk/config/auto/inline.pm
trunk/config/auto/isreg.pm
trunk/config/auto/jit.pm
trunk/config/auto/macports.pm
trunk/config/auto/memalign.pm
trunk/config/auto/msvc.pm
trunk/config/auto/opengl.pm
trunk/config/auto/ops.pm
trunk/config/auto/pcre.pm
trunk/config/auto/perldoc.pm
trunk/config/auto/pmc.pm
trunk/config/auto/readline.pm
trunk/config/auto/revision.pm
trunk/config/auto/signal.pm
trunk/config/auto/sizes.pm
trunk/config/auto/snprintf.pm
trunk/config/auto/socklen_t.pm
trunk/config/auto/va_ptr.pm
trunk/config/auto/warnings.pm
trunk/config/gen/call_list.pm
trunk/config/gen/config_h.pm
trunk/config/gen/config_pm.pm
trunk/config/gen/core_pmcs.pm
trunk/config/gen/crypto.pm
trunk/config/gen/languages.pm
trunk/config/gen/makefiles.pm
trunk/config/gen/parrot_include.pm
trunk/config/gen/platform.pm
trunk/config/init/defaults.pm
trunk/config/init/headers.pm
trunk/config/init/hints.pm
trunk/config/init/install.pm
trunk/config/init/manifest.pm
trunk/config/init/miniparrot.pm
trunk/config/init/optimize.pm
trunk/config/inter/charset.pm
trunk/config/inter/encoding.pm
trunk/config/inter/lex.pm
trunk/config/inter/libparrot.pm
trunk/config/inter/make.pm
trunk/config/inter/progs.pm
trunk/config/inter/shlibs.pm
trunk/config/inter/types.pm
trunk/config/inter/yacc.pm
trunk/lib/Parrot/Configure.pm
trunk/lib/Parrot/Configure/Options/Conf.pm
trunk/t/configure/004-configure.t
trunk/t/configure/007-verbose_two.t
trunk/t/configure/017-revision_from_cache.t
trunk/t/configure/018-revision_to_cache.t
trunk/t/configure/037-run_single_step.t
trunk/t/configure/043-verbose_step_name.t
trunk/t/configure/046-inter.t
trunk/t/configure/047-inter.t
trunk/t/configure/054-fatal_step.t
trunk/t/configure/061-revision_from_cache.t
Log:
Applying patch submitted in
http://rt.perl.org/rt3/Ticket/Display.html?id=57780; merge stepconfigure
branch into trunk. Individual config steps now listed in Configure.pl output;
step descriptions trimmed. '--verbose-step' option may now take multiple
steps as values. Tests files that covered superseded features have been
deleted.
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Tue Aug 19 19:21:59 2008
@@ -1,7 +1,7 @@
# ex: set ro:
# $Id$
#
-# generated by tools/dev/mk_manifest_and_skip.pl Sun Aug 17 23:21:04 2008 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Wed Aug 20 01:57:37 2008 UT
#
# See tools/dev/install_files.pl for documentation on the
# format of this file.
@@ -3282,9 +3282,6 @@
t/configure/005-run_one_step.t []
t/configure/006-bad_step.t []
t/configure/007-verbose_two.t []
-t/configure/008-verbose_step_number.t []
-t/configure/009-verbose_step_regex.t []
-t/configure/010-verbose_step_num_uncalled.t []
t/configure/011-no_description.t []
t/configure/012-verbose.t []
t/configure/013-die.t []
@@ -3327,10 +3324,8 @@
t/configure/052-fatal_step.t []
t/configure/053-fatal_step.t []
t/configure/054-fatal_step.t []
-t/configure/055-fatal_step.t []
-t/configure/056-fatal_step.t []
-t/configure/057-fatal_step.t []
-t/configure/058-fatal_step.t []
+t/configure/055-verbose_step.t []
+t/configure/056-verbose_step.t []
t/configure/059-silent.t []
t/configure/060-silent.t []
t/configure/061-revision_from_cache.t []
@@ -3346,6 +3341,7 @@
t/configure/testlib/init/iota.pm []
t/configure/testlib/init/kappa.pm []
t/configure/testlib/init/lambda.pm []
+t/configure/testlib/init/mu.pm []
t/configure/testlib/init/zeta.pm []
t/configure/testlib/inter/theta.pm []
t/distro/file_metadata.t []
Modified: trunk/MANIFEST.SKIP
==============================================================================
--- trunk/MANIFEST.SKIP (original)
+++ trunk/MANIFEST.SKIP Tue Aug 19 19:21:59 2008
@@ -1,6 +1,6 @@
# ex: set ro:
# $Id$
-# generated by tools/dev/mk_manifest_and_skip.pl Wed Aug 20 01:43:28 2008 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Wed Aug 20 01:57:37 2008 UT
#
# This file should contain a transcript of the svn:ignore properties
# of the directories in the Parrot subversion repository. (Needed for
Modified: trunk/config/auto/aio.pm
==============================================================================
--- trunk/config/auto/aio.pm (original)
+++ trunk/config/auto/aio.pm Tue Aug 19 19:21:59 2008
@@ -35,7 +35,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining if your platform supports AIO};
+ $data{description} = q{Does your platform support AIO};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/alignptrs.pm
==============================================================================
--- trunk/config/auto/alignptrs.pm (original)
+++ trunk/config/auto/alignptrs.pm Tue Aug 19 19:21:59 2008
@@ -23,7 +23,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining your minimum pointer alignment};
+ $data{description} = q{Determine your minimum pointer alignment};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/arch.pm
==============================================================================
--- trunk/config/auto/arch.pm (original)
+++ trunk/config/auto/arch.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining CPU architecture and OS};
+ $data{description} = q{Determine CPU architecture and OS};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/attributes.pm
==============================================================================
--- trunk/config/auto/attributes.pm (original)
+++ trunk/config/auto/attributes.pm Tue Aug 19 19:21:59 2008
@@ -25,7 +25,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Detecting compiler attributes (-DHASATTRIBUTE_xxx)};
+ $data{description} = q{Detect compiler attributes};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/backtrace.pm
==============================================================================
--- trunk/config/auto/backtrace.pm (original)
+++ trunk/config/auto/backtrace.pm Tue Aug 19 19:21:59 2008
@@ -26,7 +26,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining whether libc has the backtrace*
functions};
+ $data{description} = q{Does libc have the backtrace* functions};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/byteorder.pm
==============================================================================
--- trunk/config/auto/byteorder.pm (original)
+++ trunk/config/auto/byteorder.pm Tue Aug 19 19:21:59 2008
@@ -23,7 +23,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Computing native byteorder for Parrot's wordsize};
+ $data{description} = q{Compute native byteorder for wordsize};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/cgoto.pm
==============================================================================
--- trunk/config/auto/cgoto.pm (original)
+++ trunk/config/auto/cgoto.pm Tue Aug 19 19:21:59 2008
@@ -23,7 +23,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining whether your compiler supports computed
goto};
+ $data{description} = q{Does your compiler support computed goto};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/cpu.pm
==============================================================================
--- trunk/config/auto/cpu.pm (original)
+++ trunk/config/auto/cpu.pm Tue Aug 19 19:21:59 2008
@@ -25,7 +25,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Generating CPU specific stuff};
+ $data{description} = q{Generate CPU specific stuff};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/crypto.pm
==============================================================================
--- trunk/config/auto/crypto.pm (original)
+++ trunk/config/auto/crypto.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining if your platform supports crypto};
+ $data{description} = q{Does your platform support crypto};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/ctags.pm
==============================================================================
--- trunk/config/auto/ctags.pm (original)
+++ trunk/config/auto/ctags.pm Tue Aug 19 19:21:59 2008
@@ -27,7 +27,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining whether (exuberant) ctags is installed};
+ $data{description} = q{Is (exuberant) ctags installed};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/env.pm
==============================================================================
--- trunk/config/auto/env.pm (original)
+++ trunk/config/auto/env.pm Tue Aug 19 19:21:59 2008
@@ -27,7 +27,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining if your C library has setenv /
unsetenv};
+ $data{description} = q{Does your C library have setenv / unsetenv};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/fink.pm
==============================================================================
--- trunk/config/auto/fink.pm (original)
+++ trunk/config/auto/fink.pm Tue Aug 19 19:21:59 2008
@@ -26,7 +26,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining Fink location on Darwin};
+ $data{description} = q{Determine Fink location on Darwin};
$data{result} = q{};
# Per fink(8), this is location for Fink configuration file, presumably
# regardless of where Fink itself is installed.
Modified: trunk/config/auto/format.pm
==============================================================================
--- trunk/config/auto/format.pm (original)
+++ trunk/config/auto/format.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Figuring out what formats should be used for
sprintf};
+ $data{description} = q{What formats should be used for sprintf};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/funcptr.pm
==============================================================================
--- trunk/config/auto/funcptr.pm (original)
+++ trunk/config/auto/funcptr.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Verifying that the compiler supports function
pointer casts};
+ $data{description} = q{Does compiler support function pointer casts};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/gc.pm
==============================================================================
--- trunk/config/auto/gc.pm (original)
+++ trunk/config/auto/gc.pm Tue Aug 19 19:21:59 2008
@@ -54,7 +54,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining what allocator to use};
+ $data{description} = q{Determine allocator to use};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/gcc.pm
==============================================================================
--- trunk/config/auto/gcc.pm (original)
+++ trunk/config/auto/gcc.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining if your C compiler is actually gcc};
+ $data{description} = q{Is your C compiler actually gcc};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/gdbm.pm
==============================================================================
--- trunk/config/auto/gdbm.pm (original)
+++ trunk/config/auto/gdbm.pm Tue Aug 19 19:21:59 2008
@@ -29,7 +29,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining if your platform supports gdbm};
+ $data{description} = q{Does your platform support gdbm};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/gettext.pm
==============================================================================
--- trunk/config/auto/gettext.pm (original)
+++ trunk/config/auto/gettext.pm Tue Aug 19 19:21:59 2008
@@ -29,7 +29,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Seeing if your configuration includes gettext};
+ $data{description} = q{Does your configuration include gettext};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/glibc.pm
==============================================================================
--- trunk/config/auto/glibc.pm (original)
+++ trunk/config/auto/glibc.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Seeing if GNU libc is installed};
+ $data{description} = q{Is GNU libc installed};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/gmp.pm
==============================================================================
--- trunk/config/auto/gmp.pm (original)
+++ trunk/config/auto/gmp.pm Tue Aug 19 19:21:59 2008
@@ -32,7 +32,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining if your platform supports GMP};
+ $data{description} = q{Does your platform support GMP};
$data{result} = q{};
$data{cc_run_expected} =
"6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151
0\n";
Modified: trunk/config/auto/headers.pm
==============================================================================
--- trunk/config/auto/headers.pm (original)
+++ trunk/config/auto/headers.pm Tue Aug 19 19:21:59 2008
@@ -22,7 +22,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Probing for C headers};
+ $data{description} = q{Probe for C headers};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/icu.pm
==============================================================================
--- trunk/config/auto/icu.pm (original)
+++ trunk/config/auto/icu.pm Tue Aug 19 19:21:59 2008
@@ -32,7 +32,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining whether ICU is installed};
+ $data{description} = q{Is ICU installed};
$data{result} = q{};
# The following key-value pairs are defined here rather than being buried
# deep inside subroutines below. Also, so that they can be overridden
Modified: trunk/config/auto/inline.pm
==============================================================================
--- trunk/config/auto/inline.pm (original)
+++ trunk/config/auto/inline.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining if your compiler supports inline};
+ $data{description} = q{Does your compiler support inline};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/isreg.pm
==============================================================================
--- trunk/config/auto/isreg.pm (original)
+++ trunk/config/auto/isreg.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining if your C library has a working
S_ISREG};
+ $data{description} = q{Does your C library have a working S_ISREG};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/jit.pm
==============================================================================
--- trunk/config/auto/jit.pm (original)
+++ trunk/config/auto/jit.pm Tue Aug 19 19:21:59 2008
@@ -28,7 +28,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining JIT capability};
+ $data{description} = q{Determine JIT capability};
$data{result} = q{};
$data{jit_is_working} = {
i386 => 1,
Modified: trunk/config/auto/macports.pm
==============================================================================
--- trunk/config/auto/macports.pm (original)
+++ trunk/config/auto/macports.pm Tue Aug 19 19:21:59 2008
@@ -35,7 +35,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining Macports location on Darwin};
+ $data{description} = q{Determine Macports location on Darwin};
$data{result} = q{};
my $optlocal = File::Spec->catdir( '/', 'opt', 'local' );
$data{ports_root} = (defined $ENV{TEST_MACPORTS})
Modified: trunk/config/auto/memalign.pm
==============================================================================
--- trunk/config/auto/memalign.pm (original)
+++ trunk/config/auto/memalign.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining if your C library supports memalign};
+ $data{description} = q{Does your C library support memalign};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/msvc.pm
==============================================================================
--- trunk/config/auto/msvc.pm (original)
+++ trunk/config/auto/msvc.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining if your C compiler is actually Visual
C++};
+ $data{description} = q{Is your C compiler actually Visual C++};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/opengl.pm
==============================================================================
--- trunk/config/auto/opengl.pm (original)
+++ trunk/config/auto/opengl.pm Tue Aug 19 19:21:59 2008
@@ -139,7 +139,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining if your platform supports OpenGL};
+ $data{description} = q{Does your platform support OpenGL};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/ops.pm
==============================================================================
--- trunk/config/auto/ops.pm (original)
+++ trunk/config/auto/ops.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining what opcode files should be compiled
in};
+ $data{description} = q{Which opcode files should be compiled in};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/pcre.pm
==============================================================================
--- trunk/config/auto/pcre.pm (original)
+++ trunk/config/auto/pcre.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining if your platform supports pcre};
+ $data{description} = q{Does your platform support pcre};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/perldoc.pm
==============================================================================
--- trunk/config/auto/perldoc.pm (original)
+++ trunk/config/auto/perldoc.pm Tue Aug 19 19:21:59 2008
@@ -28,7 +28,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining whether perldoc is installed};
+ $data{description} = q{Is perldoc installed};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/pmc.pm
==============================================================================
--- trunk/config/auto/pmc.pm (original)
+++ trunk/config/auto/pmc.pm Tue Aug 19 19:21:59 2008
@@ -26,7 +26,7 @@
sub _init {
my $self = shift;
return {
- description => 'Determining what pmc files should be compiled in',
+ description => 'Which pmc files should be compiled in',
result => '',
PMC_PARENTS => {},
srcpmc => [ sort map { basename($_) } glob "./src/pmc/*.pmc" ],
Modified: trunk/config/auto/readline.pm
==============================================================================
--- trunk/config/auto/readline.pm (original)
+++ trunk/config/auto/readline.pm Tue Aug 19 19:21:59 2008
@@ -28,7 +28,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining if your platform supports readline};
+ $data{description} = q{Does your platform support readline};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/revision.pm
==============================================================================
--- trunk/config/auto/revision.pm (original)
+++ trunk/config/auto/revision.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining Parrot's revision};
+ $data{description} = q{Determine Parrot's revision};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/signal.pm
==============================================================================
--- trunk/config/auto/signal.pm (original)
+++ trunk/config/auto/signal.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining some signal stuff};
+ $data{description} = q{Determine some signal stuff};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/sizes.pm
==============================================================================
--- trunk/config/auto/sizes.pm (original)
+++ trunk/config/auto/sizes.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining some sizes};
+ $data{description} = q{Determine some sizes};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/snprintf.pm
==============================================================================
--- trunk/config/auto/snprintf.pm (original)
+++ trunk/config/auto/snprintf.pm Tue Aug 19 19:21:59 2008
@@ -21,7 +21,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Testing snprintf};
+ $data{description} = q{Test snprintf};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/socklen_t.pm
==============================================================================
--- trunk/config/auto/socklen_t.pm (original)
+++ trunk/config/auto/socklen_t.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining whether there is socklen_t};
+ $data{description} = q{Determine whether there is socklen_t};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/va_ptr.pm
==============================================================================
--- trunk/config/auto/va_ptr.pm (original)
+++ trunk/config/auto/va_ptr.pm Tue Aug 19 19:21:59 2008
@@ -24,8 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} =
- q{Test the type of va_ptr (this test is likely to segfault)};
+ $data{description} = q{Test the type of va_ptr};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/auto/warnings.pm
==============================================================================
--- trunk/config/auto/warnings.pm (original)
+++ trunk/config/auto/warnings.pm Tue Aug 19 19:21:59 2008
@@ -31,7 +31,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Detecting supported compiler warnings (-Wxxx)};
+ $data{description} = q{Detect supported compiler warnings};
$data{result} = q{};
# potential addition? -fvisibility=hidden
Modified: trunk/config/gen/call_list.pm
==============================================================================
--- trunk/config/gen/call_list.pm (original)
+++ trunk/config/gen/call_list.pm Tue Aug 19 19:21:59 2008
@@ -32,7 +32,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Generating NCI signature list};
+ $data{description} = q{Generate NCI signature list};
$data{result} = q{};
$data{fragment_files} = [ sort glob 'config/gen/call_list/*.in' ];
return \%data;
Modified: trunk/config/gen/config_h.pm
==============================================================================
--- trunk/config/gen/config_h.pm (original)
+++ trunk/config/gen/config_h.pm Tue Aug 19 19:21:59 2008
@@ -27,7 +27,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Generating C headers};
+ $data{description} = q{Generate C headers};
$data{result} = q{};
$data{templates} = {
config_h => 'config/gen/config_h/config_h.in',
Modified: trunk/config/gen/config_pm.pm
==============================================================================
--- trunk/config/gen/config_pm.pm (original)
+++ trunk/config/gen/config_pm.pm Tue Aug 19 19:21:59 2008
@@ -27,7 +27,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Recording configuration data for later retrieval};
+ $data{description} = q{Record configuration data for later retrieval};
$data{result} = q{};
$data{templates} = {
myconfig => 'config/gen/config_pm/myconfig.in',
Modified: trunk/config/gen/core_pmcs.pm
==============================================================================
--- trunk/config/gen/core_pmcs.pm (original)
+++ trunk/config/gen/core_pmcs.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Generating core pmc list};
+ $data{description} = q{Generate core pmc list};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/gen/crypto.pm
==============================================================================
--- trunk/config/gen/crypto.pm (original)
+++ trunk/config/gen/crypto.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Generating Digest PMC files};
+ $data{description} = q{Generate Digest PMC files};
$data{result} = q{};
$data{digest} = {
MD2 => {},
Modified: trunk/config/gen/languages.pm
==============================================================================
--- trunk/config/gen/languages.pm (original)
+++ trunk/config/gen/languages.pm Tue Aug 19 19:21:59 2008
@@ -34,7 +34,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Configuring languages};
+ $data{description} = q{Configure languages};
$data{result} = q{};
$data{default_languages} = qq{
APL abc
Modified: trunk/config/gen/makefiles.pm
==============================================================================
--- trunk/config/gen/makefiles.pm (original)
+++ trunk/config/gen/makefiles.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Generating makefiles and other build files};
+ $data{description} = q{Generate makefiles and other build files};
$data{result} = q{};
$data{makefiles} = {
'Makefile' => { SOURCE => 'config/gen/makefiles/root.in' },
Modified: trunk/config/gen/parrot_include.pm
==============================================================================
--- trunk/config/gen/parrot_include.pm (original)
+++ trunk/config/gen/parrot_include.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Generating runtime/parrot/include};
+ $data{description} = q{Generate runtime/parrot/include};
$data{result} = q{};
$data{source_files} = [ qw(
include/parrot/cclass.h
@@ -181,6 +181,7 @@
sub runstep {
my ( $self, $conf ) = @_;
+ my $verbose = $conf->options->get('verbose');
# need vtable.h now
system( $^X, "tools/build/vtable_h.pl" );
@@ -193,7 +194,7 @@
for my $d (@directives) {
my @defs = perform_directive $d;
for my $target ( @{ $d->{files} } ) {
- $conf->options->get('verbose') and print "$target ";
+ $verbose and print "$target ";
my $gen = join "\n",
( $target =~ /\.pl$/ ? \&const_to_perl : \&const_to_parrot
)->(@defs);
$conf->append_configure_log(qq{$self->{destdir}/$target});
Modified: trunk/config/gen/platform.pm
==============================================================================
--- trunk/config/gen/platform.pm (original)
+++ trunk/config/gen/platform.pm Tue Aug 19 19:21:59 2008
@@ -24,7 +24,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Moving platform files into place};
+ $data{description} = q{Move platform files into place};
$data{result} = q{};
$data{platform_interface} = q{config/gen/platform/platform_interface.h};
$data{coda} = <<'CODA';
Modified: trunk/config/init/defaults.pm
==============================================================================
--- trunk/config/init/defaults.pm (original)
+++ trunk/config/init/defaults.pm Tue Aug 19 19:21:59 2008
@@ -29,7 +29,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Setting up Configure's default values};
+ $data{description} = q{Set Configure's default values};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/init/headers.pm
==============================================================================
--- trunk/config/init/headers.pm (original)
+++ trunk/config/init/headers.pm Tue Aug 19 19:21:59 2008
@@ -26,7 +26,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Finding header files distributed with Parrot};
+ $data{description} = q{Find header files distributed with Parrot};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/init/hints.pm
==============================================================================
--- trunk/config/init/hints.pm (original)
+++ trunk/config/init/hints.pm Tue Aug 19 19:21:59 2008
@@ -23,7 +23,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Loading platform and local hints files};
+ $data{description} = q{Load platform and local hints files};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/init/install.pm
==============================================================================
--- trunk/config/init/install.pm (original)
+++ trunk/config/init/install.pm Tue Aug 19 19:21:59 2008
@@ -21,7 +21,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Setting up installation paths};
+ $data{description} = q{Set up installation paths};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/init/manifest.pm
==============================================================================
--- trunk/config/init/manifest.pm (original)
+++ trunk/config/init/manifest.pm Tue Aug 19 19:21:59 2008
@@ -26,7 +26,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Checking MANIFEST};
+ $data{description} = q{Check MANIFEST};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/init/miniparrot.pm
==============================================================================
--- trunk/config/init/miniparrot.pm (original)
+++ trunk/config/init/miniparrot.pm Tue Aug 19 19:21:59 2008
@@ -26,7 +26,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Tweaking settings for miniparrot};
+ $data{description} = q{Tweak settings for miniparrot};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/init/optimize.pm
==============================================================================
--- trunk/config/init/optimize.pm (original)
+++ trunk/config/init/optimize.pm Tue Aug 19 19:21:59 2008
@@ -22,7 +22,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Enabling optimization};
+ $data{description} = q{Enable optimization};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/inter/charset.pm
==============================================================================
--- trunk/config/inter/charset.pm (original)
+++ trunk/config/inter/charset.pm Tue Aug 19 19:21:59 2008
@@ -26,7 +26,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining what charset files should be compiled
in};
+ $data{description} = q{Which charset files should be compiled in};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/inter/encoding.pm
==============================================================================
--- trunk/config/inter/encoding.pm (original)
+++ trunk/config/inter/encoding.pm Tue Aug 19 19:21:59 2008
@@ -26,7 +26,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining what encoding files should be compiled
in};
+ $data{description} = q{Which encoding files should be compiled in};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/inter/lex.pm
==============================================================================
--- trunk/config/inter/lex.pm (original)
+++ trunk/config/inter/lex.pm Tue Aug 19 19:21:59 2008
@@ -25,7 +25,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining whether lex is installed};
+ $data{description} = q{Is lex installed};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/inter/libparrot.pm
==============================================================================
--- trunk/config/inter/libparrot.pm (original)
+++ trunk/config/inter/libparrot.pm Tue Aug 19 19:21:59 2008
@@ -25,7 +25,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determine if parrot should be linked against a
shared library};
+ $data{description} = q{Should parrot link against a shared library};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/inter/make.pm
==============================================================================
--- trunk/config/inter/make.pm (original)
+++ trunk/config/inter/make.pm Tue Aug 19 19:21:59 2008
@@ -23,7 +23,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining whether make is installed};
+ $data{description} = q{Is make installed};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/inter/progs.pm
==============================================================================
--- trunk/config/inter/progs.pm (original)
+++ trunk/config/inter/progs.pm Tue Aug 19 19:21:59 2008
@@ -26,7 +26,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining what C compiler and linker to use};
+ $data{description} = q{Determine what C compiler and linker to use};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/inter/shlibs.pm
==============================================================================
--- trunk/config/inter/shlibs.pm (original)
+++ trunk/config/inter/shlibs.pm Tue Aug 19 19:21:59 2008
@@ -29,7 +29,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining flags for building shared libraries};
+ $data{description} = q{Determine flags for building shared libraries};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/inter/types.pm
==============================================================================
--- trunk/config/inter/types.pm (original)
+++ trunk/config/inter/types.pm Tue Aug 19 19:21:59 2008
@@ -25,7 +25,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining what types Parrot should use};
+ $data{description} = q{What types should Parrot use};
$data{result} = q{};
return \%data;
}
Modified: trunk/config/inter/yacc.pm
==============================================================================
--- trunk/config/inter/yacc.pm (original)
+++ trunk/config/inter/yacc.pm Tue Aug 19 19:21:59 2008
@@ -25,7 +25,7 @@
sub _init {
my $self = shift;
my %data;
- $data{description} = q{Determining whether yacc is installed};
+ $data{description} = q{Is yacc installed};
$data{result} = q{};
return \%data;
}
Modified: trunk/lib/Parrot/Configure.pm
==============================================================================
--- trunk/lib/Parrot/Configure.pm (original)
+++ trunk/lib/Parrot/Configure.pm Tue Aug 19 19:21:59 2008
@@ -221,10 +221,10 @@
my $conf = shift;
my $n = 0; # step number
- my ( $silent, $verbose, $verbose_step, $fatal, $fatal_step, $ask );
+ my ( $silent, $verbose, $verbose_step_str, $fatal, $fatal_step_str, $ask );
$silent = $conf->options->get(qw( silent ));
unless ($silent) {
- ( $verbose, $verbose_step, $fatal, $fatal_step, $ask ) =
+ ( $verbose, $verbose_step_str, $fatal, $fatal_step_str, $ask ) =
$conf->options->get(qw( verbose verbose-step fatal fatal-step ask
));
}
@@ -238,29 +238,37 @@
# We make certain that argument to --fatal-step is a comma-delimited
# string of configuration steps, each of which is a string delimited by
# two colons, the first half of which is one of init|inter|auto|gen
- # (This will be modified to take a step sequence number.)
- elsif ( defined ( $fatal_step ) ) {
- %steps_to_die_for = $conf->_handle_fatal_step_option( $fatal_step );
+ elsif ( defined ( $fatal_step_str ) ) {
+ %steps_to_die_for = _handle_fatal_step_option( $fatal_step_str );
}
else {
# No action needed; this is the default case where no step is fatal
}
+ my %verbose_steps;
+ if (defined $verbose_step_str) {
+ %verbose_steps = _handle_verbose_step_option( $verbose_step_str );
+ }
foreach my $task ( $conf->steps ) {
- my $red_flag;
+ my ($red_flag, $this_step_is_verbose);
my $step_name = $task->step;
- if ( scalar ( keys ( %steps_to_die_for ) ) ) {
+ if ( scalar keys %steps_to_die_for ) {
if ( $steps_to_die_for{$step_name} ) {
$red_flag++;
}
}
+ if ( scalar keys %verbose_steps ) {
+ $this_step_is_verbose = $verbose_steps{$step_name}
+ ? $step_name
+ : q{};
+ }
$n++;
my $rv = $conf->_run_this_step(
{
task => $task,
verbose => $verbose,
- verbose_step => $verbose_step,
+ verbose_step => $this_step_is_verbose,
ask => $ask,
n => $n,
silent => $silent,
@@ -281,40 +289,45 @@
}
sub _handle_fatal_step_option {
- my $conf = shift;
- my ($fatal_step) = @_;
+ my $fatal_step_str = shift;
my %steps_to_die_for = ();
- my $named_step_pattern = qr/(?:init|inter|auto|gen)::[a-z]+/;
- my $unit_step_pattern = qr/\d+|$named_step_pattern/;
- if ( $fatal_step =~ /^
- $unit_step_pattern
- (, $unit_step_pattern)*
+ my $named_step_pattern = qr/(?:init|inter|auto|gen)::\w+/;
+ if ( $fatal_step_str =~ /^
+ $named_step_pattern
+ (, $named_step_pattern)*
$/x
) {
- my @fatal_steps = split /,/, $fatal_step;
+ my @fatal_steps = split /,/, $fatal_step_str;
for my $s (@fatal_steps) {
- if ($s =~ /^\d+$/) {
- die "No configuration step corresponding to $fatal_step"
- unless defined $conf->{list_of_steps}->[$s - 1];
- my $step_name = $conf->{list_of_steps}->[$s - 1];
- if ($step_name =~ /$named_step_pattern/) {
- $steps_to_die_for{$step_name}++;
- }
- else {
- die "Configuration step corresponding to $s is invalid";
- }
- }
- else {
- $steps_to_die_for{$s}++;
- }
+ $steps_to_die_for{$s}++;
}
}
else {
- die "Argument to 'fatal-step' option must be comma-delimited string of
valid configuration steps or configuration step sequence numbers";
+ die "Argument to 'fatal-step' option must be comma-delimited string of
valid configuration steps";
}
return %steps_to_die_for;
}
+sub _handle_verbose_step_option {
+ my $verbose_step_str = shift;
+ my %verbose_steps = ();
+ my $named_step_pattern = qr/(?:init|inter|auto|gen)::\w+/;
+ if ( $verbose_step_str =~ /^
+ $named_step_pattern
+ (, $named_step_pattern)*
+ $/x
+ ) {
+ my @verbose_steps = split /,/, $verbose_step_str;
+ for my $s (@verbose_steps) {
+ $verbose_steps{$s}++;
+ }
+ }
+ else {
+ die "Argument to 'verbose-step' option must be comma-delimited string
of valid configuration steps";
+ }
+ return %verbose_steps;
+}
+
=item * C<run_single_step()>
The invoking Parrot::Configure object is passed as the first argument to
@@ -324,6 +337,9 @@
Accepts no arguments and modifies the data structure within the
Parrot::Configure object.
+B<Note:> Currently used only in F<tools/dev/reconfigure.pl>; not used in
+F<Configure.pl>.
+
=cut
sub run_single_step {
@@ -370,31 +386,23 @@
my $step = $step_name->new();
# set per step verbosity
- if ( defined $args->{verbose_step} ) {
- if (
- (
- # by step number
- ( $args->{verbose_step} =~ /^\d+$/ )
- and ( $args->{n} == $args->{verbose_step} )
- )
- or (
- # by step name
- ( ${ $conf->{hash_of_steps} }{ $args->{verbose_step} } )
- and ( $args->{verbose_step} eq $step_name )
- )
- or (
- # by description
- $step->description =~ /$args->{verbose_step}/
- )
- )
- {
- $conf->options->set( verbose => 2 );
- }
+ if ( $args->{verbose_step} ) {
+ $conf->options->set( verbose => 2 );
}
+ my $stub = qq{$step_name - };
+ my $message = $stub .
+ (q{ } x (22 - length($stub))) .
+ $step->description .
+ '...';
+ my $length_message = length($message);
unless ($args->{silent}) {
- print "\n", $step->description, '...';
- print "\n" if $args->{verbose} && $args->{verbose} == 2;
+ # The first newline terminates the report on the *previous* step.
+ # (Probably needed to make interactive output work properly.
+ # Otherwise, we'd put it in _finish_printing_result().
+ print "\n";
+ print $message;
+ print "\n" if $args->{verbose_step};
}
my $ret;
@@ -408,6 +416,8 @@
# A Parrot configuration step can run successfully, but if it fails to
# achieve its objective it is supposed to return an undefined status.
if ( $ret ) {
+ # reset verbose value for the next step
+ $conf->options->set( verbose => $args->{verbose} );
unless ($args->{silent}) {
_finish_printing_result(
{
@@ -415,11 +425,10 @@
step_name => $step_name,
args => $args,
description => $step->description,
+ length_message => $length_message,
}
);
}
- # reset verbose value for the next step
- $conf->options->set( verbose => $args->{verbose} );
if ($conf->options->get(q{configure_trace}) ) {
_update_conftrace(
{
@@ -449,10 +458,24 @@
sub _finish_printing_result {
my $argsref = shift;
my $result = $argsref->{step}->result || 'done';
- if ( $argsref->{args}->{verbose} && $argsref->{args}->{verbose} == 2 ) {
- print "...";
+ my $linelength = 78;
+ if ($argsref->{args}->{verbose} or $argsref->{args}->{verbose_step}) {
+ # For more readable verbose output, we'll repeat the step description
+ print "\n";
+ my $spaces = 22;
+ print q{ } x $spaces;
+ print $argsref->{description};
+ print '.' x (
+ ( $linelength - $spaces ) -
+ ( length($argsref->{description}) + length($result) + 1 )
+ );
+ }
+ else {
+ print '.' x (
+ $linelength -
+ ( $argsref->{length_message} + length($result) + 1 )
+ );
}
- print "." x ( 71 - length($argsref->{description}) - length($result) );
unless ( $argsref->{step_name} =~ m{^inter} && $argsref->{args}->{ask} ) {
print "$result.";
}
Modified: trunk/lib/Parrot/Configure/Options/Conf.pm
==============================================================================
--- trunk/lib/Parrot/Configure/Options/Conf.pm (original)
+++ trunk/lib/Parrot/Configure/Options/Conf.pm Tue Aug 19 19:21:59 2008
@@ -128,11 +128,13 @@
--version Show version information
--verbose Output extra information
--verbose=2 Output every setting change
- --verbose-step=N Set verbose for step N only
- --verbose-step=regex Set verbose for step matching description
+ --verbose-step=init::step,auto::step,...
+ Comma-delimited string of configuration steps
+ providing verbose output
--fatal Failure of any configuration step will cause
Configure.pl to halt
- --fatal-step Comma-delimited string of configuration steps
+ --fatal-step=init::step,auto::step,...
+ Comma-delimited string of configuration steps
which upon failure cause Configure.pl to halt
--silent Don't be verbose, interactive or fatal
--nomanicheck Don't check the MANIFEST
Modified: trunk/t/configure/004-configure.t
==============================================================================
--- trunk/t/configure/004-configure.t (original)
+++ trunk/t/configure/004-configure.t Tue Aug 19 19:21:59 2008
@@ -91,7 +91,7 @@
like(
$@,
qr/You cannot use --step until you have completed the full configure
process/,
-"Got expected error message when using --step option and slurp() without prior
completed configuration"
+"Got expected error message for --step option and slurp() without prior
configuration"
);
}
@@ -109,7 +109,7 @@
like(
$@,
qr/You cannot use --step until you have completed the full configure
process/,
-"Got expected error message when using --step option and slurp_temp() without
prior completed configuration"
+"Got expected error message for --step option and slurp_temp() without prior
configuration"
);
}
Modified: trunk/t/configure/007-verbose_two.t
==============================================================================
--- trunk/t/configure/007-verbose_two.t (original)
+++ trunk/t/configure/007-verbose_two.t Tue Aug 19 19:21:59 2008
@@ -56,7 +56,7 @@
ok( $rv, "runsteps successfully ran $step" );
like(
$stdout,
- qr/$description\.\.\..*done.*Setting Configuration Data.*verbose.*2/s,
+ qr/$description\.\.\..*Setting Configuration Data.*verbose.*2.*done/s,
"Got message expected upon running $step"
);
}
Modified: trunk/t/configure/017-revision_from_cache.t
==============================================================================
--- trunk/t/configure/017-revision_from_cache.t (original)
+++ trunk/t/configure/017-revision_from_cache.t Tue Aug 19 19:21:59 2008
@@ -7,7 +7,8 @@
use warnings;
use Test::More;
-plan( skip_all => "\nRelevant only when working in checkout from repository
and during configuration" )
+plan( skip_all =>
+ "\nRelevant only when working in checkout from repository and during
configuration" )
unless (-e 'DEVELOPING' and ! -e 'Makefile');
plan( tests => 7 );
use Carp;
Modified: trunk/t/configure/018-revision_to_cache.t
==============================================================================
--- trunk/t/configure/018-revision_to_cache.t (original)
+++ trunk/t/configure/018-revision_to_cache.t Tue Aug 19 19:21:59 2008
@@ -7,7 +7,8 @@
use warnings;
use Test::More;
-plan( skip_all => "\nRelevant only when working in checkout from repository
and during configuration" )
+plan( skip_all =>
+ "\nRelevant only when working in checkout from repository and during
configuration" )
unless (-e 'DEVELOPING' and ! -e 'Makefile');
plan( tests => 8 );
use Carp;
Modified: trunk/t/configure/037-run_single_step.t
==============================================================================
--- trunk/t/configure/037-run_single_step.t (original)
+++ trunk/t/configure/037-run_single_step.t Tue Aug 19 19:21:59 2008
@@ -35,7 +35,7 @@
ok( !$@, "run_single_step() completed without error" );
like(
$stdout,
- qr/Setting up Configure's default values.*done./s, #'
+ qr/$step.*done./s, #'
"Got message expected upon running $step"
);
}
Modified: trunk/t/configure/043-verbose_step_name.t
==============================================================================
--- trunk/t/configure/043-verbose_step_name.t (original)
+++ trunk/t/configure/043-verbose_step_name.t Tue Aug 19 19:21:59 2008
@@ -42,8 +42,6 @@
}
is( $nontaskcount, 0, "Each step is a Parrot::Configure::Task object" );
is( $confsteps[0]->step, $step, "'step' element of Parrot::Configure::Task
struct identified" );
-#is( ref( $confsteps[0]->params ),
-# 'ARRAY', "'params' element of Parrot::Configure::Task struct is array
ref" );
ok( !ref( $confsteps[0]->object ),
"'object' element of Parrot::Configure::Task struct is not yet a ref" );
Modified: trunk/t/configure/046-inter.t
==============================================================================
--- trunk/t/configure/046-inter.t (original)
+++ trunk/t/configure/046-inter.t Tue Aug 19 19:21:59 2008
@@ -66,8 +66,7 @@
=head1 NAME
-046-inter.t - test Parrot::Configure::_run_this_step() with regard to
configuration steps that prompt for user input
-
+046-inter.t - test Parrot::Configure::_run_this_step()
=head1 SYNOPSIS
% prove t/configure/046-inter.t
@@ -76,6 +75,9 @@
The files in this directory test functionality used by F<Configure.pl>.
+This file tests Parrot::Configure::_run_this_step() with regard to
+configuration steps that prompt for user input.
+
=head1 AUTHOR
James E Keenan
Modified: trunk/t/configure/047-inter.t
==============================================================================
--- trunk/t/configure/047-inter.t (original)
+++ trunk/t/configure/047-inter.t Tue Aug 19 19:21:59 2008
@@ -72,8 +72,7 @@
=head1 NAME
-047-inter.t - test Parrot::Configure::_run_this_step() with regard to
configuration steps that prompt for user input
-
+047-inter.t - test Parrot::Configure::_run_this_step()
=head1 SYNOPSIS
% prove t/configure/047-inter.t
@@ -82,6 +81,10 @@
The files in this directory test functionality used by F<Configure.pl>.
+This file tests Parrot::Configure::_run_this_step() with regard to
+configuration steps that prompt for user input.
+
+
=head1 AUTHOR
James E Keenan
Modified: trunk/t/configure/054-fatal_step.t
==============================================================================
--- trunk/t/configure/054-fatal_step.t (original)
+++ trunk/t/configure/054-fatal_step.t Tue Aug 19 19:21:59 2008
@@ -74,7 +74,8 @@
The files in this directory test functionality used by F<Configure.pl>.
-The tests in this file examine what happens when a valid value is specified
for the C<--fatal-step> but a different configuration step is run.
+The tests in this file examine what happens when a valid value is specified
+for the C<--fatal-step> but a different configuration step is run.
=head1 AUTHOR
Modified: trunk/t/configure/061-revision_from_cache.t
==============================================================================
--- trunk/t/configure/061-revision_from_cache.t (original)
+++ trunk/t/configure/061-revision_from_cache.t Tue Aug 19 19:21:59 2008
@@ -7,7 +7,8 @@
use warnings;
use Test::More;
-plan( skip_all => "\nRelevant only when working in checkout from repository
and during configuration" )
+plan( skip_all =>
+ "\nRelevant only when working in checkout from repository and during
configuration" )
unless (-e 'DEVELOPING' and ! -e 'Makefile');
plan( tests => 25 );
use Carp;
