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

Email服务器

开发平台:

Delphi

  1. (*
  2.  * The contents of this file are subject to the Mozilla Public
  3.  * License Version 1.1 (the "License"); you may not use this file
  4.  * except in compliance with the License. You may obtain a copy of
  5.  * the License at http://www.mozilla.org/MPL/
  6.  *
  7.  * Software distributed under the License is distributed on an "AS
  8.  * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
  9.  * implied. See the License for the specific language governing
  10.  * rights and limitations under the License.
  11.  *
  12.  * The Original Code is DUnit.
  13.  *
  14.  * The Initial Developers of the Original Code are Kent Beck, Erich Gamma,
  15.  * and Juancarlo A馿z.
  16.  * Portions created The Initial Developers are Copyright (C) 1999-2000.
  17.  * Portions created by The DUnit Group are Copyright (C) 2000.
  18.  * All rights reserved.
  19.  *
  20.  * Contributor(s):
  21.  * Juanco A馿z <juanco@users.sourceforge.net>
  22.  * Kris Golko <neuromancer@users.sourceforge.net>
  23.  * The DUnit group at SourceForge <http://dunit.sourceforge.net>
  24.  *
  25.  *)
  26. {$IFDEF LINUX}
  27. {$DEFINE DUNIT_CLX}
  28. {$ENDIF}
  29. { Define DUNIT_CLX for project to use D6+ CLX }
  30. program Project1Test;
  31. uses
  32. {$IFDEF DUNIT_CLX}
  33.   QGUITestRunner,
  34. {$ELSE}
  35.   GUITestRunner,
  36. {$ENDIF}
  37.   TestFramework,
  38.   Unit1Test,
  39.   Unit2Test;
  40. {$R *.res}
  41. function MasterTestSuite: ITestSuite;
  42. begin
  43.   Result := TTestSuite.Create('Test App');
  44.   Result.AddTest(Unit1Test.Suite);
  45.   Result.AddTest(Unit2Test.Suite);
  46. end;
  47. begin
  48.   TGUITestRunner.RunTest(MasterTestSuite);
  49. end.