From b4c7be0b2db0bfbac46c0af6301f508265295d02 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 15 Aug 2017 16:24:43 +0000
Subject: [PATCH] * Set exitcode on error usage

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

diff --git a/packages/fcl-fpcunit/src/consoletestrunner.pas b/packages/fcl-fpcunit/src/consoletestrunner.pas
index ceab91f6c2..dac53ce801 100644
--- a/packages/fcl-fpcunit/src/consoletestrunner.pas
+++ b/packages/fcl-fpcunit/src/consoletestrunner.pas
@@ -387,6 +387,8 @@ begin
   if HasOption('h', 'help') or ((ParamCount = 0) and (FRunMode<>rmAll)) then
     begin
     Usage;
+    if not HasOption('h','help') then
+      ExitCode:=1;
     Exit(False);
     end;
   //get the format parameter