开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Email服务器 > 查看源码
UnitTestGUITesting.pas
资源名称：EMailMasterbysuperroyor.rar　[点击查看]
上传用户：yjb1804
上传日期：2021-01-30
资源大小：3105k
文件大小：35k
源码类别：

Email服务器

开发平台：

Delphi

UnitTestGUITesting.pas：源码内容
  1. { #(@)$Id: UnitTestGUITesting.pas,v 1.50 2006/07/19 02:52:55 judc Exp $ }
  2. {: DUnit: An XTreme testing framework for Delphi programs.
  3.    @author  The DUnit Group.
  4.    @version $Revision: 1.50 $ uberto 08/03/2001
  5. }
  6. (*
  7.  * The contents of this file are subject to the Mozilla Public
  8.  * License Version 1.1 (the "License"); you may not use this file
  9.  * except in compliance with the License. You may obtain a copy of
  10.  * the License at http://www.mozilla.org/MPL/
  11.  *
  12.  * Software distributed under the License is distributed on an "AS
  13.  * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
  14.  * implied. See the License for the specific language governing
  15.  * rights and limitations under the License.
  16.  *
  17.  * The Original Code is DUnit.
  18.  *
  19.  * The Initial Developers of the Original Code are Serge Beaumont
  20.  * and Juancarlo A馿z.
  21.  * Portions created The Initial Developers are Copyright (C) 1999-2000.
  22.  * Portions created by The DUnit Group are Copyright (C) 2000-2003.
  23.  * All rights reserved.
  24.  *
  25.  * Contributor(s):
  26.  * Serge Beaumont <beaumose@iquip.nl>
  27.  * Juanco A馿z <juanco@users.sourceforge.net>
  28.  * Uberto Barbini <uberto@usa.net>
  29.  * Kris Golko <neuromancer@users.sourceforge.net>
  30.  * Kenneth Semeijn <kennethsem@users.sourceforge.net>
  31.  * Jon Bertrand <jonbsfnet@users.sourceforge.net>
  32.  * The DUnit group at SourceForge <http://dunit.sourceforge.net>
  33.  *
  34.  *)
  36. {$IFDEF LINUX}
  37. {$DEFINE DUNIT_CLX}
  38. {$ENDIF}
  40. unit UnitTestGUITesting;
  42. interface
  43. uses
  44.   GUITesting,
  45. {$IFDEF DUNIT_CLX}
  46.   Qt, QGraphics, QForms, QMenus, QStdCtrls, QControls,
  47.   QGUITestRunner,
  48. {$ELSE}
  49.   Windows, Messages, Graphics, Forms, Menus, StdCtrls, Controls,
  50.   GUITestRunner,
  51. {$ENDIF}
  52.   SysUtils,
  53.   Classes {Variants,};
  55. const
  56.   rcs_id: string = '#(@)$Id: UnitTestGUITesting.pas,v 1.50 2006/07/19 02:52:55 judc Exp $';
  58. type
  59.   TDunitDialogCracker = class(TGUITestRunner);
  61.   { This form is used to test some of the methods in TGUITestCase }
  62.   TTestForm = class(TForm)
  63.     xButton: TButton;
  64.     xEdit: TEdit;
  65.     xMemo: TMemo;
  66.     MainMenu1: TMainMenu;
  67.     est11: TMenuItem;
  68.     xAltBackspace: TMenuItem;
  69.     xCtrlA: TMenuItem;
  70.     F21: TMenuItem;
  71.     xButton2: TButton;
  72.     xButton3: TButton;
  73.     procedure xButtonClick(Sender: TObject);
  74.     procedure xEditKeyUp(Sender: TObject; var Key: Word;
  75.       Shift: TShiftState);
  76.     procedure FormCreate(Sender: TObject);
  77.     procedure xEditKeyDown(Sender: TObject; var Key: Word;
  78.       Shift: TShiftState);
  79.     procedure FormKeyDown(Sender: TObject; var Key: Word;
  80.       Shift: TShiftState);
  81.     procedure FormKeyPress(Sender: TObject; var Key: Char);
  82.     procedure FormKeyUp(Sender: TObject; var Key: Word;
  83.       Shift: TShiftState);
  84.     procedure xAltBackspaceClick(Sender: TObject);
  85.     procedure xCtrlAClick(Sender: TObject);
  86.     procedure F8Click(Sender: TObject);
  87.   public
  88.     ButtonClickCount, EditKeyDownCount, EditKeyUpCount,
  89.     FormKeyDownCount, FormKeyUpCount : integer;
  90.     AltBackspaceCount, ControlACount, Function8Count : integer;
  91.     FormKeys : string;
  92.     procedure ResetForm;
  93.   end;
  95.   T_TGUITestCase = class(TGUITestCase)
  96.   protected
  97.     mForm : TTestForm;
  99.     procedure SetUp; override;
  100.   public
  101.     procedure TearDown; override;
  102.   published
  103.     procedure Test_Form_Releases;
  104.     procedure Test_IsFocused;
  105.     procedure Test_Sleep;
  106.     procedure Test_EnterKeyInto;
  107.     procedure Test_EnterKey;
  108.     procedure Test_EnterTextInto;
  109.     procedure Test_Tab;
  110.   end;
  112.   TGUITestRunnerTests = class(TGUITestCase)
  113.   private
  114.     FRunner :TGUITestRunner;
  115.   public
  116.     { Test BOOLEVAL OFF Directive }
  117.     mRefCountA, mRefCountB : integer;
  118.     function TestA(const ReturnValue : boolean) : boolean;
  119.     function TestB(const ReturnValue : boolean) : boolean;
  120.     procedure TestAnd(const A, B : boolean);
  121.     procedure TestOr(const A, B : boolean);
  123.     procedure SetUp; override;
  124.     procedure TearDown; override;
  125.     {$IFDEF LINUX}
  126.     procedure TestStatus;
  127.     {$ENDIF}
  128.   published
  129.     procedure Test_BooleanEvalOff;
  130.     procedure TestTabOrder;
  131.     procedure TestViewResult;
  132.     procedure TestElapsedTime;
  133.     procedure RunEmptySuite;
  134.     procedure RunSuccessSuite;
  135.     procedure RunFailureSuite;
  136.     {$IFDEF WIN32}
  137.     procedure TestStatus;
  138.     {$ENDIF}
  139.     procedure TestRunSelectedTestWithDecorator;
  140.     procedure TestRunSelectedTestWithSetupDecorator;
  141.     {$IFNDEF DUNIT_CLX}
  142.     procedure TestGoToPrevNextSelectedNode;
  143.     {$ENDIF}
  144.   end;
  146. implementation
  147. uses
  148.   TestFramework,
  149.   TestExtensions;
  151. {$R *.dfm}
  153. type
  154.   TSuccessTestCase = class(TTestCase)
  155.   published
  156.     procedure OneSuccess;
  157.     procedure SecondSuccess;
  158.   end;
  160.   TFailuresTestCase = class(TTestCase)
  161.   private
  162.     procedure DoNothing;
  163.   published
  164.     procedure OneSuccess;
  165.     procedure OneFailure;
  166.     procedure SecondFailure;
  167.     procedure OneError;
  168.   end;
  170.   TTimeTestCase = class(TTestCase)
  171.   published
  172.     procedure TestTime;
  173.   end;
  175.   TStatusTestCase = class(TTestCase)
  176.   published
  177.     procedure OneSuccessWithStatus;
  178.     procedure SecondSuccessWithStatus;
  179.   public
  180.     procedure SetUp; override;
  181.   end;
  183.   TSetupTestCase = class(TTestSetup)
  184.   protected
  185.     FSetupCount : integer;
  186.     FTearDownCount : integer;
  187.     procedure SetUp; override;
  188.     procedure TearDown; override;
  189.   public
  190.     procedure AfterConstruction; override;
  191.   end;
  193. { TTestForm }
  195. procedure TTestForm.ResetForm;
  196. begin
  197.   ButtonClickCount := 0;
  198.   EditKeyDownCount := 0;
  199.   EditKeyUpCount := 0;
  200.   FormKeyDownCount := 0;
  201.   FormKeyUpCount := 0;
  202.   AltBackspaceCount := 0;
  203.   ControlACount := 0;
  204.   Function8Count := 0;
  205.   xEdit.Text := '';
  206.   FormKeys := '';
  207. end;
  209. procedure TTestForm.FormCreate(Sender: TObject);
  210. begin
  211.   ResetForm;
  212. end;
  214. procedure TTestForm.xButtonClick(Sender: TObject);
  215. begin
  216.   inc(ButtonClickCount);
  217. end;
  219. procedure TTestForm.xEditKeyDown(Sender: TObject; var Key: Word;
  220.   Shift: TShiftState);
  221. begin
  222.   inc(EditKeyDownCount);
  223. end;
  225. procedure TTestForm.xEditKeyUp(Sender: TObject; var Key: Word;
  226.   Shift: TShiftState);
  227. begin
  228.   inc(EditKeyUpCount);
  229. end;
  231. procedure TTestForm.FormKeyDown(Sender: TObject; var Key: Word;
  232.   Shift: TShiftState);
  233. begin
  234.   inc(FormKeyDownCount);
  235.   Assert(FormKeyDownCount > EditKeyDownCount);
  236. end;
  238. procedure TTestForm.FormKeyPress(Sender: TObject; var Key: Char);
  239. begin
  240.   FormKeys := FormKeys + Key;
  241. end;
  243. procedure TTestForm.FormKeyUp(Sender: TObject; var Key: Word;
  244.   Shift: TShiftState);
  245. begin
  246.   inc(FormKeyUpCount);
  247.   Assert(FormKeyUpCount > EditKeyUpCount);
  248. end;
  250. procedure TTestForm.xAltBackspaceClick(Sender: TObject);
  251. begin
  252.   inc(AltBackSpaceCount);
  253. end;
  255. procedure TTestForm.xCtrlAClick(Sender: TObject);
  256. begin
  257.   inc(ControlACount);
  258. end;
  260. procedure TTestForm.F8Click(Sender: TObject);
  261. begin
  262.   inc(Function8Count);
  263. end;
  265. { T_TGUITestCase }
  267. procedure T_TGUITestCase.SetUp;
  268. begin
  269.   inherited;
  270.   mForm := TTestForm.Create(nil);
  271.   ActionDelay := 10;
  272.   mForm.Show;
  273.   Application.ProcessMessages;
  274. end;
  276. procedure T_TGUITestCase.TearDown;
  277. begin
  278.   mForm.Release;
  279.   Application.ProcessMessages;
  280.   inherited;
  281. end;
  283. procedure T_TGUITestCase.Test_IsFocused;
  284. begin
  285.   fFailsOnNoChecksExecuted := False;
  286.   SetFocus(mForm.xButton);
  287.   Assert(not IsFocused(mForm.xButton2));
  288.   Assert(IsFocused(mForm.xButton));
  289. end;
  291. procedure T_TGUITestCase.Test_Sleep;
  292. var before, after, diff : TDateTime;
  293. begin
  294.   fFailsOnNoChecksExecuted := False;
  295.   AllowedMemoryLeakSize := 24;
  296.   before := Now;
  297.   Sleep(250);
  298.   after := Now;
  299.   Assert(after > before);
  300.   diff := after - before;
  301.   Assert(diff > 2.0e-6);
  303.   { Sleep is done in EnterKeyInto }
  304.   ActionDelay := 125;
  305.   before := Now;
  306.   EnterKeyInto(mForm, ord('A'), []);
  307.   after := Now;
  308.   Assert(after > before);
  309.   diff := after - before;
  310.   Assert(diff > 2.0e-6);
  311. end;
  313. procedure T_TGUITestCase.Test_EnterKeyInto;
  314. const VK_A = ord('A');
  315. begin
  316.   fFailsOnNoChecksExecuted := False;
  317.   SetFocus(mForm.xButton);
  318.   { Make sure:
  319.      focus shifts to the correct control
  320.      form key preview works
  321.      control gets the proper key(s)
  322.      works for TEdit, TButton, TMemo
  323.   }
  325.   { Keys pressed: A }
  326.   EnterKeyInto(mForm.xEdit, VK_A, []);
  327.   Assert(mForm.xEdit.Text = 'a');
  328.   Assert(mForm.EditKeyDownCount = 1);
  329.   Assert(mForm.EditKeyUpCount = 1);
  330.   Assert(mForm.FormKeyDownCount = 1);
  331.   Assert(mForm.FormKeyUpCount = 1);
  332.   Assert(mForm.FormKeys = 'a');
  334.   { Keys pressed:  Shift, A }
  335.   mForm.ResetForm;
  336.   EnterKeyInto(mForm.xEdit, VK_A, [ssShift]);
  337.   Assert(mForm.xEdit.Text = 'A');
  338.   Assert(mForm.EditKeyDownCount = 1);
  339.   Assert(mForm.EditKeyUpCount = 1);
  340.   Assert(mForm.FormKeyDownCount = 1);
  341.   Assert(mForm.FormKeyUpCount = 1);
  342.   Assert(mForm.FormKeys = 'A');
  344.   { Keys pressed:  Shift, A }
  345.   mForm.ResetForm;
  346.   EnterKeyInto(mForm.xMemo, VK_A, [ssShift]);
  347.   Assert(mForm.xMemo.Text = 'A');
  348.   Assert(mForm.FormKeyDownCount = 1);
  349.   Assert(mForm.FormKeyUpCount = 1);
  350.   Assert(mForm.FormKeys = 'A');
  352.   { Keys pressed:  Shift, A }
  353.   mForm.ResetForm;
  354.   EnterKeyInto(mForm.xButton, VK_A, [ssShift]);
  355.   Assert(mForm.FormKeyDownCount = 1);
  356.   Assert(mForm.FormKeyUpCount = 1);
  357.   Assert(mForm.FormKeys = 'A');
  359.   { Keys pressed : F8 }
  360.   mForm.ResetForm;
  361.   EnterKeyInto(mForm, VK_F8, []);
  362.   Assert(mForm.Function8Count = 1);
  363.   Assert(mForm.FormKeyDownCount = 0);  { Keydown gets munched ?}
  364.   Assert(mForm.FormKeyUpCount = 1);
  366.   { Keys pressed : Alt, Backspace }
  367.   mForm.ResetForm;
  368.   EnterKeyInto(mForm, VK_BACK, [ssAlt]);
  369.   Assert(mForm.AltBackspaceCount = 1);
  371.   { Keys pressed : Ctrl, A }
  372.   mForm.ResetForm;
  373.   EnterKeyInto(mForm, VK_A, [ssCtrl]);
  374.   Assert(mForm.ControlACount = 1);
  375. end;
  377. procedure T_TGUITestCase.Test_EnterKey;
  378. begin
  379.   fFailsOnNoChecksExecuted := False;
  380.   EnterKey(VK_F8);
  381. {$IFNDEF DUNIT_CLX}
  382.   Assert(mForm.Function8Count = 1);
  383. {$ENDIF}
  384.   SetFocus(mForm.xMemo);
  385.   EnterKey('M');
  386.   Assert(mForm.xMemo.Text = 'm');
  387.   SetFocus(mForm);
  388.   EnterKey(VK_F8);
  389. {$IFNDEF DUNIT_CLX}
  390.   Assert(mForm.Function8Count = 2);
  391. {$ENDIF}
  392. end;
  394. procedure T_TGUITestCase.Test_EnterTextInto;
  395. const c_text = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ `1234567890-=~!@#$%^&*()_+[]{}|;'':",./<>?';
  396. begin
  397.   fFailsOnNoChecksExecuted := False;
  398.   EnterTextInto(mForm.xMemo, c_text);
  399.   Assert(mForm.xMemo.Text = c_text);
  401.   EnterTextInto(mForm.xEdit, c_text);
  402.   Assert(mForm.xEdit.Text = c_text);
  403. end;
  405. procedure T_TGUITestCase.Test_Tab;
  406. begin
  407.   fFailsOnNoChecksExecuted := False;
  408.   Tab(2);
  409.   Assert(GetFocused = mForm.xButton3);
  410.   Tab(-1);
  411.   Assert(GetFocused = mForm.xButton2);
  412.   Tab(-1);
  413.   Assert(GetFocused = mForm.xButton);
  414. end;
  416. procedure T_TGUITestCase.Test_Form_Releases;
  417. begin
  418.   AllowedMemoryLeakSize := 24;
  419.   Application.ProcessMessages;
  420.   Check(MForm.Enabled, 'Form should be enabled and release without leaking');
  421. end;
  423. { TGUITestRunnerTests }
  425. procedure TGUITestRunnerTests.SetUp;
  426. begin
  427.   inherited;
  428.   FRunner := TGUITestRunner.Create(nil);
  429.   FRunner.Color   := clWhite;
  430.   FRunner.Caption := 'This Form is being tested';
  431.   FRunner.Left    :=  FRunner.Left + 200;
  432.   FRunner.Top     := FRunner.Top + 100;
  433.   FRunner.Width   := 300;
  434.   FRunner.Height  := 480;
  435.   FRunner.AutoSaveAction.Checked := False;
  436.   FRunner.HideTestNodesOnOpenAction.Checked := False;
  437.   GUI := FRunner;
  438. end;
  440. procedure TGUITestRunnerTests.TearDown;
  441. begin
  442.   GUI := nil;
  443.   FRunner.Free;
  444.   inherited;
  445. end;
  447. procedure TGUITestRunnerTests.TestTabOrder;
  448. begin
  449.   fFailsOnNoChecksExecuted := False;
  450.   AllowedMemoryLeakSize := 24;
  451.   // need to set a test suite, or buttons will be disabled
  452.   FRunner.Suite := TFailuresTestCase.Suite;
  453.   FRunner.AutoSaveAction.Checked := False;
  454.   FRunner.BreakOnFailuresAction.Checked := False;
  455.   Show;
  456.   (*!! Actions are now in Toolbar
  457.   CheckFocused(FRunner.RunButton);
  458.   Tab;
  459.   CheckFocused(FRunner.CloseButton);
  460.   Tab;
  461.   *)
  462. {$IFDEF DUNIT_CLX}
  463.   FRunner.SetFocusedControl(FRunner);
  464.   FRunner.TestTree.SetFocus;
  465. {$ENDIF}
  466.   CheckFocused(FRunner.TestTree);
  467.   Tab;
  468.   CheckFocused(FRunner.ResultsView);
  469.   Tab;
  470.   CheckFocused(FRunner.FailureListView);
  471.   Tab;
  472. {$IFNDEF DUNIT_CLX}
  473.   CheckFocused(FRunner.ErrorMessageRTF);
  474.   Tab;
  475. {$ENDIF}
  476.   (*
  477.   CheckFocused(FRunner.RunButton);
  478.   Tab;
  479.   CheckTabTo('RunButton');
  480.   *)
  481. end;
  483. procedure TGUITestRunnerTests.RunEmptySuite;
  484. begin
  485.   // no suite
  486.   Show;
  487. {$IFDEF DUNIT_CLX}
  488.   FRunner.SetFocusedControl(FRunner);
  489.   FRunner.TestTree.SetFocus;
  490. {$ENDIF}
  492.   CheckEquals(0,          FRunner.ProgressBar.Position,               'progress bar');
  493.   CheckEqualsString('',   FRunner.LbProgress.Caption,                 'progress label');
  494.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[0],   'tests');
  495.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[1],   'run count');
  496.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[2],   'failure count');
  497.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[3],   'error count');
  498.   CheckEquals(0,          FRunner.FailureListView.Items.Count,        'failure list');
  500.   EnterKey(vk_F9);
  502.   // nothing happens
  503.   CheckEquals(0,          FRunner.ProgressBar.Position,               'progress bar');
  504.   CheckEqualsString('',   FRunner.LbProgress.Caption,                 'progress label');
  505.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[0],   'tests');
  506.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[1],   'run count');
  507.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[2],   'failure count');
  508.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[3],   'error count');
  509.   CheckEquals(0,          FRunner.FailureListView.Items.Count,        'failure list');
  511.   EnterKey('X', [ssAlt]);
  513.   Check(not FRunner.Visible, 'form closed?');
  514. end;
  516. procedure TGUITestRunnerTests.RunSuccessSuite;
  517. begin
  518.   FRunner.Suite := TSuccessTestCase.Suite;
  519.   FRunner.AutoSaveAction.Checked := False;
  520.   FRunner.BreakOnFailuresAction.Checked := False;
  521.   Show;
  523. {$IFDEF DUNIT_CLX}
  524.   FRunner.SetFocusedControl(FRunner);
  525.   FRunner.TestTree.SetFocus;
  526. {$ENDIF}
  527.   CheckEquals(0,          FRunner.ProgressBar.Position,               'progress bar');
  528.   CheckEqualsString('',   FRunner.LbProgress.Caption,                 'progress label');
  529.   CheckEqualsString('2',  FRunner.ResultsView.Items[0].SubItems[0],   'tests');
  530.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[1],   'run count');
  531.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[2],   'failure count');
  532.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[3],   'error count');
  533.   CheckEquals(0,          FRunner.FailureListView.Items.Count,        'failure list');
  535.   EnterKey('R', [ssAlt]);
  537.   CheckEquals(2,          FRunner.ProgressBar.Position,               'progress bar');
  538.   CheckEqualsString('100%', FRunner.LbProgress.Caption,               'progress label');
  539.   CheckEqualsString('2',  FRunner.ResultsView.Items[0].SubItems[0],   'tests');
  540.   CheckEqualsString('2',  FRunner.ResultsView.Items[0].SubItems[1],   'run count');
  541.   CheckEqualsString('0',  FRunner.ResultsView.Items[0].SubItems[2],   'failure count');
  542.   CheckEqualsString('0',  FRunner.ResultsView.Items[0].SubItems[3],   'error count');
  543.   CheckEquals(0,          FRunner.FailureListView.Items.Count,        'failure list');
  545.   EnterKey('X', [ssAlt]);
  547.   Check(not FRunner.Visible, 'form closed?');
  548. end;
  550. procedure TGUITestRunnerTests.RunFailureSuite;
  551. begin
  552.   FRunner.Suite := TFailuresTestCase.Suite;
  553.   FRunner.AutoSaveAction.Checked := False;
  554.   FRunner.BreakOnFailuresAction.Checked := False;
  555.   FRunner.FailIfNoChecksExecutedAction.Checked := False;
  556.   Show;
  558. {$IFDEF DUNIT_CLX}
  559.   FRunner.SetFocusedControl(FRunner);
  560.   FRunner.TestTree.SetFocus;
  561. {$ENDIF}
  563.   CheckEquals(0,          FRunner.ProgressBar.Position,               'progress bar');
  564.   CheckEqualsString('',   FRunner.LbProgress.Caption,                 'progress label');
  565.   CheckEqualsString('4',  FRunner.ResultsView.Items[0].SubItems[0],   'tests');
  566.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[1],   'run count');
  567.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[2],   'failure count');
  568.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[3],   'error count');
  569.   CheckEquals(0,          FRunner.FailureListView.Items.Count,        'failure list');
  571.   EnterKey('R', [ssAlt]);
  573.   CheckEquals(4,          FRunner.ProgressBar.Position,               'progress bar');
  574.   CheckEqualsString('25%', FRunner.LbProgress.Caption,                'progress label');
  575.   CheckEqualsString('4',  FRunner.ResultsView.Items[0].SubItems[0],   'tests');
  576.   CheckEqualsString('4',  FRunner.ResultsView.Items[0].SubItems[1],   'run count');
  577.   CheckEqualsString('2',  FRunner.ResultsView.Items[0].SubItems[2],   'failure count');
  578.   CheckEqualsString('1',  FRunner.ResultsView.Items[0].SubItems[3],   'error count');
  579.   CheckEquals(3,          FRunner.FailureListView.Items.Count,        'failure list');
  581.   EnterKey('X', [ssAlt]);
  583.   Check(not FRunner.Visible, 'form closed?');
  584. end;
  586. procedure TGUITestRunnerTests.TestViewResult;
  587. begin
  588.   FRunner.Suite := TFailuresTestCase.Suite;
  589.   FRunner.AutoSaveAction.Checked := False;
  590.   FRunner.BreakOnFailuresAction.Checked := False;
  591.   Show;
  592. {$IFDEF DUNIT_CLX}
  593.   FRunner.SetFocusedControl(FRunner);
  594. {$ENDIF}
  595.   FRunner.TestTree.SetFocus;
  596.   FRunner.TestTree.Items[0].Item[0].Selected := true;
  597.   FRunner.TestTree.Items[0].Item[0].Selected := true;
  598. {$IFNDEF DUNIT_CLX}
  599.   EnterKey('D',[ssAlt]); //to uncheck node
  600. {$ENDIF}
  601.   CheckEquals(0,          FRunner.ProgressBar.Position,               'progress bar');
  602.   CheckEqualsString('',   FRunner.LbProgress.Caption,                 'progress label');
  603.   CheckEqualsString('4',  FRunner.ResultsView.Items[0].SubItems[0],   'tests');
  604.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[1],   'run count');
  605.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[2],   'failure count');
  606.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[3],   'error count');
  607.   CheckEquals(0,          FRunner.FailureListView.Items.Count,        'failure list');
  608. end;
  610. procedure TGUITestRunnerTests.TestElapsedTime;
  611. var
  612.   ElapTime, MinTime, MaxTime: string;
  613. begin
  614.   FRunner.Suite := TTimeTestCase.Suite;
  615.   FRunner.AutoSaveAction.Checked := False;
  616.   FRunner.BreakOnFailuresAction.Checked := False;
  617.   Show;
  618. {$IFDEF DUNIT_CLX}
  619.   FRunner.SetFocusedControl(FRunner);
  620.   FRunner.TestTree.SetFocus;
  621. {$ENDIF}
  622.   EnterKey(vk_F9);
  623.   ElapTime := FRunner.ResultsView.Items[0].SubItems[6];
  624.   MinTime := '0:00:00.070';
  625.   MaxTime := '0:00:00.300';
  626.   Check(ElapTime > MinTime, 'Test Time ('+ElapTime+') should be bigger than ' + MinTime);
  627.   Check(ElapTime < MaxTime, 'Test Time ('+ElapTime+') should be lesser than ' + MaxTime);
  628. end;
  630. procedure TGUITestRunnerTests.TestStatus;
  631. const
  632. {$IFDEF WIN32}
  633.   constLineDelim = #13#10;
  634. {$ENDIF}
  635. {$IFDEF LINUX}
  636.   constLineDelim = #10;
  637. {$ENDIF}
  638.   constStatusTestStr =
  639.       'SecondSuccessWithStatus:' + constLineDelim
  640.       + 'Line 1' + constLineDelim
  641.       + 'Line 2' + constLineDelim
  642.       + 'Line 3' + constLineDelim;
  643. begin
  644.   SetAllowedLeakArray([288, 312]);
  645.   FRunner.Suite := TStatusTestCase.Suite;
  646.   FRunner.AutoSaveAction.Checked := False;
  647.   FRunner.BreakOnFailuresAction.Checked := False;
  648.   Show;
  650. {$IFDEF DUNIT_CLX}
  651.   FRunner.SetFocusedControl(FRunner);
  652.   FRunner.TestTree.SetFocus;
  653. {$ENDIF}
  654.   CheckEquals(0,          FRunner.ProgressBar.Position,               'progress bar');
  655.   CheckEqualsString('',   FRunner.LbProgress.Caption,                 'progress label');
  656.   CheckEqualsString('2',  FRunner.ResultsView.Items[0].SubItems[0],   'tests');
  657.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[1],   'run count');
  658.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[2],   'failure count');
  659.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[3],   'error count');
  660.   CheckEquals(0,          FRunner.FailureListView.Items.Count,        'failure list');
  661. {$IFNDEF DUNIT_CLX}
  662.   CheckEquals(0,          FRunner.ErrorMessageRTF.Lines.Count,        'Status in ErrorMessageRTF');
  663. {$ENDIF}
  665.   EnterKey('R', [ssAlt]);
  667.   CheckEquals(2,          FRunner.ProgressBar.Position,               'progress bar');
  668.   CheckEqualsString('100%', FRunner.LbProgress.Caption,               'progress label');
  669.   CheckEqualsString('2',  FRunner.ResultsView.Items[0].SubItems[0],   'tests');
  670.   CheckEqualsString('2',  FRunner.ResultsView.Items[0].SubItems[1],   'run count');
  671.   CheckEqualsString('0',  FRunner.ResultsView.Items[0].SubItems[2],   'failure count');
  672.   CheckEqualsString('0',  FRunner.ResultsView.Items[0].SubItems[3],   'error count');
  673.   CheckEquals(0,          FRunner.FailureListView.Items.Count,        'failure list');
  674. {$IFNDEF DUNIT_CLX}
  675.   CheckEqualsString(constStatusTestStr, FRunner.ErrorMessageRTF.Lines.Text,
  676.       'Statustext in ErrorMessageRTF');
  677.   CheckEquals(4,          FRunner.ErrorMessageRTF.Lines.Count,        'Status in ErrorMessageRTF');
  678. {$ENDIF}
  680.   EnterKey('X', [ssAlt]);
  682.   Check(not FRunner.Visible, 'form closed?');
  683. end;
  685. procedure TGUITestRunnerTests.TestRunSelectedTestWithDecorator;
  686. var
  687.   LTestSuite : ITest;
  688.   SuccessTest : ITest;
  689. begin
  690.   SuccessTest := TSuccessTestCase.Suite;
  691.   LTestSuite := TRepeatedTest.Create( SuccessTest , 2);
  692.   FRunner.Suite := LTestSuite;
  693.   FRunner.AutoSaveAction.Checked := False;
  694.   FRunner.BreakOnFailuresAction.Checked := False;
  695.   Show;
  697. {$IFDEF DUNIT_CLX}
  698.   FRunner.SetFocusedControl(FRunner);
  699.   FRunner.TestTree.SetFocus;
  700. {$ENDIF}
  702.   CheckEquals(0,          FRunner.ProgressBar.Position,               'progress bar');
  703.   CheckEqualsString('',   FRunner.LbProgress.Caption,                 'progress label');
  704.   CheckEqualsString('4',  FRunner.ResultsView.Items[0].SubItems[0],   'tests');
  705.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[1],   'run count');
  706.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[2],   'failure count');
  707.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[3],   'error count');
  708.   CheckEquals(0,          FRunner.FailureListView.Items.Count,        'failure list');
  710.   CheckEquals(1, FRunner.Suite.Tests.Count, 'Before Suite.Tests.Count');
  711.   CheckEquals(2, (FRunner.Suite.Tests[0] as ITest).Tests.Count, 'Before Suite.Tests[0].Tests.Count');
  712.   CheckEquals(4, FRunner.Suite.CountEnabledTestCases, 'Before CountEnabledTestCases');
  713.   CheckEquals(4, TDunitDialogCracker(FRunner).FTests.Count, 'Before testcount');
  715.   CheckSame(LTestSuite, FRunner.Suite, 'Before LTestSuite');
  716.   CheckSame(SuccessTest, FRunner.Suite.Tests[0], 'Before SuccesTest');
  718.   FRunner.TestTree.SetFocus;
  720.   CheckFocused(FRunner.TestTree);
  721.   EnterKeyInto(FRunner.TestTree, VK_END);
  723.   EnterKey(VK_F8);
  725.   CheckEquals(1,          FRunner.ProgressBar.Position,               'After first progress bar');
  726.   CheckEqualsString('100%', FRunner.LbProgress.Caption,               'After first progress label');
  727.   CheckEqualsString('4',  FRunner.ResultsView.Items[0].SubItems[0],   'After first tests');
  728.   CheckEqualsString('2',  FRunner.ResultsView.Items[0].SubItems[1],   'After first run count');
  729.   CheckEqualsString('0',  FRunner.ResultsView.Items[0].SubItems[2],   'After first failure count');
  730.   CheckEqualsString('0',  FRunner.ResultsView.Items[0].SubItems[3],   'After first error count');
  731.   CheckEquals(0,          FRunner.FailureListView.Items.Count,        'After first failure list');
  733.   CheckEquals(1, FRunner.Suite.Tests.Count, 'After first Suite.Tests.Count');
  734.   CheckEquals(2, (FRunner.Suite.Tests[0] as ITest).Tests.Count, 'After first Suite.Tests[0].Tests.Count');
  735.   CheckSame(LTestSuite, FRunner.Suite, 'After first LTestSuite');
  736.   CheckSame(SuccessTest, FRunner.Suite.Tests[0], 'After first SuccesTest');
  737.   CheckEquals(4, FRunner.Suite.CountEnabledTestCases, 'After first CountEnabledTestCases');
  738.   CheckEquals(4, TDunitDialogCracker(FRunner).FTests.Count, 'After first testcount');
  740.   CheckFocused(FRunner.TestTree);
  742.   // Second time could generate an pointer error
  743.   EnterKeyInto(FRunner.TestTree, VK_F8);
  745.   CheckEquals(1,          FRunner.ProgressBar.Position,               'After second progress bar');
  746.   CheckEqualsString('100%', FRunner.LbProgress.Caption,               'After second progress label');
  747.   CheckEqualsString('4',  FRunner.ResultsView.Items[0].SubItems[0],   'After second tests');
  748.   CheckEqualsString('2',  FRunner.ResultsView.Items[0].SubItems[1],   'After second run count');
  749.   CheckEqualsString('0',  FRunner.ResultsView.Items[0].SubItems[2],   'After second failure count');
  750.   CheckEqualsString('0',  FRunner.ResultsView.Items[0].SubItems[3],   'After second error count');
  751.   CheckEquals(0,          FRunner.FailureListView.Items.Count,        'After second failure list');
  753.   CheckEquals(4, FRunner.Suite.CountEnabledTestCases, 'After second CountEnabledTestCases');
  754.   CheckEquals(4, TDunitDialogCracker(FRunner).FTests.Count, 'testcount');
  756.   // Normal test after single test. Should run all enabled tests.
  757.   EnterKeyInto(FRunner.TestTree, VK_F9);
  759.   CheckEquals(4,          FRunner.ProgressBar.Position,               'Normal after progress bar');
  760.   CheckEqualsString('100%', FRunner.LbProgress.Caption,               'Normal after progress label');
  761.   CheckEqualsString('4',  FRunner.ResultsView.Items[0].SubItems[0],   'Normal after tests');
  762.   CheckEqualsString('4',  FRunner.ResultsView.Items[0].SubItems[1],   'Normal after run count');
  763.   CheckEqualsString('0',  FRunner.ResultsView.Items[0].SubItems[2],   'Normal after failure count');
  764.   CheckEqualsString('0',  FRunner.ResultsView.Items[0].SubItems[3],   'Normal after error count');
  765.   CheckEquals(0,          FRunner.FailureListView.Items.Count,        'Normal after failure list');
  767.   CheckEquals(4, FRunner.Suite.CountEnabledTestCases, 'Normal after CountEnabledTestCases');
  768.   CheckEquals(4, TDunitDialogCracker(FRunner).FTests.Count, 'Normal after testcount');
  770.   EnterKey('X', [ssAlt]);
  772.   Check(not FRunner.Visible, 'form closed?');
  773. end;
  775. procedure TGUITestRunnerTests.TestRunSelectedTestWithSetupDecorator;
  776. var LTestSuite  : TSetupTestCase;
  777.     ITestSuite  : ITest;
  778.     SuccessTest : ITest;
  779. begin
  780.   SuccessTest := TSuccessTestCase.Suite;
  781.   LTestSuite := TSetupTestCase.Create( SuccessTest);
  782.   ITestSuite := LTestSuite;
  783.   FRunner.Suite := ITestSuite;
  784.   FRunner.AutoSaveAction.Checked := False;
  785.   FRunner.BreakOnFailuresAction.Checked := False;
  786.   Show;
  788. {$IFDEF DUNIT_CLX}
  789.   FRunner.SetFocusedControl(FRunner);
  790.   FRunner.TestTree.SetFocus;
  791. {$ENDIF}
  793.   CheckEquals(0,          FRunner.ProgressBar.Position,               'progress bar');
  794.   CheckEqualsString('',   FRunner.LbProgress.Caption,                 'progress label');
  795.   CheckEqualsString('2',  FRunner.ResultsView.Items[0].SubItems[0],   'tests');
  796.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[1],   'run count');
  797.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[2],   'failure count');
  798.   CheckEqualsString('',   FRunner.ResultsView.Items[0].SubItems[3],   'error count');
  799.   CheckEquals(0,          FRunner.FailureListView.Items.Count,        'failure list');
  801.   CheckEquals(1, FRunner.Suite.Tests.Count, 'Before Suite.Tests.Count');
  802.   CheckEquals(2, (FRunner.Suite.Tests[0] as ITest).Tests.Count, 'Before Suite.Tests[0].Tests.Count');
  803.   CheckEquals(2, FRunner.Suite.CountEnabledTestCases, 'Before CountEnabledTestCases');
  804.   CheckEquals(4, TDunitDialogCracker(FRunner).FTests.Count, 'Before testcount');
  806.   CheckEquals(0, LTestSuite.FSetupCount, 'Before SetupCount');
  807.   CheckEquals(0, LTestSuite.FTearDownCount, 'Before TearDownCount');
  809.   FRunner.TestTree.SetFocus;
  811.   CheckFocused(FRunner.TestTree);
  812.   EnterKeyInto(FRunner.TestTree, VK_END);
  814.   EnterKey(VK_F8);
  816.   CheckEquals(1,          FRunner.ProgressBar.Position,               'After first progress bar');
  817.   CheckEqualsString('100%', FRunner.LbProgress.Caption,               'After first progress label');
  818.   CheckEqualsString('2',  FRunner.ResultsView.Items[0].SubItems[0],   'After first tests');
  819.   CheckEqualsString('1',  FRunner.ResultsView.Items[0].SubItems[1],   'After first run count');
  820.   CheckEqualsString('0',  FRunner.ResultsView.Items[0].SubItems[2],   'After first failure count');
  821.   CheckEqualsString('0',  FRunner.ResultsView.Items[0].SubItems[3],   'After first error count');
  822.   CheckEquals(0,          FRunner.FailureListView.Items.Count,        'After first failure list');
  824.   CheckEquals(1, FRunner.Suite.Tests.Count, 'After first Suite.Tests.Count');
  825.   CheckEquals(2, (FRunner.Suite.Tests[0] as ITest).Tests.Count, 'After first Suite.Tests[0].Tests.Count');
  826.   CheckEquals(2, FRunner.Suite.CountEnabledTestCases, 'After first CountEnabledTestCases');
  827.   CheckEquals(4, TDunitDialogCracker(FRunner).FTests.Count, 'After first testcount');
  829.   CheckEquals(1, LTestSuite.FSetupCount, 'After first SetupCount');
  830.   CheckEquals(1, LTestSuite.FTearDownCount, 'After first TearDownCount');
  832.   CheckFocused(FRunner.TestTree);
  834.   // Second time could generate a pointer error
  835.   EnterKeyInto(FRunner.TestTree, VK_F8);
  837.   CheckEquals(1,          FRunner.ProgressBar.Position,               'After second progress bar');
  838.   CheckEqualsString('100%', FRunner.LbProgress.Caption,               'After second progress label');
  839.   CheckEqualsString('2',  FRunner.ResultsView.Items[0].SubItems[0],   'After second tests');
  840.   CheckEqualsString('1',  FRunner.ResultsView.Items[0].SubItems[1],   'After second run count');
  841.   CheckEqualsString('0',  FRunner.ResultsView.Items[0].SubItems[2],   'After second failure count');
  842.   CheckEqualsString('0',  FRunner.ResultsView.Items[0].SubItems[3],   'After second error count');
  843.   CheckEquals(0,          FRunner.FailureListView.Items.Count,        'After second failure list');
  845.   CheckEquals(2, FRunner.Suite.CountEnabledTestCases, 'After second CountEnabledTestCases');
  846.   CheckEquals(4, TDunitDialogCracker(FRunner).FTests.Count, 'testcount');
  848.   CheckEquals(2, LTestSuite.FSetupCount, 'After second SetupCount');
  849.   CheckEquals(2, LTestSuite.FTearDownCount, 'After second TearDownCount');
  851.   // Normal test after single test. Should run all enabled tests.
  852.   EnterKeyInto(FRunner.TestTree, VK_F9);
  854.   CheckEquals(2,          FRunner.ProgressBar.Position,               'Normal after progress bar');
  855.   CheckEqualsString('100%', FRunner.LbProgress.Caption,               'Normal after progress label');
  856.   CheckEqualsString('2',  FRunner.ResultsView.Items[0].SubItems[0],   'Normal after tests');
  857.   CheckEqualsString('2',  FRunner.ResultsView.Items[0].SubItems[1],   'Normal after run count');
  858.   CheckEqualsString('0',  FRunner.ResultsView.Items[0].SubItems[2],   'Normal after failure count');
  859.   CheckEqualsString('0',  FRunner.ResultsView.Items[0].SubItems[3],   'Normal after error count');
  860.   CheckEquals(0,          FRunner.FailureListView.Items.Count,        'Normal after failure list');
  862.   CheckEquals(2, FRunner.Suite.CountEnabledTestCases, 'Normal after CountEnabledTestCases');
  863.   CheckEquals(4, TDunitDialogCracker(FRunner).FTests.Count, 'Normal after testcount');
  865.   CheckEquals(3, LTestSuite.FSetupCount, 'Normal after SetupCount');
  866.   CheckEquals(3, LTestSuite.FTearDownCount, 'Normal after TearDownCount');
  868.   EnterKey('X', [ssAlt]);
  870.   Check(not FRunner.Visible, 'form closed?');
  872.   if ITestSuite <> nil then
  873.     ITestSuite := nil;
  874. end;
  876. {$IFNDEF DUNIT_CLX}
  877. procedure TGUITestRunnerTests.TestGoToPrevNextSelectedNode;
  878. begin
  879.   FRunner.Suite := TSuccessTestCase.Suite;
  880.   Show;
  881.   FRunner.TestTree.SetFocus;
  882.   Check(FRunner.TestTree.Selected = FRunner.TestTree.Items[0], 'ensure starting at root node');
  883.   FRunner.GoToNextSelectedTestAction.Execute;
  884.   Check(FRunner.TestTree.Selected = FRunner.TestTree.Items[1], 'testing from non-test to next test node');
  885.   FRunner.GoToNextSelectedTestAction.Execute;
  886.   Check(FRunner.TestTree.Selected = FRunner.TestTree.Items[2], 'testing test node to next test node');
  887.   FRunner.GoToNextSelectedTestAction.Execute;
  888.   Check(FRunner.TestTree.Selected = FRunner.TestTree.Items[2], 'testing the end of the line, next should stay put');
  889.   FRunner.GoToPrevSelectedTestAction.Execute;
  890.   Check(FRunner.TestTree.Selected = FRunner.TestTree.Items[1], 'testing test to prev test');
  891.   FRunner.GoToPrevSelectedTestAction.Execute;
  892.   Check(FRunner.TestTree.Selected = FRunner.TestTree.Items[1], 'beg of the line, prev should stay put');
  893. end;
  894. {$ENDIF}
  896. procedure TGUITestRunnerTests.Test_BooleanEvalOff;
  897. begin
  898.   { this test makes sure boolean evals short circuit }
  900.   fFailsOnNoChecksExecuted := False;
  901.   //Added because the test leaks memory.
  902.   AllowedMemoryLeakSize := 288;
  904.   {$BOOLEVAL OFF}
  906.   TestOr(true, false);
  907.   Assert(mRefCountA = 1);
  908.   Assert(mRefCountB = 0);
  910.   TestOr(true, true);
  911.   Assert(mRefCountA = 1);
  912.   Assert(mRefCountB = 0);
  914.   TestOr(false, true);
  915.   Assert(mRefCountA = 1);
  916.   Assert(mRefCountB = 1);
  918.   TestOr(false, false);
  919.   Assert(mRefCountA = 1);
  920.   Assert(mRefCountB = 1);
  922.   TestAnd(false, false);
  923.   Assert(mRefCountA = 1);
  924.   Assert(mRefCountB = 0);
  926.   TestAnd(true, false);
  927.   Assert(mRefCountA = 1);
  928.   Assert(mRefCountB = 1);
  930.   TestAnd(true, true);
  931.   Assert(mRefCountA = 1);
  932.   Assert(mRefCountB = 1);
  934.   TestAnd(false, true);
  935.   Assert(mRefCountA = 1);
  936.   Assert(mRefCountB = 0);
  937. end;
  939. function TGUITestRunnerTests.TestA(const ReturnValue: boolean): boolean;
  940. begin
  941.   inc(mRefCountA);
  942.   Result := ReturnValue;
  943. end;
  945. procedure TGUITestRunnerTests.TestAnd(const A, B: boolean);
  946. begin
  947.   mRefCountA := 0;
  948.   mRefCountB := 0;
  949.   if TestA(a) and TestB(b) then
  950.   begin
  951.   end;
  952. end;
  954. function TGUITestRunnerTests.TestB(const ReturnValue: boolean): boolean;
  955. begin
  956.   inc(mRefCountB);
  957.   Result := ReturnValue;
  958. end;
  960. procedure TGUITestRunnerTests.TestOr(const A, B: boolean);
  961. begin
  962.   mRefCountA := 0;
  963.   mRefCountB := 0;
  964.   if TestA(a) or TestB(b) then
  965.   begin
  966.   end;
  967. end;
  969. { TSuccessTestCase }
  971. procedure TSuccessTestCase.OneSuccess;
  972. begin
  973.   check(true);
  974. end;
  976. procedure TSuccessTestCase.SecondSuccess;
  977. begin
  978.   check(true);
  979. end;
  981. { TFailuresTestCase }
  983. procedure TFailuresTestCase.OneSuccess;
  984. begin
  985.   DoNothing;
  986. end;
  988. procedure TFailuresTestCase.OneError;
  989. begin
  990.   raise EAbort.Create('One Error');
  991. end;
  993. procedure TFailuresTestCase.OneFailure;
  994. begin
  995.   fail('One failure');
  996. end;
  998. procedure TFailuresTestCase.SecondFailure;
  999. begin
  1000.   fail('Second failure');
  1001. end;
  1003. procedure TFailuresTestCase.DoNothing;
  1004. begin
  1005. // Do Nothing
  1006. end;
  1008. { TTimeTestCase }
  1010. procedure TTimeTestCase.TestTime;
  1011. const
  1012.   DELAY = 100;
  1013. begin
  1014.   Sleep(DELAY);
  1015.   Check( True );
  1016. end;
  1018. { TStatusTestCase }
  1020. procedure TStatusTestCase.OneSuccessWithStatus;
  1021. begin
  1022.   Status('Line 1');
  1023.   Status('Line 2');
  1024.   Status('Line 3');
  1025. end;
  1027. procedure TStatusTestCase.SecondSuccessWithStatus;
  1028. begin
  1029.   Status('Line 1');
  1030.   Sleep(200);
  1031.   Status('Line 2');
  1032.   Sleep(200);
  1033.   Status('Line 3');
  1034.   Sleep(200);
  1035. end;
  1037. procedure TStatusTestCase.SetUp;
  1038. begin
  1039.   inherited;
  1040.   FailsOnNoChecksExecuted := False;
  1041.   FailsOnMemoryLeak := False;
  1042. end;
  1044. { TSetupTestCase }
  1046. procedure TSetupTestCase.AfterConstruction;
  1047. begin
  1048.   inherited;
  1050.   FSetupCount := 0;
  1051.   FTearDownCount := 0;
  1052. end;
  1054. procedure TSetupTestCase.SetUp;
  1055. begin
  1056.   inherited;
  1057.   inc(FSetupCount)
  1058. end;
  1060. procedure TSetupTestCase.TearDown;
  1061. begin
  1062.   inherited;
  1063.   inc(FTearDownCount)
  1064. end;
  1066. initialization
  1067.   RegisterTests('', [T_TGUITestCase.Suite]);
  1068.   RegisterTests('GUI Tests', [TGUITestRunnerTests.Suite]);
  1069. end.