Browse Source

* Observe defaultRunAllTests again

git-svn-id: trunk@36919 -
michael 8 năm trước cách đây
mục cha
commit
d0209031d2
1 tập tin đã thay đổi với 2 bổ sung0 xóa
  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