* Set exitcode on error usage

git-svn-id: trunk@36918 -

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