(spec_to_list): Warn about all filenames that exceed max-length before dying.

diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl
index 48b4b1db6f193d6c7729c3f5df1ec080c488b124..c85aaaa596b2c2d6960c99d53a91f226052773c7 100644 (file)
--- a/tests/cut/mk-script.pl
+++ b/tests/cut/mk-script.pl
@@ -120,11 +120,18 @@ sub spec_to_list ($$$)
       ++$i;
     }
 
+  my $n_fail = 0;
   foreach $i (@explicit_file, @maint_gen_file)
     {
-      die "$0: $i: generated test file name would be longer than 14 characters"
-       if (length ($i) > 14);
+      my $max_len = 14;
+      if (length ($i) > $max_len)
+       {
+         warn "$0: $i: generated test file name would be longer than"
+           . " $max_len characters\n";
+         ++$n_fail;
+       }
     }
+  exit (1) if $n_fail;
 
   my %h = (
     EXPLICIT => \@explicit_file,

diff --git a/tests/head/mk-script.pl b/tests/head/mk-script.pl
index 48b4b1db6f193d6c7729c3f5df1ec080c488b124..c85aaaa596b2c2d6960c99d53a91f226052773c7 100644 (file)
--- a/tests/head/mk-script.pl
+++ b/tests/head/mk-script.pl
@@ -120,11 +120,18 @@ sub spec_to_list ($$$)
       ++$i;
     }
 
+  my $n_fail = 0;
   foreach $i (@explicit_file, @maint_gen_file)
     {
-      die "$0: $i: generated test file name would be longer than 14 characters"
-       if (length ($i) > 14);
+      my $max_len = 14;
+      if (length ($i) > $max_len)
+       {
+         warn "$0: $i: generated test file name would be longer than"
+           . " $max_len characters\n";
+         ++$n_fail;
+       }
     }
+  exit (1) if $n_fail;
 
   my %h = (
     EXPLICIT => \@explicit_file,

diff --git a/tests/join/mk-script.pl b/tests/join/mk-script.pl
index 48b4b1db6f193d6c7729c3f5df1ec080c488b124..c85aaaa596b2c2d6960c99d53a91f226052773c7 100644 (file)
--- a/tests/join/mk-script.pl
+++ b/tests/join/mk-script.pl
@@ -120,11 +120,18 @@ sub spec_to_list ($$$)
       ++$i;
     }
 
+  my $n_fail = 0;
   foreach $i (@explicit_file, @maint_gen_file)
     {
-      die "$0: $i: generated test file name would be longer than 14 characters"
-       if (length ($i) > 14);
+      my $max_len = 14;
+      if (length ($i) > $max_len)
+       {
+         warn "$0: $i: generated test file name would be longer than"
+           . " $max_len characters\n";
+         ++$n_fail;
+       }
     }
+  exit (1) if $n_fail;
 
   my %h = (
     EXPLICIT => \@explicit_file,

diff --git a/tests/ls/mk-script.pl b/tests/ls/mk-script.pl
index 48b4b1db6f193d6c7729c3f5df1ec080c488b124..c85aaaa596b2c2d6960c99d53a91f226052773c7 100644 (file)
--- a/tests/ls/mk-script.pl
+++ b/tests/ls/mk-script.pl
@@ -120,11 +120,18 @@ sub spec_to_list ($$$)
       ++$i;
     }
 
+  my $n_fail = 0;
   foreach $i (@explicit_file, @maint_gen_file)
     {
-      die "$0: $i: generated test file name would be longer than 14 characters"
-       if (length ($i) > 14);
+      my $max_len = 14;
+      if (length ($i) > $max_len)
+       {
+         warn "$0: $i: generated test file name would be longer than"
+           . " $max_len characters\n";
+         ++$n_fail;
+       }
     }
+  exit (1) if $n_fail;
 
   my %h = (
     EXPLICIT => \@explicit_file,