reactos/ahk_tests
1
0
Fork 0
mirror of https://github.com/reactos/ahk_tests.git synced 2024-11-26 21:10:40 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[AHK_TeamViewer_7.0]

Browse Source 
Add 2.demo_partner to test if can remotely control demo partner.
Test succeeds in both 2k3 SP1 and WinXP SP3.

svn path=/trunk/ahk_tests/; revision=2031
This commit is contained in:
Edijs Kolesnikovičs 2013-05-21 04:53:01 +00:00
parent ee1ac2d587
commit 711b0ce3d5
3 changed files with 261 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

156
TeamViewer/7.0/demo_partner.ahk Normal file
View File

@ -0,0 +1,156 @@
/*
* Designed for TeamViewer 7.0 (7.0.12979)
* Copyright (C) 2013 Edijs Kolesnikovics
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*/
TestName = 2.demo_partner
; Test if can remote control TeamViewer demo partner.
TestsTotal++
RunApplication("")
if bContinue
{
szPartnerID = 12345
ControlSetText, Edit1, %szPartnerID%, TeamViewer, Ready to connect ; Fill 'Partner ID' field
if ErrorLevel
TestsFailed("Unable to fill 'Partner ID' field with '" szPartnerID "' in 'TeamViewer (Ready to connect)' window.")
else
{
ControlClick, Button2, TeamViewer, Ready to connect
if ErrorLevel
TestsFailed("Unable to click 'Connect to partner' button in 'TeamViewer (Ready to connect)' window.")
else
{
WinWaitActive, TeamViewer Authentication, Please enter, 6
if ErrorLevel
TestsFailed("'TeamViewer Authentication (Please enter)' window failed to appear despite 'Connect to partner' button being clicked.")
else
{
szPasswordApp = %A_WorkingDir%\Apps\GetPassword.exe ; Thanks to Mysoft
IfNotExist, %szPasswordApp%
TestsFailed("Application (" szPasswordApp ") to get TeamViewer password NOT found.")
else
{
clipboard = ; clean
Run, %szPasswordApp%
SplitPath, szPasswordApp, szProcess
Process, WaitClose, %szProcess%, 3
if ErrorLevel
{
bTerminateProcess(szProcess)
TestsFailed("'" szProcess "' process failed to close.")
}
else
{
ClipWait, 2
if ErrorLevel
TestsFailed("Clipboard does NOT contain the password.")
else
{
StringTrimLeft, nPassword, clipboard, 9 ; clipboard=Password=xxxx, nPassword=xxxx
ControlSetText, Edit1, %nPassword%, TeamViewer Authentication, Please enter
if ErrorLevel
TestsFailed("Unable to fill 'Password:' field in 'TeamViewer Authentication (Please enter)' window.")
else
TestsOK("Filled 'Password:' field in 'TeamViewer Authentication (Please enter)' window with '" nPassword "'.")
}
}
}
}
}
}
}
TestsTotal++
if bContinue
{
ControlClick, Button1, TeamViewer Authentication, Please enter
if ErrorLevel
TestsFailed("Unable to click 'Log On' button in 'TeamViewer Authentication (Please enter)' window.")
else
{
WinWaitClose, TeamViewer Authentication, Please enter, 3
if ErrorLevel
TestsFailed("'TeamViewer Authentication (Please enter)' failed to close despite 'Log On' button being clicked.")
else
{
SetTitleMatchMode, 2 ; A window's title can contain WinTitle anywhere inside it to be a match.
WinWaitActive, - TeamViewer, TV_CClientToolBar, 5 ; Actual remote control window. 2k3 and XP wnd captions differs
if ErrorLevel
TestsFailed("'- TeamViewer' window (TitleMatchMode=" A_TitleMatchMode ") failed to appear.")
else
{
ControlGetPos,,, Width, Height, TV_REMOTEDESKTOP_CLASS1, - TeamViewer, TV_CClientToolBar
if (!Width)
TestsFailed("Unable to get 'TV_REMOTEDESKTOP_CLASS1' control size of '- TeamViewer' window (TitleMatchMode=" A_TitleMatchMode ").")
else
{
SetFormat, float, 0.0 ; Integer
nMiddleX := Width / 2
nMiddleY := Height / 2
Click, %nMiddleX%, %nMiddleY%
clipboard = ; clean
SendInput, ^a ; Select All
SendInput, ^c ; Ctrl+C aka Copy
ClipWait, 3
if ErrorLevel
TestsFailed("Clipboard contains no text. Unable to focus 'welcome - WordPad' window in remote desktop?")
else
{
szSearchFor = Have fun with testing TeamViewer
IfNotInString, clipboard, %szSearchFor%
TestsFailed("Clipboard text does NOT contain '" szSearchFor "'. Clipboard='" clipboard "'")
else
TestsOK("Connecte to '" szPartnerID "' with '" nPassword "' as a password and copied some text of remote desktop.")
}
}
}
}
}
}
TestsTotal++
if bContinue
{
WinClose, - TeamViewer, TV_CClientToolBar
WinWaitClose, - TeamViewer, TV_CClientToolBar, 3
if ErrorLevel
TestsFailed("'- TeamViewer' window (TitleMatchMode=" A_TitleMatchMode ") failed to close.")
else
{
WinWaitActive, TeamViewer, The session with, 3
if ErrorLevel
TestsFailed("'TeamViewer (The session with)' window failed to appear despite '- TeamViewer' window (TitleMatchMode=" A_TitleMatchMode ") being closed.")
else
{
WinClose, TeamViewer, The session with
WinWaitClose, TeamViewer, The session with, 3
if ErrorLevel
TestsFailed("'TeamViewer (The session with)' window failed to close.")
else
{
Process, WaitClose, %ProcessExe%, 5
if ErrorLevel
TestsFailed("'" ProcessExe "' process failed to close despite 'TeamViewer (The session with)' window being closed.")
else
TestsOK("Closed 'TeamViewer (The session with)' window and '" ProcessExe "' closed too.")
}
}
}
}

92
TeamViewer/7.0/prepare.ahk Normal file
View File

@ -0,0 +1,92 @@
/*
* Designed for TeamViewer 7.0 (7.0.12979)
* Copyright (C) 2013 Edijs Kolesnikovics
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*/
TestName = prepare
; Test if the app is installed
TestsTotal++
RegRead, UninstallerPath, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\TeamViewer 7, UninstallString
if ErrorLevel
TestsFailed("Either registry key does not exist or we failed to read it.")
else
{
SplitPath, UninstallerPath,, InstalledDir
if (InstalledDir = "")
TestsFailed("Either registry contains empty string or we failed to read it.")
else
{
ModuleExe = %InstalledDir%\TeamViewer.exe
TestsOK("")
}
}
; Terminate application
if bContinue
{
SplitPath, ModuleExe, ProcessExe
bTerminateProcess(ProcessExe)
}
; Delete settings separately from RunApplication() in case we want to write our own settings
TestsTotal++
if bContinue
{
RegDelete, HKEY_CURRENT_USER, Software\TeamViewer
RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\TeamViewer\Version7\MsgBoxDontShow, UpdateIconSwitch, 1
if ErrorLevel
TestsFailed("Unable to write to the registry.")
else
TestsOK("")
}
; Test if can start application
RunApplication(PathToFile)
{
global ModuleExe
global TestName
global TestsTotal
global bContinue
global ProcessExe
TestsTotal++
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe%
WinWaitActive, TeamViewer, Ready to connect, 5
if ErrorLevel
{
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("RunApplication(): Window 'TeamViewer (Ready to connect)' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("RunApplication(): Window 'TeamViewer (Ready to connect)' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")
}
}
}

13
TeamViewer/7.0/zz_teamviewer_7.0_test.ahk
View File

@ -24,6 +24,7 @@ params =
(
1.install
2.demo_partner
)
@ -34,6 +35,18 @@ if CheckParam()
{
#include install_test.ahk
}
else
{
if 1 != --list
{
#include prepare.ahk
if 1 = 2.demo_partner
{
#include demo_partner.ahk
}
}
}
}
ShowTestResults()