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.