mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-17 19:43:20 -07:00
Code Issues Projects Releases Wiki Activity

Don't log unspecified options

Browse source 
Copied from Perforce
 Change: 20195
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1998-10-08 11:05:28 +01:00
parent 621f2b85c6
commit 8051b38fdb
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
mps/qa/test/script/logging
View file

@ -1,5 +1,5 @@
#!/usr/local/perl
# $HopeName: MMQA_harness!script:logging(trunk.5) $
# $HopeName: MMQA_harness!script:logging(trunk.6) $
#
# provides subroutines to help in creating test logs and
# reports
@ -81,7 +81,7 @@ sub dispopts {
print $log_test_opts;
foreach $key (sort values %qa_options) {
unless (exists $qa_unlogged_opts{$key}) {
if (defined &getoption($key) && !exists $qa_unlogged_opts{$key}) {
$val = &getoption($key);
$rel = "=";
write;
@ -156,7 +156,7 @@ $barl = "*********|10s******|30s******|1min*****|2min*****|5min*****|10min
#
$log_test_spec = "SPECIFIED RESULTS\n";
$log_test_opts = "MMQA SETTINGS\n";
$log_test_opts = "MMQA OPTIONS\n";
$log_test_params = "PARAMETER SETTINGS\n";
$log_test_res = "RESULTS\n";
$log_test_conc = "CONCLUSION\n";