79 lines
2.6 KiB
Plaintext
79 lines
2.6 KiB
Plaintext
{***************************************************************************}
|
|
{ }
|
|
{ DelphiUIAutomation }
|
|
{ }
|
|
{ Copyright 2015-16 JHC Systems Limited }
|
|
{ }
|
|
{***************************************************************************}
|
|
{ }
|
|
{ Licensed under the Apache License, Version 2.0 (the "License"); }
|
|
{ you may not use this file except in compliance with the License. }
|
|
{ You may obtain a copy of the License at }
|
|
{ }
|
|
{ http://www.apache.org/licenses/LICENSE-2.0 }
|
|
{ }
|
|
{ Unless required by applicable law or agreed to in writing, software }
|
|
{ distributed under the License is distributed on an "AS IS" BASIS, }
|
|
{ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. }
|
|
{ See the License for the specific language governing permissions and }
|
|
{ limitations under the License. }
|
|
{ }
|
|
{***************************************************************************}
|
|
unit TestMainForm;
|
|
|
|
interface
|
|
|
|
uses
|
|
TestFramework,
|
|
DelphiUIAutomation.Automation,
|
|
DelphiUIAutomation.Window,
|
|
DelphiUIAutomation.Client,
|
|
DelphiUIAutomation.Desktop;
|
|
|
|
type
|
|
TestIAutomationBase = class(TTestCase)
|
|
strict private
|
|
FApplication: IAutomationApplication;
|
|
|
|
public
|
|
procedure SetUp; override;
|
|
procedure TearDown; override;
|
|
published
|
|
procedure Example;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TestIAutomationBase }
|
|
|
|
procedure TestIAutomationBase.Example;
|
|
var
|
|
MainWindow: IAutomationWindow;
|
|
begin
|
|
MainWindow := TAutomationDesktop.GetDesktopWindow('Form1', 5000); // crash
|
|
|
|
MainWindow.GetButton('OK').Click;
|
|
end;
|
|
|
|
procedure TestIAutomationBase.SetUp;
|
|
begin
|
|
inherited;
|
|
|
|
FApplication := TAutomationApplication.LaunchOrAttach('..\..\..\demo\democlient\Win32\Debug\Project1.exe', '');
|
|
|
|
FApplication.WaitWhileBusy;
|
|
end;
|
|
|
|
procedure TestIAutomationBase.TearDown;
|
|
begin
|
|
inherited;
|
|
|
|
FApplication.Kill;
|
|
end;
|
|
|
|
initialization
|
|
TUIAuto.CreateUIAuto; // Initialise the library
|
|
RegisterTest(TestIAutomationBase.Suite);
|
|
|
|
end.
|