mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-08 23:31:35 -07:00
Code Issues Projects Releases Wiki Activity

Record test results in a file

Browse source 
Copied from Perforce
 Change: 20279
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1998-10-26 15:21:44 +00:00
parent f70c0f6be0
commit be5fc9f944
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
mps/qa/test/script/runtest
View file

@ -1,5 +1,5 @@
#!/usr/local/perl
# $HopeName: MMQA_harness!script:runtest(trunk.7) $
# $HopeName: MMQA_harness!script:runtest(trunk.8) $
#
# provides subroutines to run tests and testsets
#
@ -60,7 +60,7 @@ sub clib {
}
sub run_test {
local ($testfile, $interact, $report_type) = @_;
local ($testfile, $interact, $report_type, $logfile) = @_;
&readheader($testfile, 1);
@ -75,7 +75,10 @@ sub run_test {
}
$testlogfile = "$obj_dir/tmp_log.log";
&run_exe($objfile, $interact, $stdin);
open(LOG_RESULTS, ">".$logfile);
&describe_test($report_type);
&describe_test($report_type, LOG_RESULTS);
close(LOG_RESULTS);
last;
};