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

.

Browse Source
This commit is contained in:
Jim Meyering
1996-12-15 20:29:09 +00:00
parent 8fd3e8664b
commit 20b960db10
4 changed files with 8 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -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")
}

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

@@ -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")
}

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

@@ -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")
}

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

@@ -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")
}