paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:29:20 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/utils/dbdigest.pp
View File

@ -33,6 +33,8 @@ Type
stFailedToRun, stFailedToRun,
stKnownRunProblem, stKnownRunProblem,
stSuccessFullyRun, stSuccessFullyRun,
stFailedExecuteCompiler,
stFailedExecuteTest,
stSkippingGraphTest, stSkippingGraphTest,
stSkippingInteractiveTest, stSkippingInteractiveTest,
stSkippingKnownBug, stSkippingKnownBug,
@ -57,6 +59,8 @@ Const
False, // stFailedToRun, False, // stFailedToRun,
True, // stKnownRunProblem, True, // stKnownRunProblem,
True, // stSuccessFullyRun, True, // stSuccessFullyRun,
False, // stFailedExecuteCompiler
False, // stFailedExecuteTest
False, // stSkippingGraphTest, False, // stSkippingGraphTest,
False, // stSkippingInteractiveTest, False, // stSkippingInteractiveTest,
False, // stSkippingKnownBug, False, // stSkippingKnownBug,
@ -76,6 +80,8 @@ Const
False, // stFailedToRun, False, // stFailedToRun,
False, // stKnownRunProblem, False, // stKnownRunProblem,
False, // stSuccessFullyRun, False, // stSuccessFullyRun,
False, // stFailedExecuteCompiler
False, // stFailedExecuteTest
True, // stSkippingGraphTest, True, // stSkippingGraphTest,
True, // stSkippingInteractiveTest, True, // stSkippingInteractiveTest,
True, // stSkippingKnownBug, True, // stSkippingKnownBug,
@ -95,6 +101,8 @@ Const
False, // stFailedToRun, False, // stFailedToRun,
False, // stKnownRunProblem, False, // stKnownRunProblem,
False, // stSuccessFullyRun, False, // stSuccessFullyRun,
False, // stFailedExecuteCompiler
False, // stFailedExecuteTest
False, // stSkippingGraphTest, False, // stSkippingGraphTest,
False, // stSkippingInteractiveTest, False, // stSkippingInteractiveTest,
False, // stSkippingKnownBug, False, // stSkippingKnownBug,
@ -114,6 +122,8 @@ Const
failed_to_run , failed_to_run ,
known_problem , known_problem ,
successfully_run , successfully_run ,
failed_to_execute_compiler,
failed_to_execute_test,
skipping_graph_test , skipping_graph_test ,
skipping_interactive_test , skipping_interactive_test ,
skipping_known_bug , skipping_known_bug ,
@ -133,6 +143,8 @@ Const
'TU_FAILEDTORUN', 'TU_FAILEDTORUN',
'TU_KNOWNPROBLEM', 'TU_KNOWNPROBLEM',
'TU_SUCCESSFULLYRUN', 'TU_SUCCESSFULLYRUN',
'TU_FAILEDTOCOMPILE', // Combined with compiler failures
'TU_FAILEDTORUN', // Combined with compiler failures
'TU_SKIPPEDGRAPHTEST', 'TU_SKIPPEDGRAPHTEST',
'TU_SKIPPEDINTERACTIVETEST', 'TU_SKIPPEDINTERACTIVETEST',
'TU_KNOWNBUG', 'TU_KNOWNBUG',
@ -475,7 +487,10 @@ end.
{ {
$Log$ $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 * cosmetic fix in console output
Revision 1.10 2003/10/15 21:45:50 florian 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; should_be_run:=next_should_be_run;
if next_should_be_run and if next_should_be_run and
(pos(failed_to_run,st)<>1) and (pos(failed_to_run,st)<>1) and
(pos(failed_to_execute_test,st)<>1) and
(pos(successfully_run,st)<>1) and (pos(successfully_run,st)<>1) and
(pos(skipping_known_bug,st)<>1) and (pos(skipping_known_bug,st)<>1) and
(pos(skipping_run_test,st)<>1) and (pos(skipping_run_test,st)<>1) and
@ -62,7 +63,7 @@ begin
Writeln('No run found for "',prevline,'"'); Writeln('No run found for "',prevline,'"');
end; end;
next_should_be_run:=false; 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 begin
inc(failed_to_compile_count); inc(failed_to_compile_count);
end end
@ -79,7 +80,7 @@ begin
inc(successfully_compiled_count); inc(successfully_compiled_count);
next_should_be_run:=true; next_should_be_run:=true;
end 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 begin
inc(failed_to_run_count); inc(failed_to_run_count);
if not should_be_run then if not should_be_run then
@ -240,7 +241,10 @@ end.
{ {
$Log$ $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 * skip known bug for run
Revision 1.4 2003/10/13 14:19:02 peter Revision 1.4 2003/10/13 14:19:02 peter