paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 06:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* support new execute errors

Browse Source
This commit is contained in:
peter 2004-04-29 22:03:18 +00:00
parent f68712cc86
commit c64028d098
2 changed files with 23 additions and 4 deletions

17
tests/utils/dbdigest.pp
View File

@ -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

10
tests/utils/digest.pp
View File

@ -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