From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 25 Aug 2009 09:38:41 +0000 (+0100)
Subject: Run t/run/*.t before t/cmd/*.t, making the order base, cmd, run, and note why.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=03d95bfa21cfb6c69eff384ee082239e765af8f1;p=p5sagit%2Fp5-mst-13.2.git

Run t/run/*.t before t/cmd/*.t, making the order base, cmd, run, and note why.

base first, as TEST bails out if that can't run
then comp, to validate that require works
then run, to validate that -M works
then we know we can -MTestInit for everything else, making life simpler)
---

diff --git a/t/TEST b/t/TEST
index 511aac1..6f23caf 100755
--- a/t/TEST
+++ b/t/TEST
@@ -113,7 +113,11 @@ sub _populate_hash {
 }
 
 unless (@ARGV) {
-    foreach my $dir (qw(base comp cmd run io op uni mro)) {
+    # base first, as TEST bails out if that can't run
+    # then comp, to validate that require works
+    # then run, to validate that -M works
+    # then we know we can -MTestInit for everything else, making life simpler
+    foreach my $dir (qw(base comp run cmd io op uni mro)) {
 	_find_tests($dir);
     }
     _find_tests("lib") unless $::core;
diff --git a/t/harness b/t/harness
index 1eb85f1..9ea16a5 100644
--- a/t/harness
+++ b/t/harness
@@ -132,7 +132,7 @@ if (@ARGV) {
     unless (@tests) {
 	my @seq = <base/*.t>;
 
-	my @next = qw(comp cmd run io op uni mro lib porting);
+	my @next = qw(comp run cmd io op uni mro lib porting);
 	push @next, 'japh' if $torture;
 	push @next, 'win32' if $^O eq 'MSWin32';
 	push @next, 'benchmark' if $ENV{PERL_BENCHMARK};