financetest.dpr

天翔财务系统刚获得

//{$DEFINE DUNIT_CONSOLE_MODE}

program FinanceTest;

uses
  SysUtils,
  TestFramework,
  TestExtensions,
  GUITestRunner,
  TextTestRunner,
  FAccountItemTest in 'FAccountItemTest.pas',
  Account in '..\..\Source\Common\Account.PAS',
  FAccessDBTest in 'FAccessDBTest.pas',
  AccessDB in '..\..\Source\Common\AccessDB.PAS',
  AccountCode in '..\..\Source\Common\AccountCode.PAS',
  FAccountCodeTest in 'FAccountCodeTest.pas',
  ParseExpression in '..\..\Source\ParseServer\ParseExpression.PAS',
  ParseExpressionTest in 'ParseExpressionTest.pas';

{$IFDEF DUNIT_CONSOLE_MODE}
  {$APPTYPE CONSOLE}
{$ELSE}
  {$R *.RES}
{$ENDIF}

begin
{$IFDEF DUNIT_CONSOLE_MODE}
  if not FindCmdLineSwitch('Graphic', ['-','/'], True) then
    TextTestRunner.RunRegisteredTests(rxbHaltOnFailures)
  else
{$ENDIF}
    GUITestRunner.RunRegisteredTests;
end.