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

Copied from Perforce
 Change: 20277
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/script/commands/run | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/mps/qa/test/script/commands/run b/mps/qa/test/script/commands/run
index ac04e89756b..5364e8dea05 100644
--- a/mps/qa/test/script/commands/run
+++ b/mps/qa/test/script/commands/run
@@ -1,19 +1,21 @@
 #!/usr/local/bin/perl
-# $HopeName$
+# $HopeName: MMQA_harness!script:commands:run(trunk.2) $
 #
 # run tests interactively (allows for user input, immediate results,
-# &c, and give results in standard format)
+# &c, and give results in standard format, and mailing results)
 
 &options(
  "MPS_INCLUDE_DIR",
  "MPS_LINK_OBJ",
  "INTERFACE_VERSION",
- "PLATFORM"
+ "PLATFORM",
+ "LOG_DIR"
 );
 
 require "require";
 
 foreach $testfile (@qa_args) {
- &run_test($testfile, "yes", "results");
+ &run_test($testfile, "yes", "results", "$LOG_DIR/last.log");
+ &mailfile("$LOG_DIR/last.log", "MMQA-log: result of test $testfile");
 }