Quellcode durchsuchen

* Observe defaultRunAllTests again

git-svn-id: trunk@36919 -
michael vor 8 Jahren
Ursprung
Commit
d0209031d2
1 geänderte Dateien mit 2 neuen und 0 gelöschten Zeilen
  1. 2 0
      packages/fcl-fpcunit/src/consoletestrunner.pas

+ 2 - 0
packages/fcl-fpcunit/src/consoletestrunner.pas

@@ -497,6 +497,8 @@ var
 begin
   Terminate;
   FormatParam := DefaultFormat;
+  If DefaultRunAllTests then
+    FRunMode:=rmAll;
   S := CheckOptions(GetShortOpts, LongOpts);
   if (S <> '') then
     begin