{**********************************************************************
    Copyright(c) 2016 pda <pda2@yandex.ru>

    See the file COPYING.FPC, included in this distribution,
    for details about the copyright.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

 **********************************************************************}
program fp_cross_tests;

{$I fpc.inc}

uses
  {$IFDEF UNIX}
  cwstring,
  {$ENDIF UNIX}
  {$IFDEF CONSOLE_TESTRUNNER}
  Classes,
  ConsoleTestRunner,
  {$ELSE}
  Interfaces,
  Forms,
  GuiTestRunner,
  {$ENDIF CONSOLE_TESTRUNNER}
  Test.SysUtils.TGuidHelper, Test.SysUtils.TSingleHelper,
  Test.SysUtils.TDoubleHelper, Test.SysUtils.TExtendedHelper;

{$IFDEF CONSOLE_TESTRUNNER}
var
  Application: TTestRunner;
{$ENDIF}

begin
  {$IFDEF CONSOLE_TESTRUNNER}
  Application := TTestRunner.Create(nil);
  {$ENDIF}
  Application.Initialize;
  Application.Title:='FPC/Delphi Cross Tests';
  Application.Run;
  {$IFDEF CONSOLE_TESTRUNNER}
  Application.Free;
  {$ENDIF}
end.
