|
@@ -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;
|
|
|
|
|