.

diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl
index bcff12c..0a87785 100644 (file)
--- 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 bcff12c..0a87785 100644 (file)
--- 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 bcff12c..0a87785 100644 (file)
--- 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 bcff12c..0a87785 100644 (file)
--- 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";