From cf3a6f7638a772a1929e42d14e88a049cb10495c Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Sun, 13 May 2001 15:22:23 +0000
Subject: (run_tests): Fail if any test name is longer than 12 bytes.

---
 tests/Fetish.pm | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

(limited to 'tests/Fetish.pm')

diff --git a/tests/Fetish.pm b/tests/Fetish.pm
index 4dffeec1f..cdd09fa18 100644
--- a/tests/Fetish.pm
+++ b/tests/Fetish.pm
@@ -12,7 +12,7 @@ use FileHandle;
 use File::Compare qw(compare);
 
 @ISA = qw(Exporter);
-($VERSION = '$Revision: 1.10 $ ') =~ tr/[0-9].//cd;
+($VERSION = '$Revision: 1.11 $ ') =~ tr/[0-9].//cd;
 @EXPORT = qw (run_tests);
 
 my $debug = $ENV{DEBUG};
@@ -189,7 +189,7 @@ sub run_tests ($$$$$)
   # FIXME
 
   # Verify that test names are distinct.
-  my $found_duplicate = 0;
+  my $bad_test_name = 0;
   my %seen;
   my $t;
   foreach $t (@$t_spec)
@@ -198,11 +198,20 @@ sub run_tests ($$$$$)
       if ($seen{$test_name})
 	{
 	  warn "$program_name: $test_name: duplicate test name\n";
-	  $found_duplicate = 1;
+	  $bad_test_name = 1;
 	}
       $seen{$test_name} = 1;
+
+      # The test name may be no longer than 12 bytes,
+      # so that we can add a two-byte suffix without exceeding
+      # the maximum of 14 imposed on some old file systems.
+      if (14 < (length $test_name) + 2)
+	{
+	  warn "$program_name: $test_name: test name is too long (> 12)\n";
+	  $bad_test_name = 1;
+	}
     }
-  return 1 if $found_duplicate;
+  return 1 if $bad_test_name;
 
   # FIXME check exit status
   system ($prog, '--version') if $verbose;
-- 
cgit v1.2.3-70-g09d2