From be5fc9f9448f441ea478201c8db4e1fd99b3bb55 Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Mon, 26 Oct 1998 15:21:44 +0000
Subject: [PATCH] Record test results in a file

Copied from Perforce
 Change: 20279
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/script/runtest | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/mps/qa/test/script/runtest b/mps/qa/test/script/runtest
index b6767415c10..65aba72ac2a 100644
--- a/mps/qa/test/script/runtest
+++ b/mps/qa/test/script/runtest
@@ -1,5 +1,5 @@
 #!/usr/local/perl
-# $HopeName: MMQA_harness!script:runtest(trunk.7) $
+# $HopeName: MMQA_harness!script:runtest(trunk.8) $
 #
 # provides subroutines to run tests and testsets
 #
@@ -60,7 +60,7 @@ sub clib {
 }
 
 sub run_test {
- local ($testfile, $interact, $report_type) = @_;
+ local ($testfile, $interact, $report_type, $logfile) = @_;
 
  &readheader($testfile, 1);
 
@@ -75,7 +75,10 @@ sub run_test {
    }
    $testlogfile = "$obj_dir/tmp_log.log";
    &run_exe($objfile, $interact, $stdin);
+   open(LOG_RESULTS, ">".$logfile);
    &describe_test($report_type);
+   &describe_test($report_type, LOG_RESULTS);
+   close(LOG_RESULTS);
    last;
   };