bekucera/coreutils
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/coreutils.git synced 2025-09-10 07:59:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jim Meyering
1997-02-01 16:44:15 +00:00
parent 67c5175138
commit 2e2fe82afe
4 changed files with 36 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
tests/cut/mk-script.pl
View File

@@ -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,

11
tests/head/mk-script.pl
View File

@@ -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,

11
tests/join/mk-script.pl
View File

@@ -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,

11
tests/ls/mk-script.pl
View File

@@ -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,