From fbdc17a9634629a22ec48a7ced4bdff353c8c620 Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Wed, 17 Dec 1997 10:26:21 +0000
Subject: [PATCH] Remove minor bugs

Copied from Perforce
 Change: 19115
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/script/runtest | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/mps/qa/test/script/runtest b/mps/qa/test/script/runtest
index 69c55b4d952..899c775c400 100644
--- a/mps/qa/test/script/runtest
+++ b/mps/qa/test/script/runtest
@@ -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);