diff options
| author | Jim Meyering <jim@meyering.net> | 1997-07-04 08:09:15 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 1997-07-04 08:09:15 +0000 |
| commit | 677ddac43253e0ef78825fe05d7b83aa37966dcf (patch) | |
| tree | bd05062d970c0518206d71a085788d4dc2022e83 /tests/cut | |
| parent | 93b02c52897d517230e2f1dc059e7445a902c47b (diff) | |
| download | coreutils-677ddac43253e0ef78825fe05d7b83aa37966dcf.tar.xz | |
(validate): Create test files in $(srcdir), not in build dir.
Diffstat (limited to 'tests/cut')
| -rw-r--r-- | tests/cut/mk-script.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl index eb022d324..adfba98d2 100644 --- a/tests/cut/mk-script.pl +++ b/tests/cut/mk-script.pl @@ -14,6 +14,8 @@ use POSIX qw (assert); BEGIN { push @INC, '@srcdir@' if '@srcdir@' ne '.'; } use Test; +my $srcdir = '@srcdir@'; + sub validate { my %seen; @@ -114,7 +116,7 @@ sub spec_to_list ($$$) my $suffix = (@content_string > 1 ? $i : ''); my $maint_gen_file = "$test_name$type$suffix"; push (@maint_gen_file, $maint_gen_file); - open (F, ">$maint_gen_file") || die "$0: $maint_gen_file: $!\n"; + open (F, ">$srcdir/$maint_gen_file") || die "$0: $maint_gen_file: $!\n"; print F $file_contents; close (F) || die "$0: $maint_gen_file: $!\n"; ++$i; |