// The contents of this file are subject to the Mozilla Public License
// Version 1.1 (the "License"); you may not use this file except in
// compliance with the License. You may obtain a copy of the License at
// http://www.mozilla.org/MPL/
//
// Software distributed under the License is distributed on an "AS IS"
// basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
// License for the specific language governing rights and limitations
// under the License.

program TylerTests;

uses
  AllSpecs,
  Forms,
  GuiTestRunner,
  JclDebug,
  SysUtils,
  TestFramework,
  TextTestRunner,
  Windows;

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'Tyler Tests';
  JclDebug.RemoveIgnoredException(EAbort);
  if (ParamCount > 0) and SameText(ParamStr(1), '/text') then
    TextTestRunner.RunRegisteredTests(rxbHaltOnFailures)
  else
  begin
    FreeConsole;
    GuiTestRunner.RunRegisteredTestsModeless;
  end;
  Application.Run;
end.