commit 65115e7095e1232e590c8920e7f828706a67fa4a
author Paul Smith <psmith@gnu.org> Mon Apr 04 01:16:13 2016 -0400
committer Paul Smith <psmith@gnu.org> Mon Apr 04 01:38:37 2016 -0400
tree 413a8dc1df268f4d1f636c649ceca47f9de1e4d6
parent 75dd0bd8bc045493550841d540992049458b81c3

* tests/run_make_tests.pl: Add file/lineno info to .run file.

tests/run_make_tests.pl

diff --git a/tests/run_make_tests.pl b/tests/run_make_tests.pl
index 7005f10..916f346 100644
--- a/tests/run_make_tests.pl
+++ b/tests/run_make_tests.pl
@@ -140,6 +140,7 @@
 sub run_make_test
 {
   local ($makestring, $options, $answer, $err_code, $timeout) = @_;
+  my @call = caller;
 
   # If the user specified a makefile string, create a new makefile to contain
   # it.  If the first value is not defined, use the last one (if there is
@@ -171,7 +172,7 @@
   }
 
   run_make_with_options($makefile, $options, &get_logfile(0),
-                        $err_code, $timeout);
+                        $err_code, $timeout, @call);
   &compare_output($answer, &get_logfile(1));
 
   $old_makefile = $makefile;
@@ -180,7 +181,8 @@
 
 # The old-fashioned way...
 sub run_make_with_options {
-  local ($filename,$options,$logname,$expected_code,$timeout) = @_;
+  my ($filename,$options,$logname,$expected_code,$timeout,@call) = @_;
+  @call = caller unless @call;
   local($code);
   local($command) = $make_path;
 
@@ -231,7 +233,11 @@
     $command .= " $options";
   }
 
-  $command_string = "$command\n";
+  $command_string = "";
+  if (@call) {
+      $command_string = "#$call[1]:$call[2]\n";
+  }
+  $command_string .= "$command\n";
 
   if ($valgrind) {
     print VALGRIND "\n\nExecuting: $command\n";