mirror of
https://github.com/reactos/ahk_tests.git
synced 2024-11-27 13:30:39 +00:00
0175394c10
Match new design, add few more checks. Both tests works on clean snapshot of win2k3 sp2. svn path=/trunk/ahk_tests/; revision=1638
259 lines
10 KiB
AutoHotkey
259 lines
10 KiB
AutoHotkey
/*
|
|
* Designed for Total Commander 8.0
|
|
* Copyright (C) 2012 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
|
|
*/
|
|
|
|
ModulEExe = %A_WorkingDir%\Apps\Total Commander 8.0 Setup.exe
|
|
TestName = 1.install
|
|
InstallToDir = %A_ProgramFiles%\Total Commander ; This is where we are going to install
|
|
MainAppFile = TOTALCMD.exe ; Mostly this is going to be process we need to look for
|
|
|
|
; Test if Setup file exists, if so, delete installed files, and run Setup
|
|
TestsTotal++
|
|
IfNotExist, %ModuleExe%
|
|
TestsFailed("'" ModuleExe "' not found.")
|
|
else
|
|
{
|
|
Process, Close, %MainAppFile% ; Teminate process
|
|
Process, WaitClose, %MainAppFile%, 4
|
|
if ErrorLevel ; The PID still exists.
|
|
TestsFailed("Unable to terminate '" MainAppFile "' process.") ; So, process still exists
|
|
else
|
|
{
|
|
RegRead, UninstallerPath, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Totalcmd, UninstallString
|
|
if ErrorLevel
|
|
{
|
|
; There was a problem (such as a nonexistent key or value).
|
|
; That probably means we have not installed this app before.
|
|
; Check in default directory to be extra sure
|
|
IfNotExist, %InstallToDir%
|
|
bContinue := true ; No previous versions detected in hardcoded path
|
|
else
|
|
{
|
|
bHardcoded := true ; To know if we got path from registry or not
|
|
IfExist, %InstallToDir%\tcuninst.exe
|
|
{
|
|
RunWait, %InstallToDir%\tcuninst.exe /7 ; Silently uninstall it
|
|
Sleep, 7000
|
|
}
|
|
|
|
IfNotExist, %InstallToDir% ; Uninstaller might delete the dir
|
|
bContinue := true
|
|
{
|
|
FileRemoveDir, %InstallToDir%, 1
|
|
if ErrorLevel
|
|
TestsFailed("Unable to delete hardcoded path '" InstallToDir "' ('" MainAppFile "' process is reported as terminated).'")
|
|
else
|
|
bContinue := true
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
SplitPath, UninstallerPath,, InstalledDir
|
|
IfNotExist, %InstalledDir%
|
|
bContinue := true
|
|
else
|
|
{
|
|
IfExist, %UninstallerPath%
|
|
{
|
|
RunWait, %UninstallerPath% /7 ; Silently uninstall it
|
|
Sleep, 7000
|
|
}
|
|
|
|
IfNotExist, %InstalledDir%
|
|
bContinue := true
|
|
else
|
|
{
|
|
FileRemoveDir, %InstalledDir%, 1 ; Delete just in case
|
|
if ErrorLevel
|
|
TestsFailed("Unable to delete existing '" InstalledDir "' ('" MainAppFile "' process is reported as terminated).")
|
|
else
|
|
bContinue := true
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if bContinue
|
|
{
|
|
RegDelete, HKEY_CURRENT_USER, SOFTWARE\Ghisler
|
|
RegDelete, HKEY_LOCAL_MACHINE, SOFTWARE\MicroSoft\Windows\CurrentVersion\Uninstall\Totalcmd
|
|
IfExist, %A_AppData%\GHISLER
|
|
{
|
|
FileRemoveDir, %A_AppData%\GHISLER, 1
|
|
if ErrorLevel
|
|
TestsFailed("Unable to delete '" A_AppData "\GHISLER'.")
|
|
}
|
|
|
|
if bContinue
|
|
{
|
|
if bHardcoded
|
|
TestsOK("Either there was no previous versions or we succeeded removing it using hardcoded path.")
|
|
else
|
|
TestsOK("Either there was no previous versions or we succeeded removing it using data from registry.")
|
|
Run %ModuleExe%
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
; Test if 'Please select a language' window appeared
|
|
TestsTotal++
|
|
if bContinue
|
|
{
|
|
WinWaitActive, Installation Total Commander 32+64bit 8.0, Please select a language, 15
|
|
if ErrorLevel
|
|
TestsFailed("'Installation Total Commander 32+64bit 8.0 (Please select a language)' window failed to appear.")
|
|
else
|
|
{
|
|
Sleep, 700
|
|
; Hit 'Next' button. Specify all params in case some other window will pop up
|
|
ControlClick, Button3, Installation Total Commander 32+64bit 8.0, Please select a language
|
|
if ErrorLevel
|
|
TestsFailed("Unable to click 'Next' in 'Installation Total Commander 32+64bit 8.0 (Please select a language)' window.")
|
|
else
|
|
TestsOK("'Installation Total Commander 32+64bit 8.0 (Please select a language)' window appeared and 'Next' button was clicked.")
|
|
}
|
|
}
|
|
|
|
|
|
; Test if 'Do you also' window appeared
|
|
TestsTotal++
|
|
if bContinue
|
|
{
|
|
WinWaitActive, Installation Total Commander 32+64bit 8.0, Do you also, 5
|
|
if ErrorLevel
|
|
TestsFailed("'Installation Total Commander 32+64bit 8.0 (Do you also)' window failed to appear.")
|
|
else
|
|
{
|
|
Sleep, 700
|
|
ControlClick, Button3, Installation Total Commander 32+64bit 8.0, Do you also
|
|
if ErrorLevel
|
|
TestsFailed("Unable to click 'Next' in 'Installation Total Commander 32+64bit 8.0 (Do you also)' window.")
|
|
else
|
|
TestsOK("'Installation Total Commander 32+64bit 8.0 (Do you also)' window appeared and 'Next' button was clicked.")
|
|
}
|
|
}
|
|
|
|
|
|
; Test if 'Please enter target directory' window appeared
|
|
TestsTotal++
|
|
if bContinue
|
|
{
|
|
WinWaitActive, Installation Total Commander 32+64bit 8.0, Please enter target directory, 5
|
|
if ErrorLevel
|
|
TestsFailed("'Installation Total Commander 32+64bit 8.0 (Please enter target directory)' window failed to appear.")
|
|
else
|
|
{
|
|
ControlSetText, Edit1, %InstallToDir%, Installation Total Commander 32+64bit 8.0, Please enter target directory
|
|
if ErrorLevel
|
|
TestsFailed("Unable to enter '" InstallToDir "' in 'Installation Total Commander 32+64bit 8.0 (Please enter target directory)' window.")
|
|
else
|
|
{
|
|
Sleep, 700
|
|
ControlClick, Button2, Installation Total Commander 32+64bit 8.0, Please enter target directory
|
|
if ErrorLevel
|
|
TestsFailed("Unable to click 'Next' in 'Installation Total Commander 32+64bit 8.0 (Please enter target directory)' window.")
|
|
else
|
|
TestsOK("'Installation Total Commander 32+64bit 8.0 (Please enter target directory)' window appeared, dir changed, 'Next' button was clicked.")
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
; Test if 'You can define' window appeared
|
|
TestsTotal++
|
|
if bContinue
|
|
{
|
|
WinWaitActive, Installation Total Commander 32+64bit 8.0, You can define, 5
|
|
if ErrorLevel
|
|
TestsFailed("'Installation Total Commander 32+64bit 8.0 (You can define)' window failed to appear.")
|
|
else
|
|
{
|
|
Sleep, 700
|
|
ControlClick, Button1, Installation Total Commander 32+64bit 8.0, You can define
|
|
if ErrorLevel
|
|
TestsFailed("Unable to click 'Next' in 'Installation Total Commander 32+64bit 8.0 (You can define)' window.")
|
|
else
|
|
TestsOK("'Installation Total Commander 32+64bit 8.0 (You can define)' window appeared and 'Next' button was clicked.")
|
|
}
|
|
}
|
|
|
|
|
|
; Test if 'Create shortcut' window appeared
|
|
TestsTotal++
|
|
if bContinue
|
|
{
|
|
WinWaitActive, Installation Total Commander 32+64bit 8.0, Create shortcut, 5
|
|
if ErrorLevel
|
|
TestsFailed("'Installation Total Commander 32+64bit 8.0 (Create shortcut)' window failed to appear.")
|
|
else
|
|
{
|
|
Sleep, 700
|
|
ControlClick, Button1, Installation Total Commander 32+64bit 8.0, Create shortcut
|
|
if ErrorLevel
|
|
TestsFailed("Unable to click 'Next' in 'Installation Total Commander 32+64bit 8.0 (Create shortcut)' window.")
|
|
else
|
|
TestsOK("'Installation Total Commander 32+64bit 8.0 (Create shortcut)' window appeared and 'Next' button was clicked.")
|
|
}
|
|
}
|
|
|
|
|
|
; Test if 'Installation successful' window appeared
|
|
TestsTotal++
|
|
if bContinue
|
|
{
|
|
WinWaitActive, Installation Total Commander 32+64bit 8.0, Installation successful, 5
|
|
if ErrorLevel
|
|
TestsFailed("'Installation Total Commander 32+64bit 8.0 (Installation successful)' window failed to appear.")
|
|
else
|
|
{
|
|
Sleep, 700
|
|
ControlClick, Button1, Installation Total Commander 32+64bit 8.0, Installation successful
|
|
if ErrorLevel
|
|
TestsFailed("Unable to click 'OK' in 'Installation Total Commander 32+64bit 8.0 (Installation successful)' window. ")
|
|
else
|
|
{
|
|
WinWaitClose, Installation Total Commander 32+64bit 8.0,, 5
|
|
if ErrorLevel
|
|
TestsFailed("'Installation Total Commander 32+64bit 8.0' window failed to close.")
|
|
else
|
|
TestsOK("'Installation Total Commander 32+64bit 8.0 (Installation successful)' window appeared, 'OK' button was clicked and window closed.")
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
; Check if program exists
|
|
TestsTotal++
|
|
if bContinue
|
|
{
|
|
Sleep, 2000
|
|
RegRead, UninstallerPath, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Totalcmd, UninstallString
|
|
if ErrorLevel
|
|
TestsFailed("Either we can't read from registry or data doesn't exist.")
|
|
else
|
|
{
|
|
SplitPath, UninstallerPath,, InstalledDir
|
|
IfNotExist, %InstalledDir%\%MainAppFile%
|
|
TestsFailed("Something went wrong, can't find '" InstalledDir "\" MainAppFile "'.")
|
|
else
|
|
TestsOK("The application has been installed, because '" InstalledDir "\" MainAppFile "' was found.")
|
|
}
|
|
}
|