financetest.dpr

来自「财务软件:功能尚可,基于UML设计开发的delphi系统,文档齐全」· DPR 代码 · 共 34 行

//{$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.