Developer
29 lines
506 B
ObjectPascal
29 lines
506 B
ObjectPascal
program TestRunner;
|
|
|
|
uses
|
|
System.SysUtils, TestFramework, GUITestRunner, TextTestRunner, uUnitTests;
|
|
|
|
{$R *.RES}
|
|
|
|
begin
|
|
Application.Title := '测试运行器';
|
|
|
|
// 运行所有测试
|
|
if ParamCount > 0 then
|
|
begin
|
|
if SameText(ParamStr(1), '-console') then
|
|
begin
|
|
TextTestRunner.RunRegisteredTests;
|
|
end
|
|
else
|
|
begin
|
|
GUITestRunner.RunRegisteredTests;
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
// 默认使用GUI测试运行器
|
|
GUITestRunner.RunRegisteredTests;
|
|
end;
|
|
end.
|