summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Meyering <jim@meyering.net>2005-01-13 22:13:53 +0000
committerJim Meyering <jim@meyering.net>2005-01-13 22:13:53 +0000
commitfe44a6d9889b45a4c704eaccc4a3a8ed76b2bbee (patch)
tree5950976d944e03d2d5bcc76f226af7a5ad9a1ff7
parent865844251fc90ed7bd0b80a499366bc8eab6ff0e (diff)
downloadcoreutils-fe44a6d9889b45a4c704eaccc4a3a8ed76b2bbee.tar.xz
(run_tests): Add code (if-0'd out) to detect
names of temporary files that would clash on 8.3 file systems.
-rw-r--r--tests/Fetish.pm15
1 files changed, 14 insertions, 1 deletions
diff --git a/tests/Fetish.pm b/tests/Fetish.pm
index 393858336..8e4a0260d 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.16 $ ') =~ tr/[0-9].//cd;
+($VERSION = '$Revision: 1.17 $ ') =~ tr/[0-9].//cd;
@EXPORT = qw (run_tests);
my $debug = $ENV{DEBUG};
@@ -204,6 +204,7 @@ sub run_tests ($$$$$)
# Verify that test names are distinct.
my $bad_test_name = 0;
my %seen;
+ my %seen_8dot3;
my $t;
foreach $t (@$t_spec)
{
@@ -215,6 +216,18 @@ sub run_tests ($$$$$)
}
$seen{$test_name} = 1;
+ if (0)
+ {
+ my $t8 = lc substr $test_name, 0, 8;
+ if ($seen_8dot3{$t8})
+ {
+ warn "$program_name: 8.3 test name conflict: "
+ . "$test_name, $seen_8dot3{$t8}\n";
+ $bad_test_name = 1;
+ }
+ $seen_8dot3{$t8} = $test_name;
+ }
+
# 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.