mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 00:05:53 +01:00
32 lines
641 B
ObjectPascal
32 lines
641 B
ObjectPascal
program TestStompClient;
|
|
{$IFDEF CONSOLE_TESTRUNNER}
|
|
{$APPTYPE CONSOLE}
|
|
{$ENDIF}
|
|
|
|
uses
|
|
Forms,
|
|
TestFramework,
|
|
GUITestRunner,
|
|
TextTestRunner,
|
|
TestStompClientU in 'TestStompClientU.pas',
|
|
HudsonTestRunner in
|
|
'C:\Program Files\Embarcadero\RAD Studio\7.0\source\dUnit\Contrib\HudsonReporting\HudsonTestRunner.pas';
|
|
{$R *.RES}
|
|
|
|
var
|
|
ExCode: Integer;
|
|
|
|
begin
|
|
Application.Initialize;
|
|
if IsConsole then
|
|
with HudsonTestRunner.RunRegisteredTests do
|
|
begin
|
|
ExCode := THudsonTestListener.GetErrorCount;
|
|
Free
|
|
end
|
|
else
|
|
GUITestRunner.RunRegisteredTests;
|
|
Halt(ExCode);
|
|
|
|
end.
|