CC-tea/coreutils
1
0
Fork 0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-02-12 18:32:08 +02:00
Code Issues Projects Releases Wiki Activity

(validate): Add code (if-0'd out) to detect

Browse Source 
names of temporary files that would clash on 8.3 file systems.
This commit is contained in:
Jim Meyering
2005-01-13 22:16:29 +00:00
parent c7efc489f3
commit d5a5cf8f9d
1 changed files with 21 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
tests/mk-script
View File

@@ -10,7 +10,7 @@ require 5.002;
use strict;
use POSIX qw (assert);
(my $program_name = $0) =~ s|.*/||;
(my $ME = $0) =~ s|.*/||;
BEGIN { push @INC, '.' if '.' ne '.'; }
use Test;
@@ -20,6 +20,9 @@ my $srcdir = shift;
sub validate
{
my %seen;
my %seen_8dot3;
my $bad_test_name;
my $test_vector;
foreach $test_vector (Test::test_vector ())
{
@@ -34,7 +37,22 @@ sub validate
die "$0: duplicate test name \`$test_name'\n"
if (defined $seen{$test_name});
$seen{$test_name} = 1;
if (0)
{
my $t8 = lc substr $test_name, 0, 8;
if ($seen_8dot3{$t8})
{
warn "$ME: 8.3 test name conflict: "
. "$test_name, $seen_8dot3{$t8}\n";
$bad_test_name = 1;
}
$seen_8dot3{$t8} = $test_name;
}
}
$bad_test_name
and exit 1;
}
# Given a spec for the input file(s) or expected output file of a single
@@ -216,7 +234,7 @@ sub wrap
print <<EOF1;
#! /bin/sh
# This script was generated automatically by $program_name.
# This script was generated automatically by $ME.
case \$# in
0\) xx='$xx';;
*\) xx="\$1";;
@@ -283,7 +301,7 @@ EOF1
my $env = $Test::env{$test_name} || $Test::env_default || [''];
@$env == 1
or die "$program_name: unexpected environment: @$env\n";
or die "$ME: unexpected environment: @$env\n";
$env = $env->[0];
my $env_prefix = ($env ? "$env " : '');