[svn:parrot] r48000 - in trunk/t: configure postconfigure

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Mon Jul  5 01:37:52 2010
New Revision: 48000
URL: https://trac.parrot.org/parrot/changeset/48000

Log:
Try to get the reasons why tests are skipped during 'make test' to show up better.

Modified:
   trunk/t/configure/017-revision_from_cache.t
   trunk/t/configure/018-revision_to_cache.t
   trunk/t/postconfigure/05-trace.t

Modified: trunk/t/configure/017-revision_from_cache.t
==============================================================================
--- trunk/t/configure/017-revision_from_cache.t	Mon Jul  5 01:35:17 2010	(r47999)
+++ trunk/t/configure/017-revision_from_cache.t	Mon Jul  5 01:37:52 2010	(r48000)
@@ -7,10 +7,13 @@
 use warnings;
 
 use Test::More;
-plan( skip_all =>
-    "\nRelevant only when working in checkout from repository and during configuration" )
-    unless (-e 'DEVELOPING' and ! -e 'Makefile');
-plan( tests =>  7 );
+if (-e 'DEVELOPING' and ! -e 'Makefile') {
+    plan tests =>  7;
+}
+else {
+    plan skip_all =>
+        qq{\nRelevant only when working in checkout from repository and prior to configuration};
+}
 use Carp;
 use Cwd;
 use File::Copy;

Modified: trunk/t/configure/018-revision_to_cache.t
==============================================================================
--- trunk/t/configure/018-revision_to_cache.t	Mon Jul  5 01:35:17 2010	(r47999)
+++ trunk/t/configure/018-revision_to_cache.t	Mon Jul  5 01:37:52 2010	(r48000)
@@ -7,10 +7,13 @@
 use warnings;
 
 use Test::More;
-plan( skip_all =>
-    "\nRelevant only when working in checkout from repository and during configuration" )
-    unless (-e 'DEVELOPING' and ! -e 'Makefile');
-plan( tests =>  8 );
+if (-e 'DEVELOPING' and ! -e 'Makefile') {
+    plan tests =>  8;
+}
+else {
+    plan skip_all =>
+        qq{\nRelevant only when working in checkout from repository and prior to configuration};
+}
 use Carp;
 use Cwd;
 use File::Copy;

Modified: trunk/t/postconfigure/05-trace.t
==============================================================================
--- trunk/t/postconfigure/05-trace.t	Mon Jul  5 01:35:17 2010	(r47999)
+++ trunk/t/postconfigure/05-trace.t	Mon Jul  5 01:37:52 2010	(r48000)
@@ -14,7 +14,8 @@
     plan tests => 40;
 }
 else {
-    plan skip_all => q{Tests irrelevant unless configuration completed with tracing requested};
+    plan skip_all =>
+        q{Tests irrelevant unless configuration completed with tracing requested};
 }
 use lib qw( lib );
 use Parrot::Config;