Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Observe defaultRunAllTests again

git-svn-id: trunk@36919 -
michael 8 years ago
parent
b4c7be0b2d
commit
d0209031d2
1 changed files with 2 additions and 0 deletions
Split View Show Diff Stats
  1. 2 0
      packages/fcl-fpcunit/src/consoletestrunner.pas

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

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