{-----------------------------------------------------------------------------
 Unit Name: Not available
 Author:    hubdog(陳省)
 Email:     hubdog@263.net
 Purpose:   XP測試框架DUnit示意例子
 History:
            2003-4-6 創(chuàng)建本單元  
-----------------------------------------------------------------------------}

//去掉注釋，將把程序變成控制臺模式的測試程序
//{$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.