From df12dbb1b9d162f4a2e59ad9446ccc9efbd2a94e Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Wed, 7 Oct 1998 12:25:42 +0100
Subject: [PATCH] Log all mmqa options in test reports

Copied from Perforce
 Change: 20171
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/script/logging | 31 ++++++++++++++++++++++++++-----
 1 file changed, 26 insertions(+), 5 deletions(-)

diff --git a/mps/qa/test/script/logging b/mps/qa/test/script/logging
index e49fd7d9fcb..615d4e81651 100644
--- a/mps/qa/test/script/logging
+++ b/mps/qa/test/script/logging
@@ -1,5 +1,5 @@
 #!/usr/local/perl
-# $HopeName: MMQA_harness!script:logging(trunk.4) $
+# $HopeName: MMQA_harness!script:logging(trunk.5) $
 #
 # provides subroutines to help in creating test logs and
 # reports
@@ -7,6 +7,8 @@
 
 1;
 
+$: = " \n-\\/";
+
 @LOG_FILES = (STDOUT);
 
 #
@@ -37,6 +39,7 @@ sub describe_test {
   %keyrelations = %spec_rel;
   print $log_test_spec;
   &dispvals;
+  &dispopts;
   if (%parmdefs) {
    %keyvalues = %parmdefs;
    %keyrelations = ();
@@ -71,6 +74,21 @@ sub dispvals {
  }
 }
 
+sub dispopts {
+ local ($key, $rel, $val);
+
+ $~ = "LOGVALS";
+
+ print $log_test_opts;
+ foreach $key (sort values %qa_options) {
+  unless (exists $qa_unlogged_opts{$key}) {
+   $val = &getoption($key);
+   $rel = "=";
+   write;
+  }
+ }
+}
+
 sub displog {
  open(TESTLOG, $testlogfile);
  print $log_test_tran;
@@ -138,6 +156,7 @@ $barl = "*********|10s******|30s******|1min*****|2min*****|5min*****|10min
 #
 
 $log_test_spec   = "SPECIFIED RESULTS\n";
+$log_test_opts   = "MMQA SETTINGS\n";
 $log_test_params = "PARAMETER SETTINGS\n";
 $log_test_res    = "RESULTS\n";
 $log_test_conc   = "CONCLUSION\n";
@@ -145,20 +164,22 @@ $log_test_tran   = "TRANSCRIPT\n";
 $log_test_end    = "END OF TRANSCRIPT\n\n";
 
 format LOGHEAD =
-------------------------------------------------------------------------
-@<<<ED TEST @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+-----------------------------------------------------------------------------
+@<<<ED TEST @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $testconclusion, $testfile
 @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $testtimeline
 .
 
 format LOGVALS =
-  @<<<<<<<<< @< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+  @<<<<<<<<<<<<<<<<< @< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $key, $rel, $val
+~~                      ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+$val
 .
 
 format LOGCONC =
-  @<<<<<<<<<    @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+  @<<<<<<<<<<<<<<<<<    @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $testconclusion, $testconcreason
 
 .