paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 00:50:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix detection of usage

Browse Source 
git-svn-id: trunk@36917 -
This commit is contained in:
michael 2017-08-15 16:22:21 +00:00
parent 1fa863721f
commit 33fea4f9e3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-fpcunit/src/consoletestrunner.pas
View File

@ -384,7 +384,7 @@ Function TTestRunner.ParseOptions : Boolean;
begin begin
Result:=True; Result:=True;
if HasOption('h', 'help') or ((ParamCount = 0) and not DefaultRunAllTests) then if HasOption('h', 'help') or ((ParamCount = 0) and (FRunMode<>rmAll)) then
begin begin
Usage; Usage;
Exit(False); Exit(False);