mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-16 16:20:40 -08:00
Code Issues Projects Releases Wiki Activity

Remove minor bugs

Browse source 
Copied from Perforce
 Change: 19115
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1997-12-17 10:26:21 +00:00
parent 1b2a326fbb
commit fbdc17a963
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -85,6 +85,7 @@ sub run_from_testset {
&readheader($testfile);
unless ($test_header{"language"} eq "c") {
&logcomment("Skipping test $testfile: don't know how to run it.");
$testsetresults{$testfile}="/";
} else {
$linkfiles = $test_header{"link"};
$objfile = "$obj_dir/tmp_test";
@ -92,12 +93,18 @@ sub run_from_testset {
unless (&compile_and_link($testfile, $objfile, $linkfiles)) {
&logcomment("Compilation failed on $testfile.");
$testsetresults{$testfile}="C";
} else {
&run_exe($objfile, "no");
&describe_test("summary");
&describe_test("summary", LOG_SUMMARY);
&describe_test("results", LOG_RESULTS);
&describe_test("full", LOG_FULL);
if ($testconclusion eq "PASS") {
$testsetresults{$testfile}=".";
} else {
$testsetresults{$testfile}="*";
}
}
}
}
@ -110,6 +117,8 @@ sub run_testset {
&ensuredir($LOG_DIR);
%testsetresults = ();
open(LOG_SUMMARY, ">".$logsummfile);
open(LOG_RESULTS, ">".$logresfile);
open(LOG_FULL, ">".$logfullfile);