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

New unit

Browse source 
produce logs and results in standard formats

Copied from Perforce
 Change: 18980
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1997-11-12 16:36:16 +00:00
parent 027769d980
commit de0dcf375d
1 changed files with 88 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

88
mps/qa/test/script/logging Normal file
View file

@ -0,0 +1,88 @@
#!/usr/local/perl
#
# provides subroutines to help in creating test logs and
# reports
#
1;
#
# &describe_test(report_type)
#
# prints out report on a test. report_type is one of:
# full: everything
# result: test, spec output, results, conclusion
#
sub describe_test {
local ($report) = @_;
$~ = "LOGHEAD";
write;
%keyvalues = %test_header;
%keyrelations = ();
&dispvals;
%keyvalues = %spec_output;
%keyrelations = %spec_rel;
print $log_test_spec;
&dispvals;
%keyvalues = %real_output;
%keyrelations = ();
print $log_test_res;
&dispvals;
print $log_test_conc;
$~ = "LOGCONC";
write;
if ($report eq "full") {
&displog;
}
}
sub dispvals {
local ($key, $rel, $val);
$~ = "LOGVALS";
foreach $key (sort keys %keyvalues) {
$val = $keyvalues{$key};
$rel = ($keyrelations{$key} || "=");
write;
}
}
sub displog {
open(TESTLOG, $testlogfile);
print $log_test_tran;
while ($line = <TESTLOG>) {
print $line;
}
print $log_test_end;
}
#
# what the output looks like:
#
$log_test_spec = "SPECIFIED RESULTS\n";
$log_test_res = "RESULTS\n";
$log_test_conc = "CONCLUSION\n";
$log_test_tran = "TRANSCRIPT\n";
$log_test_end = "END OF TRANSCRIPT\n\n";
format LOGHEAD =
------------------------------------------------------------------------
@<<<ED TEST @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$testconclusion, $testfile
.
format LOGVALS =
@<<<<<<<<< @< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$key, $rel, $val
.
format LOGCONC =
@<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$testconclusion, $testconcreason
.