diff options
| -rw-r--r-- | tests/cut/mk-script.pl | 6 | ||||
| -rw-r--r-- | tests/head/mk-script.pl | 6 | ||||
| -rw-r--r-- | tests/join/mk-script.pl | 6 | ||||
| -rw-r--r-- | tests/ls/mk-script.pl | 6 |
4 files changed, 8 insertions, 16 deletions
diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl index 295c24e14..f1a4fa40a 100644 --- a/tests/cut/mk-script.pl +++ b/tests/cut/mk-script.pl @@ -114,10 +114,8 @@ foreach $test_vector (@Test::t) my ($test_name, $flags, $in_spec, $expected, $e_ret_code) = @{$test_vector}; - my $h = spec_to_list ($in_spec, $test_name, 'in'); + my $in = spec_to_list ($in_spec, $test_name, 'in'); - my $in1 = "t$test_name.in1"; - my $in2 = "t$test_name.in2"; my $exp_name = "t$test_name.exp"; my $out = "t$test_name.out"; @@ -129,7 +127,7 @@ foreach $test_vector (@Test::t) my @srcdir_rel_in_file; my $f; - foreach $f (@{ $h->{ALL_FILES} }) + foreach $f (@{ $in->{ALL_FILES} }) { push (@srcdir_rel_in_file, "\$srcdir/$f") } diff --git a/tests/head/mk-script.pl b/tests/head/mk-script.pl index 295c24e14..f1a4fa40a 100644 --- a/tests/head/mk-script.pl +++ b/tests/head/mk-script.pl @@ -114,10 +114,8 @@ foreach $test_vector (@Test::t) my ($test_name, $flags, $in_spec, $expected, $e_ret_code) = @{$test_vector}; - my $h = spec_to_list ($in_spec, $test_name, 'in'); + my $in = spec_to_list ($in_spec, $test_name, 'in'); - my $in1 = "t$test_name.in1"; - my $in2 = "t$test_name.in2"; my $exp_name = "t$test_name.exp"; my $out = "t$test_name.out"; @@ -129,7 +127,7 @@ foreach $test_vector (@Test::t) my @srcdir_rel_in_file; my $f; - foreach $f (@{ $h->{ALL_FILES} }) + foreach $f (@{ $in->{ALL_FILES} }) { push (@srcdir_rel_in_file, "\$srcdir/$f") } diff --git a/tests/join/mk-script.pl b/tests/join/mk-script.pl index 295c24e14..f1a4fa40a 100644 --- a/tests/join/mk-script.pl +++ b/tests/join/mk-script.pl @@ -114,10 +114,8 @@ foreach $test_vector (@Test::t) my ($test_name, $flags, $in_spec, $expected, $e_ret_code) = @{$test_vector}; - my $h = spec_to_list ($in_spec, $test_name, 'in'); + my $in = spec_to_list ($in_spec, $test_name, 'in'); - my $in1 = "t$test_name.in1"; - my $in2 = "t$test_name.in2"; my $exp_name = "t$test_name.exp"; my $out = "t$test_name.out"; @@ -129,7 +127,7 @@ foreach $test_vector (@Test::t) my @srcdir_rel_in_file; my $f; - foreach $f (@{ $h->{ALL_FILES} }) + foreach $f (@{ $in->{ALL_FILES} }) { push (@srcdir_rel_in_file, "\$srcdir/$f") } diff --git a/tests/ls/mk-script.pl b/tests/ls/mk-script.pl index 295c24e14..f1a4fa40a 100644 --- a/tests/ls/mk-script.pl +++ b/tests/ls/mk-script.pl @@ -114,10 +114,8 @@ foreach $test_vector (@Test::t) my ($test_name, $flags, $in_spec, $expected, $e_ret_code) = @{$test_vector}; - my $h = spec_to_list ($in_spec, $test_name, 'in'); + my $in = spec_to_list ($in_spec, $test_name, 'in'); - my $in1 = "t$test_name.in1"; - my $in2 = "t$test_name.in2"; my $exp_name = "t$test_name.exp"; my $out = "t$test_name.out"; @@ -129,7 +127,7 @@ foreach $test_vector (@Test::t) my @srcdir_rel_in_file; my $f; - foreach $f (@{ $h->{ALL_FILES} }) + foreach $f (@{ $in->{ALL_FILES} }) { push (@srcdir_rel_in_file, "\$srcdir/$f") } |