projecttests.dpr

来自「Delphi深度探索,Delphi深度探索（第二版）」· DPR 代码 · 共 40 行

{-----------------------------------------------------------------------------
 Unit Name: Not available
 Author:    hubdog(陈省)
 Email:     [e-mail]
 Purpose:   XP测试框架DUnit示意例子
 History:
            2003-4-6 创建本单元  
-----------------------------------------------------------------------------}

//去掉注释，将把程序变成控制台模式的测试程序
//{$APPTYPE CONSOLE}

program ProjectTests;

uses
  TestFramework {$IFDEF LINUX},
  QForms,
  QGUITestRunner {$ELSE},
  Forms,
  GUITestRunner {$ENDIF},
  TextTestRunner,
  TestUnit in 'TestUnit.pas',
  StringClass in 'StringClass.pas',
  TestStringUnit in 'TestStringUnit.pas',
  TestLeakUnit in 'TestLeakUnit.pas',
  TestForm in 'TestForm.pas' {FormTest},
  TestDialogUnit in 'TestDialogUnit.pas';

{$R *.RES}

begin
  Application.Initialize;

  if System.IsConsole then
    TextTestRunner.RunRegisteredTests
  else
    GUITestRunner.RunRegisteredTests;
end.