Bladeren bron

* Do not run tests at once

michael 6 jaren geleden
bovenliggende
commit
131c345931
1 gewijzigde bestanden met toevoegingen van 1 en 1 verwijderingen
  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;