mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 08:15:53 +01:00
9f8d265fb7
+ now in Delphi you can user INDY or Synapse + added synapse as svn:external + TStompClient.Receive(ATimeout: Integer): IStompFrame; REALLY NEED REFACTORY
35 lines
609 B
ObjectPascal
35 lines
609 B
ObjectPascal
program TestStompClient;
|
|
{$IFDEF CONSOLE_TESTRUNNER}
|
|
{$APPTYPE CONSOLE}
|
|
{$ENDIF}
|
|
|
|
uses
|
|
Forms,
|
|
TestFramework,
|
|
GUITestRunner,
|
|
TextTestRunner,
|
|
TestStompClientU in 'TestStompClientU.pas';
|
|
|
|
{$R *.RES}
|
|
|
|
var
|
|
ExCode: Integer;
|
|
TestResult: TTestResult;
|
|
|
|
begin
|
|
ExCode := 0;
|
|
Application.Initialize;
|
|
if IsConsole then
|
|
begin
|
|
TestResult := TextTestRunner.RunRegisteredTests;
|
|
try
|
|
ExCode := TestResult.ErrorCount + TestResult.FailureCount;
|
|
finally
|
|
TestResult.Free;
|
|
end;
|
|
end
|
|
else
|
|
GUITestRunner.RunRegisteredTests;
|
|
Halt(ExCode);
|
|
end.
|