* support new execute errors

tests/utils/dbdigest.pp

@@ -33,6 +33,8 @@ Type
   stFailedToRun,
   stKnownRunProblem,
   stSuccessFullyRun,
+  stFailedExecuteCompiler,
+  stFailedExecuteTest,
   stSkippingGraphTest,
   stSkippingInteractiveTest,
   stSkippingKnownBug,
@@ -57,6 +59,8 @@ Const
     False, // stFailedToRun,
     True,  // stKnownRunProblem,
     True,  // stSuccessFullyRun,
+    False, // stFailedExecuteCompiler
+    False, // stFailedExecuteTest
     False, // stSkippingGraphTest,
     False, // stSkippingInteractiveTest,
     False, // stSkippingKnownBug,
@@ -76,6 +80,8 @@ Const
     False,  // stFailedToRun,
     False,  // stKnownRunProblem,
     False,  // stSuccessFullyRun,
+    False,  // stFailedExecuteCompiler
+    False,  // stFailedExecuteTest
     True,   // stSkippingGraphTest,
     True,   // stSkippingInteractiveTest,
     True,   // stSkippingKnownBug,
@@ -95,6 +101,8 @@ Const
     False,  // stFailedToRun,
     False,  // stKnownRunProblem,
     False,  // stSuccessFullyRun,
+    False,  // stFailedExecuteCompiler
+    False,  // stFailedExecuteTest
     False,  // stSkippingGraphTest,
     False,  // stSkippingInteractiveTest,
     False,  // stSkippingKnownBug,
@@ -114,6 +122,8 @@ Const
     failed_to_run ,
     known_problem ,
     successfully_run ,
+    failed_to_execute_compiler,
+    failed_to_execute_test,
     skipping_graph_test ,
     skipping_interactive_test ,
     skipping_known_bug ,
@@ -133,6 +143,8 @@ Const
     'TU_FAILEDTORUN',
     'TU_KNOWNPROBLEM',
     'TU_SUCCESSFULLYRUN',
+    'TU_FAILEDTOCOMPILE',   // Combined with compiler failures
+    'TU_FAILEDTORUN',       // Combined with compiler failures  
     'TU_SKIPPEDGRAPHTEST',
     'TU_SKIPPEDINTERACTIVETEST',
     'TU_KNOWNBUG',
@@ -475,7 +487,10 @@ end.
 
 {
   $Log$
-  Revision 1.11  2003-10-17 08:08:07  florian
+  Revision 1.12  2004-04-29 22:03:18  peter
+    * support new execute errors
+
+  Revision 1.11  2003/10/17 08:08:07  florian
     * cosmetic fix in console output
 
   Revision 1.10  2003/10/15 21:45:50  florian

tests/utils/digest.pp

@@ -54,6 +54,7 @@ begin
   should_be_run:=next_should_be_run;
   if next_should_be_run and
      (pos(failed_to_run,st)<>1) and
+     (pos(failed_to_execute_test,st)<>1) and
      (pos(successfully_run,st)<>1) and
      (pos(skipping_known_bug,st)<>1) and
      (pos(skipping_run_test,st)<>1) and
@@ -62,7 +63,7 @@ begin
       Writeln('No run found for "',prevline,'"');
     end;
   next_should_be_run:=false;
-  if pos(failed_to_compile,st) = 1 then
+  if (pos(failed_to_compile,st)=1) or (pos(failed_to_execute_compiler,st)=1) then
     begin
       inc(failed_to_compile_count);
     end
@@ -79,7 +80,7 @@ begin
       inc(successfully_compiled_count);
       next_should_be_run:=true;
     end
-  else if pos(failed_to_run,st)=1 then
+  else if (pos(failed_to_run,st)=1) or (pos(failed_to_execute_test,st)=1) then
     begin
       inc(failed_to_run_count);
       if not should_be_run then
@@ -240,7 +241,10 @@ end.
 
 {
   $Log$
-  Revision 1.5  2003-10-31 16:51:46  peter
+  Revision 1.6  2004-04-29 22:03:18  peter
+    * support new execute errors
+
+  Revision 1.5  2003/10/31 16:51:46  peter
     * skip known bug for run
 
   Revision 1.4  2003/10/13 14:19:02  peter