Browse Source

* Do not run tests at once

michael 6 years ago
parent
commit
131c345931
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fpcunit/browsertestrunner.pas

+ 1 - 1
packages/fpcunit/browsertestrunner.pas

@@ -45,6 +45,7 @@ type
     Property OnRun : TNotifyEvent Read FOnRun Write FOnRun;
     Property OnRun : TNotifyEvent Read FOnRun Write FOnRun;
   end;
   end;
   TRunFormClass = class of TRunForm;
   TRunFormClass = class of TRunForm;
+
   { TTestRunner }
   { TTestRunner }
 
 
   TTestRunner = class(TBrowserApplication)
   TTestRunner = class(TBrowserApplication)
@@ -182,7 +183,6 @@ begin
     R.OnRun:=@DoRunAgain;
     R.OnRun:=@DoRunAgain;
     R.Initialize;
     R.Initialize;
     end;
     end;
-  RunTests;
   Terminate;
   Terminate;
 end;
 end;