diff options
| -rw-r--r-- | tests/cut/mk-script.pl | 3 | ||||
| -rw-r--r-- | tests/head/mk-script.pl | 3 | ||||
| -rw-r--r-- | tests/join/mk-script.pl | 3 | ||||
| -rw-r--r-- | tests/ls/mk-script.pl | 3 |
4 files changed, 8 insertions, 4 deletions
diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl index bcff12cc6..0a8778512 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 bcff12cc6..0a8778512 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 bcff12cc6..0a8778512 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 bcff12cc6..0a8778512 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"; |