diff options
| author | Jim Meyering <jim@meyering.net> | 2005-01-13 22:13:53 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 2005-01-13 22:13:53 +0000 |
| commit | fe44a6d9889b45a4c704eaccc4a3a8ed76b2bbee (patch) | |
| tree | 5950976d944e03d2d5bcc76f226af7a5ad9a1ff7 | |
| parent | 865844251fc90ed7bd0b80a499366bc8eab6ff0e (diff) | |
| download | coreutils-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.pm | 15 |
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. |