From 33fea4f9e347e1bc5413c1823fb74a49205ad361 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 15 Aug 2017 16:22:21 +0000
Subject: [PATCH] * Fix detection of usage

git-svn-id: trunk@36917 -
---
 packages/fcl-fpcunit/src/consoletestrunner.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-fpcunit/src/consoletestrunner.pas b/packages/fcl-fpcunit/src/consoletestrunner.pas
index 95f457172d..ceab91f6c2 100644
--- a/packages/fcl-fpcunit/src/consoletestrunner.pas
+++ b/packages/fcl-fpcunit/src/consoletestrunner.pas
@@ -384,7 +384,7 @@ Function TTestRunner.ParseOptions : Boolean;
 
 begin
   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
     Usage;
     Exit(False);