From: Jim Meyering <jim@meyering.net>
Date: Sun, 15 Dec 1996 22:17:29 +0000 (+0000)
Subject: .
X-Git-Tag: FILEUTILS-3_14a~101
X-Git-Url: http://git.ipfire.org/gitweb/index.cgi?a=commitdiff_plain;h=f789ddbdda824c96a128bfaec0c1b2c67b3d2c78;p=thirdparty%2Fcoreutils.git

.
---

diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl
index bcff12cc69..0a87785124 100644
--- a/tests/cut/mk-script.pl
+++ b/tests/cut/mk-script.pl
@@ -52,7 +52,8 @@ sub spec_to_list ($$$)
   my $file_contents;
   foreach $file_contents (@content_string)
     {
-      my $gen_file = "t$test_name.$type$i";
+      my $suffix = (@content_string > 1 ? $i : '');
+      my $gen_file = "t$test_name.$type$suffix";
       push (@all_file, $gen_file);
       push (@gen_file, $gen_file);
       open (F, ">$gen_file") || die "$0: $gen_file: $!\n";
diff --git a/tests/head/mk-script.pl b/tests/head/mk-script.pl
index bcff12cc69..0a87785124 100644
--- a/tests/head/mk-script.pl
+++ b/tests/head/mk-script.pl
@@ -52,7 +52,8 @@ sub spec_to_list ($$$)
   my $file_contents;
   foreach $file_contents (@content_string)
     {
-      my $gen_file = "t$test_name.$type$i";
+      my $suffix = (@content_string > 1 ? $i : '');
+      my $gen_file = "t$test_name.$type$suffix";
       push (@all_file, $gen_file);
       push (@gen_file, $gen_file);
       open (F, ">$gen_file") || die "$0: $gen_file: $!\n";
diff --git a/tests/join/mk-script.pl b/tests/join/mk-script.pl
index bcff12cc69..0a87785124 100644
--- a/tests/join/mk-script.pl
+++ b/tests/join/mk-script.pl
@@ -52,7 +52,8 @@ sub spec_to_list ($$$)
   my $file_contents;
   foreach $file_contents (@content_string)
     {
-      my $gen_file = "t$test_name.$type$i";
+      my $suffix = (@content_string > 1 ? $i : '');
+      my $gen_file = "t$test_name.$type$suffix";
       push (@all_file, $gen_file);
       push (@gen_file, $gen_file);
       open (F, ">$gen_file") || die "$0: $gen_file: $!\n";
diff --git a/tests/ls/mk-script.pl b/tests/ls/mk-script.pl
index bcff12cc69..0a87785124 100644
--- a/tests/ls/mk-script.pl
+++ b/tests/ls/mk-script.pl
@@ -52,7 +52,8 @@ sub spec_to_list ($$$)
   my $file_contents;
   foreach $file_contents (@content_string)
     {
-      my $gen_file = "t$test_name.$type$i";
+      my $suffix = (@content_string > 1 ? $i : '');
+      my $gen_file = "t$test_name.$type$suffix";
       push (@all_file, $gen_file);
       push (@gen_file, $gen_file);
       open (F, ">$gen_file") || die "$0: $gen_file: $!\n";