(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 eb022d32463a7ff681808fbdcb53352347bd43bd..adfba98d2f9acbae7841213c7f638d3b83c2f9d1 100644 (file)
--- 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 eb022d32463a7ff681808fbdcb53352347bd43bd..adfba98d2f9acbae7841213c7f638d3b83c2f9d1 100644 (file)
--- 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 eb022d32463a7ff681808fbdcb53352347bd43bd..adfba98d2f9acbae7841213c7f638d3b83c2f9d1 100644 (file)
--- 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 eb022d32463a7ff681808fbdcb53352347bd43bd..adfba98d2f9acbae7841213c7f638d3b83c2f9d1 100644 (file)
--- 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;