perlutil updates and cleanup

[perl5.git] / t / harness

diff --git a/t/harness b/t/harness
index 7733d2b..58a212f 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -189,10 +189,16 @@ if (@ARGV) {
         # directory containing such files should be tested in serial order.
         #
         # Add exceptions to the above rule
-        for (qw(ext/Pod-Html/t)) {
+        for (qw(ext/Pod-Html/t cpan/IO-Zlib/t ext/File-Find/t)) {
             $serials{$_} = 1;
         }
 
+        my @nonexistent_serials = grep { not exists $all_dirs{$_} } keys %serials;
+        if (@nonexistent_serials) {
+            die "These directories to be run serially don't exist."
+              . "  Check your spelling:\n" . join "\n", @nonexistent_serials;
+        }
+
         # Remove the serial testing directories from the list of all
         # directories.  The remaining ones are testable in parallel.  Make the
         # parallel list a scalar with names separated by '|' so that below