From: Jim Meyering <jim@meyering.net>
Date: Fri, 4 Jul 1997 08:09:15 +0000 (+0000)
Subject: (validate): Create test files in $(srcdir), not in build dir.
X-Git-Tag: SH-UTILS-1_16c~122
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=677ddac43253e0ef78825fe05d7b83aa37966dcf;p=thirdparty%2Fcoreutils.git

(validate): Create test files in $(srcdir), not in build dir.
---

diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl
index eb022d3246..adfba98d2f 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;
diff --git a/tests/head/mk-script.pl b/tests/head/mk-script.pl
index eb022d3246..adfba98d2f 100644
--- a/tests/head/mk-script.pl
+++ b/tests/head/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;
diff --git a/tests/join/mk-script.pl b/tests/join/mk-script.pl
index eb022d3246..adfba98d2f 100644
--- a/tests/join/mk-script.pl
+++ b/tests/join/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;
diff --git a/tests/ls/mk-script.pl b/tests/ls/mk-script.pl
index eb022d3246..adfba98d2f 100644
--- a/tests/ls/mk-script.pl
+++ b/tests/ls/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;