UnitTests4Net.dpr
上传用户:yjb1804
上传日期:2021-01-30
资源大小:3105k
文件大小:2k
源码类别:

Email服务器

开发平台:

Delphi

  1. {#(@)$Id: UnitTests4Net.dpr,v 1.3 2006/08/06 17:33:35 pmcnab Exp $ }
  2. {  DUnit: An XTreme testing framework for Delphi programs. }
  3. (*
  4.  * The contents of this file are subject to the Mozilla Public
  5.  * License Version 1.1 (the "License"); you may not use this file
  6.  * except in compliance with the License. You may obtain a copy of
  7.  * the License at http://www.mozilla.org/MPL/
  8.  *
  9.  * Software distributed under the License is distributed on an "AS
  10.  * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
  11.  * implied. See the License for the specific language governing
  12.  * rights and limitations under the License.
  13.  *
  14.  * The Original Code is DUnit.
  15.  *
  16.  * The Initial Developers of the Original Code are Kent Beck, Erich Gamma,
  17.  * and Juancarlo A馿z.
  18.  * Portions created The Initial Developers are Copyright (C) 1999-2000.
  19.  * Portions created by The DUnit Group are Copyright (C) 2000-2004.
  20.  * All rights reserved.
  21.  *
  22.  * Contributor(s):
  23.  * Kent Beck <kentbeck@csi.com>
  24.  * Erich Gamma <Erich_Gamma@oti.com>
  25.  * Juanco A馿z <juanco@users.sourceforge.net>
  26.  * Chris Morris <chrismo@users.sourceforge.net>
  27.  * Jeff Moore <JeffMoore@users.sourceforge.net>
  28.  * Uberto Barbini <uberto@usa.net>
  29.  * Brett Shearer <BrettShearer@users.sourceforge.net>
  30.  * Kris Golko <neuromancer@users.sourceforge.net>
  31.  * The DUnit group at SourceForge <http://dunit.sourceforge.net>
  32.  *
  33.  *)
  34. { Note. This .NET test suite only runs the non-GUI tests as the GUI tests use pointers. }
  35. program UnitTests4Net;
  36. {%DotNetAssemblyCompiler '$(SystemRoot)Microsoft.NETFrameworkv1.1.4322System.Drawing.dll'}
  37. uses
  38.   Forms,
  39.   SysUtils,
  40.   UnitTestFramework in 'UnitTestFramework.pas',
  41.   UnitTestExtensions in 'UnitTestExtensions.pas',
  42.   TestFramework in '..srcTestFramework.pas',
  43.   TestExtensions in '..srcTestExtensions.pas',
  44.   NGUITestRunner in '..srcNGUITestRunner.pas',
  45.   TextTestRunner in '..srcTextTestRunner.pas';
  46. [STAThread]
  47. begin
  48.   if FindCmdLineSwitch('text-mode', ['-','/'], true) then
  49.     TextTestRunner.RunRegisteredTests(rxbHaltOnFailures)
  50.   else
  51.     TGUITestRunner.RunRegisteredTests();
  52. end.