paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 10:50:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpcunit: consoletestrunner returns exitcode 1, if there are errors or failures.

Browse Source 
git-svn-id: trunk@10567 -
This commit is contained in:
vincents 2007-02-02 09:27:41 +00:00
parent ea88e8a24f
commit fece699695
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpcunit/console/consoletestrunner.pas
View File

@ -160,7 +160,6 @@ var
WriteXMLFile(XMLResultsWriter.Document, output);
finally
XMLResultsWriter.Free;
testResult.Free;
end;
end;
@ -177,7 +176,6 @@ var
PlainResultsWriter.WriteResult(testResult);
finally
PlainResultsWriter.Free;
testResult.Free;
end;
end;
{$ENDIF}
@ -197,9 +195,12 @@ begin
else
doXMLTestRun(aTest);
end;
if testResult.NumberOfErrors+testResult.NumberOfFailures>0 then
ExitCode := 1;
finally
if ShowProgress then
progressWriter.Free;
testResult.Free;
end;
end;

2
test/bugtestcase.pas
View File

@ -23,7 +23,7 @@ unit BugTestCase;
interface
uses
Classes, SysUtils, Math, process, fileutil, fpcunit, testutils, testregistry,
Classes, SysUtils, Math, process, fileutil, fpcunit, testregistry,
TestGlobals;
type