Преглед на файлове

* Do not run tests at once

michael преди 6 години
родител
ревизия
131c345931
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  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;
   end;
   TRunFormClass = class of TRunForm;
+
   { TTestRunner }
 
   TTestRunner = class(TBrowserApplication)
@@ -182,7 +183,6 @@ begin
     R.OnRun:=@DoRunAgain;
     R.Initialize;
     end;
-  RunTests;
   Terminate;
 end;