mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-30 02:33:03 -07:00
Code Issues Projects Releases Wiki Activity

Log all mmqa options in test reports

Browse source 
Copied from Perforce
 Change: 20171
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1998-10-07 12:25:42 +01:00
parent da9f0fc744
commit df12dbb1b9
1 changed files with 26 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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
.