t/harness: Catch incorrect serial directory specification
authorKarl Williamson <khw@cpan.org>
Fri, 7 Dec 2018 17:42:21 +0000 (10:42 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 7 Dec 2018 17:46:36 +0000 (10:46 -0700)
The previous commit fixed a bug.  This commit detects if someone creates
a new instance of that bug.

t/harness

index d23c015..caa2a31 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -193,6 +193,12 @@ if (@ARGV) {
             $serials{$_} = 1;
         }
 
+        my @nonexistent_serials = grep { not exists $all_dirs{$_} } keys %serials;
+        if (@nonexistent_serials) {
+            die "These directories to be run serially are incorrectly"
+              . " specified:\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