reactos/ahk_tests
1
0
Fork 0
mirror of https://github.com/reactos/ahk_tests.git synced 2024-11-23 03:29:39 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[AHK]

Browse Source 
prepare: Since we have separate files, we can't get correct line numbers, so, use function name (if any) in debug logs to help to identify what is where.

svn path=/trunk/ahk_tests/; revision=1957
This commit is contained in:
Edijs Kolesnikovičs 2013-02-08 18:30:22 +00:00
parent 18c85dd208
commit ac8d64773c
42 changed files with 238 additions and 240 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Abiword/2.6.4/prepare.ahk
View File

@ -66,7 +66,7 @@ RunApplication(PathToFile)
TestsTotal++
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
if PathToFile =
@ -78,9 +78,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'Untitled1 - AbiWord' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Untitled1 - AbiWord' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'Untitled1 - AbiWord' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Untitled1 - AbiWord' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")
@ -88,7 +88,7 @@ RunApplication(PathToFile)
else
{
IfNotExist, %PathToFile%
TestsFailed("Can NOT find '" PathToFile "'.")
TestsFailed("RunApplication(): Can NOT find '" PathToFile "'.")
else
{
Run, %ModuleExe% "%PathToFile%",, Max
@ -99,9 +99,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window '" NameExt " - AbiWord' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt " - AbiWord' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window '" NameExt " - AbiWord' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt " - AbiWord' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")

12
Abiword/2.9.2/prepare.ahk
View File

@ -66,7 +66,7 @@ RunApplication(PathToFile)
TestsTotal++
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
if PathToFile =
@ -78,9 +78,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'Untitled1 - AbiWord' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Untitled1 - AbiWord' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'Untitled1 - AbiWord' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Untitled1 - AbiWord' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")
@ -88,7 +88,7 @@ RunApplication(PathToFile)
else
{
IfNotExist, %PathToFile%
TestsFailed("Can NOT find '" PathToFile "'.")
TestsFailed("RunApplication(): Can NOT find '" PathToFile "'.")
else
{
Run, %ModuleExe% "%PathToFile%",, Max
@ -99,9 +99,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window '" NameExt " - AbiWord' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt " - AbiWord' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window '" NameExt " - AbiWord' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt " - AbiWord' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")

8
Abyss Web Server X1/2.7/prepare.ahk
View File

@ -59,7 +59,7 @@ TerminateAbyss() ; Terminate application function
Process, Close, %ProcessExe%
Process, WaitClose, %ProcessExe%, 4
if ErrorLevel
TestsFailed("Unable to terminate '" ProcessExe "' process.")
TestsFailed("TerminateAbyss(): Unable to terminate '" ProcessExe "' process.")
else
TestsOK("")
}
@ -96,7 +96,7 @@ RunApplication(PathToFile)
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe%
@ -106,9 +106,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'Abyss Web Server (A configuration file was created)' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Abyss Web Server (A configuration file was created)' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'Abyss Web Server (A configuration file was created)' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Abyss Web Server (A configuration file was created)' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")

10
Adobe Reader/7.1.0/prepare.ahk
View File

@ -80,7 +80,7 @@ RunApplication(PathToFile)
{
RegWrite, REG_DWORD, HKEY_LOCAL_MACHINE, SOFTWARE\Adobe\Acrobat Reader\7.0\AdobeViewer, EULA, 1 ; Accept EULA
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
if PathToFile =
@ -92,9 +92,9 @@ RunApplication(PathToFile)
Process, Exist, AcroRd32.exe
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'Adobe Reader' failed to appear. No 'AcroRd32.exe' process detected.")
TestsFailed("RunApplication(): Window 'Adobe Reader' failed to appear. No 'AcroRd32.exe' process detected.")
else
TestsFailed("Window 'Adobe Reader' failed to appear. 'AcroRd32.exe' process detected.")
TestsFailed("RunApplication(): Window 'Adobe Reader' failed to appear. 'AcroRd32.exe' process detected.")
}
else
TestsOK("")
@ -113,9 +113,9 @@ RunApplication(PathToFile)
Process, Exist, AcroRd32.exe.exe
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'Adobe Reader - [" NameExt "]' failed to appear. No 'AcroRd32.exe.exe' process detected.")
TestsFailed("RunApplication(): Window 'Adobe Reader - [" NameExt "]' failed to appear. No 'AcroRd32.exe.exe' process detected.")
else
TestsFailed("Window 'Adobe Reader - [" NameExt "]' failed to appear. 'AcroRd32.exe.exe' process detected.")
TestsFailed("RunApplication(): Window 'Adobe Reader - [" NameExt "]' failed to appear. 'AcroRd32.exe.exe' process detected.")
}
else
TestsOK("")

10
Aida32/3.94.2/prepare.ahk
View File

@ -33,17 +33,17 @@ RunApplication()
Process, Close, aida32.exe
Process, WaitClose, aida32.exe, 4
if ErrorLevel
TestsFailed("Process 'aida32.exe' failed to close.")
TestsFailed("RunApplication(): Process 'aida32.exe' failed to close.")
else
{
Process, Close, aida32.bin
Process, WaitClose, aida32.bin, 4
if ErrorLevel
TestsFailed("Process 'aida32.bin' failed to close.")
TestsFailed("RunApplication(): Process 'aida32.bin' failed to close.")
else
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe% ; 'Max' doesn't work with aida32
@ -53,9 +53,9 @@ RunApplication()
Process, Exist, aida32.bin
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'AIDA32 - Enterprise System Information' failed to appear. No 'aida32.bin' process detected.")
TestsFailed("RunApplication(): Window 'AIDA32 - Enterprise System Information' failed to appear. No 'aida32.bin' process detected.")
else
TestsFailed("Window 'AIDA32 - Enterprise System Information' failed to appear. 'aida32.bin' process detected.")
TestsFailed("RunApplication(): Window 'AIDA32 - Enterprise System Information' failed to appear. 'aida32.bin' process detected.")
}
else
{

6
Audio Grabber/1.83 SE/prepare.ahk
View File

@ -96,7 +96,7 @@ RunApplication()
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe%
@ -106,9 +106,9 @@ RunApplication()
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'Audiograbber' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Audiograbber' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'Audiograbber' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Audiograbber' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")

8
DOSBox/0.72/prepare.ahk
View File

@ -33,11 +33,11 @@ RunApplication()
Process, Close, dosbox.exe
Process, WaitClose, dosbox.exe, 4
if ErrorLevel
TestsFailed("Process 'dosbox.exe' failed to close.")
TestsFailed("RunApplication(): Process 'dosbox.exe' failed to close.")
else
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe%
@ -48,9 +48,9 @@ RunApplication()
Process, Exist, dosbox.exe
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'DOSBox 0.72' failed to appear (SetTitleMatchMode=" A_TitleMatchMode "). No 'dosbox.exe' process detected.")
TestsFailed("RunApplication(): Window 'DOSBox 0.72' failed to appear (SetTitleMatchMode=" A_TitleMatchMode "). No 'dosbox.exe' process detected.")
else
TestsFailed("Window 'DOSBox 0.72' failed to appear (SetTitleMatchMode=" A_TitleMatchMode "). 'dosbox.exe' process detected.")
TestsFailed("RunApplication(): Window 'DOSBox 0.72' failed to appear (SetTitleMatchMode=" A_TitleMatchMode "). 'dosbox.exe' process detected.")
}
else
{

8
DOSBox/0.74/prepare.ahk
View File

@ -33,11 +33,11 @@ RunApplication()
Process, Close, dosbox.exe
Process, WaitClose, dosbox.exe, 4
if ErrorLevel
TestsFailed("Process 'dosbox.exe' failed to close.")
TestsFailed("RunApplication(): Process 'dosbox.exe' failed to close.")
else
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe%
@ -48,9 +48,9 @@ RunApplication()
Process, Exist, dosbox.exe
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'DOSBox 0.74' failed to appear (SetTitleMatchMode=" A_TitleMatchMode "). No 'dosbox.exe' process detected.")
TestsFailed("RunApplication(): Window 'DOSBox 0.74' failed to appear (SetTitleMatchMode=" A_TitleMatchMode "). No 'dosbox.exe' process detected.")
else
TestsFailed("Window 'DOSBox 0.74' failed to appear (SetTitleMatchMode=" A_TitleMatchMode "). 'dosbox.exe' process detected.")
TestsFailed("RunApplication(): Window 'DOSBox 0.74' failed to appear (SetTitleMatchMode=" A_TitleMatchMode "). 'dosbox.exe' process detected.")
}
else
{

10
Double Commander/0.5.4/prepare.ahk
View File

@ -83,7 +83,7 @@ WriteSettings()
szPathLeft = %A_AppData%\doublecmd\TestPath ; The path we gonna see in left side of app window
FileCreateDir, %szPathLeft%
if ErrorLevel
TestsFailed("Unable to create '" szPathLeft "' directory.")
TestsFailed("WriteSettings(): Unable to create '" szPathLeft "' directory.")
else
{
szSettingsFile = %A_AppData%\doublecmd\doublecmd.xml
@ -117,7 +117,7 @@ WriteSettings()
</doublecmd>
), %szSettingsFile%
if ErrorLevel
TestsFailed("Unable to create '" szSettingsFile "'.")
TestsFailed("WriteSettings(): Unable to create '" szSettingsFile "'.")
else
TestsOK("")
}
@ -138,7 +138,7 @@ RunApplication()
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe% ; Max doesn't work here
@ -148,9 +148,9 @@ RunApplication()
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'Double Commander' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Double Commander' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'Double Commander' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Double Commander' failed to appear. '" ProcessExe "' process detected.")
}
else
{

6
FAR Manager/1.70.2087/prepare.ahk
View File

@ -53,7 +53,7 @@ RunApplication()
else
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe%
@ -63,9 +63,9 @@ RunApplication()
Process, Exist, Far.exe
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window '{" A_ProgramFiles "\Far} - Far' failed to appear. No 'Far.exe' process detected.")
TestsFailed("RunApplication(): Window '{" A_ProgramFiles "\Far} - Far' failed to appear. No 'Far.exe' process detected.")
else
TestsFailed("Window '{" A_ProgramFiles "\Far} - Far' failed to appear. 'Far.exe' process detected.")
TestsFailed("RunApplication(): Window '{" A_ProgramFiles "\Far} - Far' failed to appear. 'Far.exe' process detected.")
}
else
TestsOK("")

18
Filzip/3.0.6/prepare.ahk
View File

@ -71,7 +71,7 @@ RunApplication(PathToFile)
RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Filzip\Config\AutoUpd, AutoUpd, 0
RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Filzip\Config\Settings, RegDialog, 0 ; Disable registration dialog
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
if PathToFile =
@ -84,9 +84,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'Filzip' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Filzip' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'Filzip' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Filzip' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")
@ -94,7 +94,7 @@ RunApplication(PathToFile)
else
{
IfNotExist, %PathToFile%
TestsFailed("Can NOT find '" PathToFile "'.")
TestsFailed("RunApplication(): Can NOT find '" PathToFile "'.")
else
{
Run, %ModuleExe% "%PathToFile%",, Max
@ -106,9 +106,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'Filzip - " NameExt "' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Filzip - " NameExt "' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'Filzip - " NameExt "' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Filzip - " NameExt "' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")
@ -126,17 +126,17 @@ AssociateWithFilzip()
TestsTotal++
WinWaitActive, Associate with Filzip, Never ask again,7
if ErrorLevel
TestsFailed("Window 'Associate with Filzip (Never ask again)' failed to appear.")
TestsFailed("AssociateWithFilzip(): Window 'Associate with Filzip (Never ask again)' failed to appear.")
else
{
ControlClick, TButton2, Associate with Filzip ; Hit 'Associate' button
if ErrorLevel
TestsFailed("Unable to hit 'Associate' button in 'Associate with Filzip (Never ask again)' window.")
TestsFailed("AssociateWithFilzip(): Unable to hit 'Associate' button in 'Associate with Filzip (Never ask again)' window.")
else
{
WinWaitClose, Associate with Filzip, Never ask again, 5
if ErrorLevel
TestsFailed("'Associate with Filzip (Never ask again)' window failed to close despite 'Associate' button being clicked.")
TestsFailed("AssociateWithFilzip(): 'Associate with Filzip (Never ask again)' window failed to close despite 'Associate' button being clicked.")
else
TestsOK("")
}

12
Fox Audio Player/0.9.1/prepare.ahk
View File

@ -55,7 +55,7 @@ RunApplication(PathToFile)
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
if PathToFile =
@ -67,9 +67,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'Fox Audio Player' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Fox Audio Player' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'Fox Audio Player' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Fox Audio Player' failed to appear. '" ProcessExe "' process detected.")
}
else
{
@ -80,7 +80,7 @@ RunApplication(PathToFile)
else
{
IfNotExist, %PathToFile%
TestsFailed("Can NOT find '" PathToFile "'.")
TestsFailed("RunApplication(): Can NOT find '" PathToFile "'.")
else
{
Run, %ModuleExe% "%PathToFile%"
@ -91,9 +91,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window '" name_no_ext "' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" name_no_ext "' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window '" name_no_ext "' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" name_no_ext "' failed to appear. '" ProcessExe "' process detected.")
}
else
{

10
Foxit Reader/2.1.2023/prepare.ahk
View File

@ -70,7 +70,7 @@ RunApplication(PathToFile)
RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Foxit Software\Foxit Reader\MainFrame, CheckRegister, 0
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
if PathToFile =
@ -82,9 +82,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'Foxit Reader 2.1' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Foxit Reader 2.1' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'Foxit Reader 2.1' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Foxit Reader 2.1' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")
@ -103,9 +103,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window '" NameExt " - Foxit Reader 2.1 - [" NameExt "]' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt " - Foxit Reader 2.1 - [" NameExt "]' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window '" NameExt " - Foxit Reader 2.1 - [" NameExt "]' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt " - Foxit Reader 2.1 - [" NameExt "]' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")

6
FreeBASIC/0.24.0/prepare.ahk
View File

@ -65,7 +65,7 @@ RunApplication()
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe%
@ -75,9 +75,9 @@ RunApplication()
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window '" ModuleExe "' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" ModuleExe "' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window '" ModuleExe "' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" ModuleExe "' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")

12
IrfanView/4.23/prepare.ahk
View File

@ -75,7 +75,7 @@ RunApplication(PathToFile)
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
if PathToFile =
@ -87,9 +87,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'IrfanView' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'IrfanView' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'IrfanView' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'IrfanView' failed to appear. '" ProcessExe "' process detected.")
}
else
{
@ -100,7 +100,7 @@ RunApplication(PathToFile)
else
{
IfNotExist, %PathToFile%
TestsFailed("Can NOT find '" PathToFile "'.")
TestsFailed("RunApplication(): Can NOT find '" PathToFile "'.")
else
{
Run, %ModuleExe% "%PathToFile%",, Max
@ -112,9 +112,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window '" NameExt " - IrfanView' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt " - IrfanView' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window '" NameExt " - IrfanView' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt " - IrfanView' failed to appear. '" ProcessExe "' process detected.")
}
else
{

6
Java/6.25/prepare.ahk
View File

@ -57,11 +57,11 @@ RunApplication(PathToFile)
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
IfNotExist, %PathToFile%
TestsFailed("Can NOT find '" PathToFile "'.")
TestsFailed("RunApplication(): Can NOT find '" PathToFile "'.")
else
{
SplitPath, PathToFile,, szPath,,szFileName_no_ext
@ -69,7 +69,7 @@ RunApplication(PathToFile)
Process, wait, %ProcessExe%, 4
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("'" ProcessExe "' process failed to appear.")
TestsFailed("RunApplication(): '" ProcessExe "' process failed to appear.")
else
{
TestsOK("")

18
K-Meleon/1.5.2/prepare.ahk
View File

@ -76,23 +76,23 @@ RunApplication(PathToFile, Title)
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
FileCreateDir, %A_AppData%\K-Meleon\ReactOS.default
if ErrorLevel
TestsFailed("Failed to create dir tree '" A_AppData "\K-Meleon\ReactOS.default'.")
TestsFailed("RunApplication(): Failed to create dir tree '" A_AppData "\K-Meleon\ReactOS.default'.")
else
{
FileAppend, [General]`nStartWithLastProfile=1`n`n[Profile0]`nName=default`nDefault=1`nIsRelative=1`nPath=ReactOS.default`n, %A_AppData%\K-Meleon\profiles.ini
if ErrorLevel
TestsFailed("Failed to create and edit '" A_AppData "\K-Meleon\profiles.ini'.")
TestsFailed("RunApplication(): Failed to create and edit '" A_AppData "\K-Meleon\profiles.ini'.")
else
{
szNoUpdate := "user_pref(""kmeleon.plugins.update.load""`, false)`;" ; Don't check for updates
FileAppend, %szNoUpdate%`n, %A_AppData%\K-Meleon\ReactOS.default\prefs.js
if ErrorLevel
TestsFailed("Failed to create and edit '" A_AppData "\K-Meleon\ReactOS.default\prefs.js'.")
TestsFailed("RunApplication(): Failed to create and edit '" A_AppData "\K-Meleon\ReactOS.default\prefs.js'.")
else
{
; 'Title' param is ignored
@ -105,9 +105,9 @@ RunApplication(PathToFile, Title)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("'K-Meleon 1.5.2 (K-Meleon)' window failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): 'K-Meleon 1.5.2 (K-Meleon)' window failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("'K-Meleon 1.5.2 (K-Meleon)' window failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): 'K-Meleon 1.5.2 (K-Meleon)' window failed to appear. '" ProcessExe "' process detected.")
}
else
{
@ -118,7 +118,7 @@ RunApplication(PathToFile, Title)
else
{
IfNotExist, %PathToFile%
TestsFailed("Can NOT find '" PathToFile "'.")
TestsFailed("RunApplication(): Can NOT find '" PathToFile "'.")
else
{
; FIXME: read <title> from HTML instead of passing it as param2.
@ -129,9 +129,9 @@ RunApplication(PathToFile, Title)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("'" Title " (K-Meleon)' window failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): '" Title " (K-Meleon)' window failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("'" Title " K-Meleon 1.5.2 (K-Meleon)' window failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): '" Title " K-Meleon 1.5.2 (K-Meleon)' window failed to appear. '" ProcessExe "' process detected.")
}
else
{

22
LBreakout2/2.4.1/prepare.ahk
View File

@ -66,7 +66,7 @@ RunApplication()
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe%, %InstalledDir% ; The game wants WorkingDir param
@ -76,9 +76,9 @@ RunApplication()
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'LBreakout2' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'LBreakout2' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'LBreakout2' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'LBreakout2' failed to appear. '" ProcessExe "' process detected.")
}
else
{
@ -87,7 +87,7 @@ RunApplication()
WinGetPos, X, Y, Width, Height, LBreakout2
szWndHeight := 450 ; Game window height in Win2k3 SP2 is 505, specify less to be safe
if (Height < szWndHeight)
TestsFailed("'LBreakout2' window height should be at least '" szWndHeight "', but got '" Height "'. This is not game window, is it?")
TestsFailed("RunApplication(): 'LBreakout2' window height should be at least '" szWndHeight "', but got '" Height "'. This is not game window, is it?")
else
{
LocalGameCoordX := 189 ; Position of "Local Game" in "Menu"
@ -117,11 +117,11 @@ RunApplication()
PixelGetColor, szHintColor, %HintCoordX%, %HintCoordY%, LBreakout2 ; Get pixel color of hint window
if ErrorLevel
TestsFailed("Unable to get '" HintCoordX "x" HintCoordY "' ('A local game with up...' hint) pixel color of 'LBreakout2' window.")
TestsFailed("RunApplication(): Unable to get '" HintCoordX "x" HintCoordY "' ('A local game with up...' hint) pixel color of 'LBreakout2' window.")
else
{
if (szHintColor != szHintColorHard)
TestsFailed("Color of '" HintCoordX "x" HintCoordY "' ('A local game with up...' hint) pixel doesn't match to hardcoded one (is '" szHintColor "', should be '" szHintColorHard "' iTimeOut=" iTimeOut ").")
TestsFailed("RunApplication(): Color of '" HintCoordX "x" HintCoordY "' ('A local game with up...' hint) pixel doesn't match to hardcoded one (is '" szHintColor "', should be '" szHintColorHard "' iTimeOut=" iTimeOut ").")
else
{
MouseClick ; Hardcoded color and the one we got matches, so, we are at 'Local Game', so, click it
@ -149,11 +149,11 @@ RunApplication()
PixelGetColor, szHintColor, %HintCoordX%, %HintCoordY%, LBreakout2 ; Get pixel color of hint window
if ErrorLevel
TestsFailed("Unable to get '" HintCoordX "x" HintCoordY "' ('Lets get in on!' hint) pixel color of 'LBreakout2' window.")
TestsFailed("RunApplication(): Unable to get '" HintCoordX "x" HintCoordY "' ('Lets get in on!' hint) pixel color of 'LBreakout2' window.")
else
{
if (szHintColor != szHintColorHard)
TestsFailed("Color of '" HintCoordX "x" HintCoordY "' ('Lets get in on!' hint) pixel doesn't match to hardcoded one (is '" szHintColor "', should be '" szHintColorHard "' iTimeOut=" iTimeOut ").")
TestsFailed("RunApplication(): Color of '" HintCoordX "x" HintCoordY "' ('Lets get in on!' hint) pixel doesn't match to hardcoded one (is '" szHintColor "', should be '" szHintColorHard "' iTimeOut=" iTimeOut ").")
else
{
MouseClick ; We are at 'Start Game', so, click it
@ -182,13 +182,13 @@ RunApplication()
PixelGetColor, szLiveSideColor, %LiveSideX%, %LiveSideY%, LBreakout2
if ErrorLevel
TestsFailed("Unable to get '" LiveSideX "x" LiveSideY "' pixel color of 'LBreakout2' window.")
TestsFailed("RunApplication(): Unable to get '" LiveSideX "x" LiveSideY "' pixel color of 'LBreakout2' window.")
else
{
if (szLiveSideColor != szLeftSideColorHard)
TestsFailed("Color of '" LiveSideX "x" LiveSidey "' (left side) pixel doesn't match to hardcoded one (is '" szLiveSideColor "', should be '" szLeftSideColorHard "' iTimeOut=" iTimeOut ").")
TestsFailed("RunApplication(): Color of '" LiveSideX "x" LiveSidey "' (left side) pixel doesn't match to hardcoded one (is '" szLiveSideColor "', should be '" szLeftSideColorHard "' iTimeOut=" iTimeOut ").")
else
TestsOK("Started, hit 'Local Game' then 'Start Game' and game appeared.")
TestsOK("RunApplication(): Started, hit 'Local Game' then 'Start Game' and game appeared.")
}
}
}

6
LibreOffice/3.6.2/prepare.ahk
View File

@ -76,7 +76,7 @@ RunApplication()
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe%,, Max ; Start maximized
@ -86,9 +86,9 @@ RunApplication()
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'LibreOffice' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'LibreOffice' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'LibreOffice' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'LibreOffice' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")

20
Media Player Classic - Home Cinema/1.6.3.5626/prepare.ahk
View File

@ -83,7 +83,7 @@ RunApplication(PathToFile)
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
if PathToFile =
@ -94,7 +94,7 @@ RunApplication(PathToFile)
{
WinWaitActive, Media Player Classic Home Cinema,,3
if ErrorLevel
TestsFailed("Window 'Media Player Classic Home Cinema' failed to appear.")
TestsFailed("RunApplication(): Window 'Media Player Classic Home Cinema' failed to appear.")
else
TestsOK("")
}
@ -102,7 +102,7 @@ RunApplication(PathToFile)
else
{
IfNotExist, %PathToFile%
TestsFailed("Can NOT find '" PathToFile "'.")
TestsFailed("RunApplication(): Can NOT find '" PathToFile "'.")
else
{
Run, %ModuleExe% "%PathToFile%",, Max
@ -116,9 +116,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window '" NameExt "' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt "' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window '" NameExt "' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt "' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")
@ -145,22 +145,22 @@ CloseUpdateWnd() ; Waits for update window to appear, then hits 'No' button
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'Media Player Classic (Do you want to check periodically)' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("CloseUpdateWnd(): Window 'Media Player Classic (Do you want to check periodically)' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'Media Player Classic (Do you want to check periodically)' failed to appear. '" ProcessExe "' process detected. Unable to delete HKCU\Software\Gabest?.")
TestsFailed("CloseUpdateWnd(): Window 'Media Player Classic (Do you want to check periodically)' failed to appear. '" ProcessExe "' process detected. Unable to delete HKCU\Software\Gabest?.")
}
else
{
ControlClick, Button2 ; Hit 'No' button
if ErrorLevel
TestsFailed("Unable to hit 'No' button in 'Media Player Classic (Do you want to check periodically)' window.")
TestsFailed("CloseUpdateWnd(): Unable to hit 'No' button in 'Media Player Classic (Do you want to check periodically)' window.")
else
{
WinWaitClose,,,3
if ErrorLevel
TestsFailed("'Media Player Classic (Do you want to check periodically)' window failed to close despite 'No' button being reported as clicked.")
TestsFailed("CloseUpdateWnd(): 'Media Player Classic (Do you want to check periodically)' window failed to close despite 'No' button being reported as clicked.")
else
TestsOK("Said NO to updates.")
TestsOK("CloseUpdateWnd(): Said NO to updates.")
}
}
}

20
Miranda IM/0.10.0/prepare.ahk
View File

@ -81,7 +81,7 @@ RunApplication()
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe%
@ -91,41 +91,39 @@ RunApplication()
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'Miranda IM Profile Manager (Please complete)' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Miranda IM Profile Manager (Please complete)' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'Miranda IM Profile Manager (Please complete)' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Miranda IM Profile Manager (Please complete)' failed to appear. '" ProcessExe "' process detected.")
}
else
{
SendInput, TestProfile ; 'Profile' field is focused by default
ControlGetText, ProfileName, Edit1, Miranda IM Profile Manager, Please complete
if ErrorLevel
TestsFailed("Unable to get profile name in 'Miranda IM Profile Manager (Please complete)' window.")
TestsFailed("RunApplication(): Unable to get profile name in 'Miranda IM Profile Manager (Please complete)' window.")
else
{
if (ProfileName != "TestProfile")
TestsFailed("Profile name is not the same as expected (is '" ProfileName "', should be 'TestProfile').")
TestsFailed("RunApplication(): Profile name is not the same as expected (is '" ProfileName "', should be 'TestProfile').")
else
{
SendInput, !c ; Alt+C aka hit 'Create' button
WinWaitClose,,,3
if ErrorLevel
TestsFailed("'Miranda IM Profile Manager (Please complete)' window failed to close despite Alt+C was sent.")
TestsFailed("RunApplication(): 'Miranda IM Profile Manager (Please complete)' window failed to close despite Alt+C was sent.")
else
{
WinWaitActive, Accounts, Configure, 3
if ErrorLevel
TestsFailed("'Accounts (Configure)' window failed to appear.")
TestsFailed("RunApplication(): 'Accounts (Configure)' window failed to appear.")
else
{
SendInput, !a ; Alt+A aka hit '+' (Add) button
WinWaitActive, Create new account, Enter, 3
if ErrorLevel
TestsFailed("'Create new account (Enter)' window failed to appear despite Alt+A was sent.")
TestsFailed("RunApplication(): 'Create new account (Enter)' window failed to appear despite Alt+A was sent.")
else
{
TestsOK("'Create new account (Enter)' window is an active window.")
}
TestsOK("RunApplication(): 'Create new account (Enter)' window is an active window.")
}
}
}

6
Mono .net Development Framework/2.11.2/prepare.ahk
View File

@ -65,16 +65,16 @@ RunApplication(PathToFile)
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe% "%PathToFile%"
Process, wait, %ProcessExe%, 3
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("'" ProcessExe "' process failed to appear.")
TestsFailed("RunApplication(): '" ProcessExe "' process failed to appear.")
else
TestsOK("'" ProcessExe "' process appeared.")
TestsOK("RunApplication(): '" ProcessExe "' process appeared.")
}
}
}

12
NET Framework/2.0.50727/prepare.ahk
View File

@ -50,7 +50,7 @@ RunApplication()
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe%
@ -68,20 +68,20 @@ RunApplication()
if NewPID = 0
{
if bNETinstalled
TestsFailed("Window 'Hello from .NET (.NET apps work)' failed to appear, despite '" szNETfile "' exists. Different NET version? No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Hello from .NET (.NET apps work)' failed to appear, despite '" szNETfile "' exists. Different NET version? No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'Hello from .NET (.NET apps work)' failed to appear. '" szNETfile "' does not exist. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Hello from .NET (.NET apps work)' failed to appear. '" szNETfile "' does not exist. No '" ProcessExe "' process detected.")
}
else
{
if bNETinstalled
TestsFailed("Window 'Hello from .NET (.NET apps work)' failed to appear, despite '" szNETfile "' exists. Different NET version? '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Hello from .NET (.NET apps work)' failed to appear, despite '" szNETfile "' exists. Different NET version? '" ProcessExe "' process detected.")
else
TestsFailed("Window 'Hello from .NET (.NET apps work)' failed to appear. '" szNETfile "' does not exist. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Hello from .NET (.NET apps work)' failed to appear. '" szNETfile "' does not exist. '" ProcessExe "' process detected.")
}
}
else
TestsOK("'Hello from .NET (.NET apps work)' window appeared.")
TestsOK("RunApplication(): 'Hello from .NET (.NET apps work)' window appeared.")
}
}
}

10
Notepad Lite/3.3.1.0/prepare.ahk
View File

@ -48,7 +48,7 @@ RunApplication(PathToFile)
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Test failed: Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
if PathToFile =
@ -60,9 +60,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'GridinSoft Notepad Lite - [Untitled-1]' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'GridinSoft Notepad Lite - [Untitled-1]' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'GridinSoft Notepad Lite - [Untitled-1]' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'GridinSoft Notepad Lite - [Untitled-1]' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")
@ -80,9 +80,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'GridinSoft Notepad Lite - [" PathToFile "]' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'GridinSoft Notepad Lite - [" PathToFile "]' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'GridinSoft Notepad Lite - [" PathToFile "]' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'GridinSoft Notepad Lite - [" PathToFile "]' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")

18
Notepad++/6.1.2/prepare.ahk
View File

@ -52,7 +52,7 @@ TerminateApplication()
Process, Close, %ProcessExe%
Process, WaitClose, %ProcessExe%, 4
if ErrorLevel
TestsFailed("Process '" ProcessExe "' failed to close.")
TestsFailed("TerminateApplication(): Process '" ProcessExe "' failed to close.")
else
TestsOK("")
}
@ -68,18 +68,18 @@ RunNotepad(PathToFile)
TestsTotal++
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunNotepad(): Can NOT find '" ModuleExe "'.")
else
{
FileRemoveDir, %A_AppData%\Notepad++, 1
FileCreateDir, %A_AppData%\Notepad++
IfNotExist, %A_WorkingDir%\Media\Notepadpp_config.xml
TestsFailed("Can NOT find '" A_WorkingDir "\Media\Notepadpp_config.xml'.")
TestsFailed("RunNotepad(): Can NOT find '" A_WorkingDir "\Media\Notepadpp_config.xml'.")
else
{
FileCopy, %A_WorkingDir%\Media\Notepadpp_config.xml, %A_AppData%\Notepad++\config.xml
if ErrorLevel <> 0
TestsFailed("Unable to copy '" A_WorkingDir "\Media\Notepadpp_config.xml' to '" A_AppData "\Notepad++\config.xml'.")
TestsFailed("RunNotepad(): Unable to copy '" A_WorkingDir "\Media\Notepadpp_config.xml' to '" A_AppData "\Notepad++\config.xml'.")
else
{
if PathToFile =
@ -91,9 +91,9 @@ RunNotepad(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'new 1 - Notepad++' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunNotepad(): Window 'new 1 - Notepad++' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'new 1 - Notepad++' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunNotepad(): Window 'new 1 - Notepad++' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")
@ -101,7 +101,7 @@ RunNotepad(PathToFile)
else
{
IfNotExist, %PathToFile%
TestsFailed("Can NOT find '" PathToFile "'.")
TestsFailed("RunNotepad(): Can NOT find '" PathToFile "'.")
else
{
Run, %ModuleExe% %PathToFile%,, Max
@ -111,9 +111,9 @@ RunNotepad(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window '" PathToFile " - Notepad++' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunNotepad(): Window '" PathToFile " - Notepad++' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window '" PathToFile " - Notepad++' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunNotepad(): Window '" PathToFile " - Notepad++' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")

8
Off By One Browser/3.5.d/prepare.ahk
View File

@ -95,12 +95,12 @@ RunApplication(PathToFile)
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
FileAppend, [Properties]`nStartPage=, %szSettingsFile% ; Write settings (open blank page on start)
if ErrorLevel
TestsFailed("Unable to create '" szSettingsFile "'.")
TestsFailed("RunApplication(): Unable to create '" szSettingsFile "'.")
else
{
Run, %ModuleExe%,, Max ; Start maximized
@ -110,9 +110,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'The OffByOne Browser' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'The OffByOne Browser' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'The OffByOne Browser' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'The OffByOne Browser' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")

14
OllyDbg/1.10/prepare.ahk
View File

@ -64,12 +64,12 @@ RunApplication(PathToFile)
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
FileAppend, [Settings]`nCheck DLL versions=0`n, %OllyDbgDir%\ollydbg.ini
if ErrorLevel
TestsFailed("Unable to create '" OllyDbgDir "\ollydbg.ini'.")
TestsFailed("RunApplication(): Unable to create '" OllyDbgDir "\ollydbg.ini'.")
else
{
if PathToFile =
@ -81,9 +81,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'OllyDbg' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'OllyDbg' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'OllyDbg' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'OllyDbg' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")
@ -91,7 +91,7 @@ RunApplication(PathToFile)
else
{
IfNotExist, %PathToFile%
TestsFailed("Can NOT find '" PathToFile "'.")
TestsFailed("RunApplication(): Can NOT find '" PathToFile "'.")
else
{
Run, %ModuleExe% "%PathToFile%",, Max
@ -102,9 +102,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'OllyDbg - " NameExt " (CPU - main thread, module " name_no_ext ")' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'OllyDbg - " NameExt " (CPU - main thread, module " name_no_ext ")' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'OllyDbg - " NameExt " (CPU - main thread, module " name_no_ext ")' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'OllyDbg - " NameExt " (CPU - main thread, module " name_no_ext ")' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")

6
PuTTY/0.62/prepare.ahk
View File

@ -76,7 +76,7 @@ RunApplication()
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe%
@ -86,9 +86,9 @@ RunApplication()
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'PuTTY Configuration (Specify the destination)' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'PuTTY Configuration (Specify the destination)' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'PuTTY Configuration (Specify the destination)' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'PuTTY Configuration (Specify the destination)' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")

10
Python/3.2.3/prepare.ahk
View File

@ -58,7 +58,7 @@ RunApplication(PathToFile)
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
if PathToFile =
@ -70,9 +70,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'Python Shell' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Python Shell' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'Python Shell' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Python Shell' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")
@ -80,14 +80,14 @@ RunApplication(PathToFile)
else
{
IfNotExist, %PathToFile%
TestsFailed("Can NOT find '" PathToFile "'.")
TestsFailed("RunApplication(): Can NOT find '" PathToFile "'.")
else
{
Run, %ModuleExe% %PathToFile% ; Open file
Process, Wait, %ProcessExe%, 4
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("'" ProcessExe "' process NOT detected.")
TestsFailed("RunApplication(): '" ProcessExe "' process NOT detected.")
else
TestsOK("")
}

8
ReactOS/Paint/prepare.ahk
View File

@ -47,7 +47,7 @@ RunApplication(PathToFile)
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
if PathToFile =
@ -55,21 +55,21 @@ RunApplication(PathToFile)
Run, %ModuleExe%,, Max ; Start maximized
WinWaitActive, untitled - Paint,,7
if ErrorLevel
TestsFailed("Window 'untitled - paint' failed to appear.")
TestsFailed("RunApplication(): Window 'untitled - paint' failed to appear.")
else
TestsOK("")
}
else
{
IfNotExist, %PathToFile%
TestsFailed("Can NOT find '" PathToFile "'.")
TestsFailed("RunApplication(): Can NOT find '" PathToFile "'.")
else
{
Run, %ModuleExe% "%PathToFile%",, Max
SplitPath, PathToFile, NameExt
WinWaitActive, %NameExt% - Paint,,7
if ErrorLevel
TestsFailed("Window '" NameExt " - Paint' failed to appear.")
TestsFailed("RunApplication(): Window '" NameExt " - Paint' failed to appear.")
else
TestsOK("")
}

12
SMPlayer/0.6.9/prepare.ahk
View File

@ -68,7 +68,7 @@ RunApplication(PathToFile)
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
if PathToFile =
@ -80,9 +80,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'SMPlayer' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'SMPlayer' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'SMPlayer' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'SMPlayer' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")
@ -90,7 +90,7 @@ RunApplication(PathToFile)
else
{
IfNotExist, %PathToFile%
TestsFailed("Can NOT find '" PathToFile "'.")
TestsFailed("RunApplication(): Can NOT find '" PathToFile "'.")
else
{
Run, %ModuleExe% "%PathToFile%"
@ -101,9 +101,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window '" NameExt " - SMPlayer' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt " - SMPlayer' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window '" NameExt " - SMPlayer' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt " - SMPlayer' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")

12
SciTE/1.77/prepare.ahk
View File

@ -44,7 +44,7 @@ RunApplication(PathToFile)
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
if PathToFile =
@ -56,9 +56,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window '(Untitled) - SciTE' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '(Untitled) - SciTE' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window '(Untitled) - SciTE' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '(Untitled) - SciTE' failed to appear. '" ProcessExe "' process detected.")
}
else
{
@ -69,7 +69,7 @@ RunApplication(PathToFile)
else
{
IfNotExist, %PathToFile%
TestsFailed("Can NOT find '" PathToFile "'.")
TestsFailed("RunApplication(): Can NOT find '" PathToFile "'.")
else
{
Run, %ModuleExe% "%PathToFile%" ; Max does not work here
@ -80,9 +80,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window '" NameExt " - SciTE' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt " - SciTE' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window '" NameExt " - SciTE' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt " - SciTE' failed to appear. '" ProcessExe "' process detected.")
}
else
{

10
SumatraPDF/2.1.1/prepare.ahk
View File

@ -81,7 +81,7 @@ RunApplication(PathToFile)
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
if PathToFile =
@ -93,9 +93,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'SumatraPDF' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'SumatraPDF' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'SumatraPDF' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'SumatraPDF' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")
@ -115,9 +115,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window '" NameExt "' failed to appear (SetTitleMatchMode=" A_TitleMatchMode "). No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt "' failed to appear (SetTitleMatchMode=" A_TitleMatchMode "). No '" ProcessExe "' process detected.")
else
TestsFailed("Window '" NameExt "' failed to appear (SetTitleMatchMode=" A_TitleMatchMode "). '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt "' failed to appear (SetTitleMatchMode=" A_TitleMatchMode "). '" ProcessExe "' process detected.")
}
else
TestsOK("")

14
Super Finder XT/1.6.3.2/prepare.ahk
View File

@ -69,7 +69,7 @@ RunApplication(PathToFile)
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe%
@ -79,32 +79,32 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window class 'TLangForm' (select your language) failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window class 'TLangForm' (select your language) failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window class 'TLangForm' (select your language) failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window class 'TLangForm' (select your language) failed to appear. '" ProcessExe "' process detected.")
}
else
{
SendInput, {ENTER} ; Choose language and hit 'OK' button.
WinWaitClose, ahk_class TLangForm,,3
if ErrorLevel
TestsFailed("Window class 'TLangForm' (select your language) failed to close despite ENTER was sent.")
TestsFailed("RunApplication(): Window class 'TLangForm' (select your language) failed to close despite ENTER was sent.")
else
{
WinWaitActive, ahk_class TWizardForm,,3 ; 'New Features Wizard' window
if ErrorLevel
TestsFailed("Window class 'TWizardForm' (New Features Wizard) failed to appear.")
TestsFailed("RunApplication(): Window class 'TWizardForm' (New Features Wizard) failed to appear.")
else
{
SendInput, !c ; Alt+C aka hit 'Cancel' button in 'New Features Wizard' window
WinWaitClose, ahk_class TWizardForm,,3
if ErrorLevel
TestsFailed("Window class 'TWizardForm' (New Features Wizard) failed to close despite Alt+C was sent.")
TestsFailed("RunApplication(): Window class 'TWizardForm' (New Features Wizard) failed to close despite Alt+C was sent.")
else
{
WinWaitActive, ahk_class TMainForm,,3 ; 'Super Finder XT' is up and running
if ErrorLevel
TestsFailed("Window class 'TMainForm' (Super Finder XT) failed to appear.")
TestsFailed("RunApplication(): Window class 'TMainForm' (Super Finder XT) failed to appear.")
else
{
WinMaximize, ahk_class TMainForm

16
Tile World/1.3.0/prepare.ahk
View File

@ -52,7 +52,7 @@ RunApplication()
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe%, %InstallLocation% ; The game wants WorkingDir param
@ -62,9 +62,9 @@ RunApplication()
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'Tile World' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Tile World' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'Tile World' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Tile World' failed to appear. '" ProcessExe "' process detected.")
}
else
{
@ -83,17 +83,17 @@ RunApplication()
{
PixelGetColor, color, %CoordX%, %CoordY%
if ErrorLevel
TestsFailed("Unable to get " CoordX "x" CoordY " pixel color.")
TestsFailed("RunApplication(): Unable to get " CoordX "x" CoordY " pixel color.")
else
{
if (color != szColorHard)
TestsFailed("Colors of '" CoordX "x" CoordY "' pixel doesn't match (is '" color "', should be '" szColorHard "').")
TestsFailed("RunApplication(): Colors of '" CoordX "x" CoordY "' pixel doesn't match (is '" color "', should be '" szColorHard "').")
else
{
SendInput, {ENTER}
WinWaitActive, Tile World - A Fleeting Memory,,3
if ErrorLevel
TestsFailed("'Tile World - A Fleeting Memory' window failed to appear.")
TestsFailed("RunApplication(): 'Tile World - A Fleeting Memory' window failed to appear.")
else
{
szBorderHard = 0x707070 ; Border color
@ -119,9 +119,9 @@ RunApplication()
PixelGetColor, szBorderColor, %BorderX%, %BorderY%
if ErrorLevel
TestsFailed("Unable to get " BorderX "x" BorderY " pixel color (iTimeOut=" iTimeOut ").")
TestsFailed("RunApplication(): Unable to get " BorderX "x" BorderY " pixel color (iTimeOut=" iTimeOut ").")
else
TestsOK("Window size is '" Width "x" Height "', '" BorderX "x" BorderY "' (border) pixel color is '" szBorderColor "'. Game is up and running.")
TestsOK("RunApplication(): Window size is '" Width "x" Height "', '" BorderX "x" BorderY "' (border) pixel color is '" szBorderColor "'. Game is up and running.")
}
}
}

12
Total Commander/8.0/prepare.ahk
View File

@ -79,34 +79,34 @@ RunApplication()
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find 'ModuleExe'.")
TestsFailed("RunApplication(): Can NOT find 'ModuleExe'.")
else
{
Run, %ModuleExe%,, Max ; Start maximized
WinWaitActive, Total Commander, Program &information, 10
if ErrorLevel
TestsFailed("'Total Commander (Program information)' window failed to appear.")
TestsFailed("RunApplication(): 'Total Commander (Program information)' window failed to appear.")
else
{
ControlGetText, BtnNumber, TPanel2, Total Commander, Program &information
if ErrorLevel
TestsFailed("Unable to get button number needed to hit in 'Total Commander (Program information)' window.")
TestsFailed("RunApplication(): Unable to get button number needed to hit in 'Total Commander (Program information)' window.")
else
{
SendInput, %BtnNumber% ; Click button to start program
WinWaitActive, Configuration, Layout, 5
if ErrorLevel
TestsFailed("'Configuration (Layout)' window failed to appear.")
TestsFailed("RunApplication(): 'Configuration (Layout)' window failed to appear.")
else
{
ControlClick, TButton30, Configuration, Layout ; Hit 'OK' button
if ErrorLevel
TestsFailed("Unable to hit 'OK' button in 'Configuration (Layout)' window.")
TestsFailed("RunApplication(): Unable to hit 'OK' button in 'Configuration (Layout)' window.")
else
{
WinWaitActive, Total Commander 8.0 - NOT REGISTERED,,5
if ErrorLevel
TestsFailed("'Total Commander 8.0 - NOT REGISTERED' window failed to appear.")
TestsFailed("RunApplication(): 'Total Commander 8.0 - NOT REGISTERED' window failed to appear.")
else
TestsOK("")
}

12
TuxPaint/0.9.21c/prepare.ahk
View File

@ -83,7 +83,7 @@ RunApplication()
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe% ; Maximize button is disabled
@ -93,9 +93,9 @@ RunApplication()
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'Tux Paint' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Tux Paint' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'Tux Paint' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'Tux Paint' failed to appear. '" ProcessExe "' process detected.")
}
else
{
@ -128,13 +128,13 @@ RunApplication()
PixelGetColor, SplashColor, %CoordX%, %CoordY% ; Tux skin color (black)
if ErrorLevel
TestsFailed("Unable to get " CoordX "x" CoordY " pixel color (iTimeOut=" iTimeOut ").")
TestsFailed("RunApplication(): Unable to get " CoordX "x" CoordY " pixel color (iTimeOut=" iTimeOut ").")
else
{
if (SplashColor = szSkinColor)
TestsFailed("Unable to get thru splash screen (iTimeOut=" iTimeOut ").")
TestsFailed("RunApplication(): Unable to get thru splash screen (iTimeOut=" iTimeOut ").")
else
TestsOK("Splash screen closed (iTimeOut=" iTimeOut ").")
TestsOK("RunApplication(): Splash screen closed (iTimeOut=" iTimeOut ").")
}
}
}

6
UltraVNC/1.0.9.6.2/prepare.ahk
View File

@ -83,7 +83,7 @@ RunVNCViewer()
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunVNCViewer(): Can NOT find '" ModuleExe "'.")
else
{
Run, %ModuleExe%
@ -93,9 +93,9 @@ RunVNCViewer()
Process, Exist, %VNCViewerExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'UltraVNC Viewer - Win32 1.0.9.6.2 (Quick Options)' failed to appear. No '" VNCViewerExe "' process detected.")
TestsFailed("RunVNCViewer(): Window 'UltraVNC Viewer - Win32 1.0.9.6.2 (Quick Options)' failed to appear. No '" VNCViewerExe "' process detected.")
else
TestsFailed("Window 'UltraVNC Viewer - Win32 1.0.9.6.2 (Quick Options)' failed to appear. '" VNCViewerExe "' process detected.")
TestsFailed("RunVNCViewer(): Window 'UltraVNC Viewer - Win32 1.0.9.6.2 (Quick Options)' failed to appear. '" VNCViewerExe "' process detected.")
}
else
TestsOK("")

12
VLC Media Player/0.8.6i/prepare.ahk
View File

@ -78,7 +78,7 @@ RunApplication(PathToFile)
TestsTotal++
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
if PathToFile =
@ -90,9 +90,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'VLC media player' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'VLC media player' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'VLC media player' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'VLC media player' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")
@ -100,7 +100,7 @@ RunApplication(PathToFile)
else
{
IfNotExist, %PathToFile%
TestsFailed("Can NOT find '" PathToFile "'.")
TestsFailed("RunApplication(): Can NOT find '" PathToFile "'.")
else
{
Run, %ModuleExe% "%PathToFile%" ; Don't run it maximized
@ -110,9 +110,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'VLC media player' failed to appear when opening '" PathToFile "'. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'VLC media player' failed to appear when opening '" PathToFile "'. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'VLC media player' failed to appear when opening '" PathToFile "'. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'VLC media player' failed to appear when opening '" PathToFile "'. '" ProcessExe "' process detected.")
}
else
TestsOK("")

16
VLC Media Player/2.0.3/prepare.ahk
View File

@ -79,17 +79,17 @@ RunApplication(PathToFile)
TestsTotal++
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
FileCreateDir, %A_AppData%\vlc
if ErrorLevel
TestsFailed("Failed to create '%A_AppData%\vlc'.")
TestsFailed("RunApplication(): Failed to create '%A_AppData%\vlc'.")
else
{
FileAppend, [General]`nIsFirstRun=0`n, %A_AppData%\vlc\vlc-qt-interface.ini ; Overcome 'Privacy and Network Access Policy' dialog
if ErrorLevel
TestsFailed("Failed to create and edit '%A_AppData%\vlc\vlc-qt-interface.ini'.")
TestsFailed("RunApplication(): Failed to create and edit '%A_AppData%\vlc\vlc-qt-interface.ini'.")
else
{
if PathToFile =
@ -102,9 +102,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'VLC media player' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'VLC media player' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'VLC media player' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'VLC media player' failed to appear. '" ProcessExe "' process detected.")
}
else
{
@ -115,7 +115,7 @@ RunApplication(PathToFile)
else
{
IfNotExist, %PathToFile%
TestsFailed("Can NOT find '" PathToFile "'.")
TestsFailed("RunApplication(): Can NOT find '" PathToFile "'.")
else
{
Run, %ModuleExe% "%PathToFile%" ; Don't run it maximized
@ -127,9 +127,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window '" NameExt " - VLC media player' failed to appear when opening '" PathToFile "'. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt " - VLC media player' failed to appear when opening '" PathToFile "'. No '" ProcessExe "' process detected.")
else
TestsFailed("Window '" NameExt " - VLC media player' failed to appear when opening '" PathToFile "'. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '" NameExt " - VLC media player' failed to appear when opening '" PathToFile "'. '" ProcessExe "' process detected.")
}
else
{

8
WinBoard/4.2.7/prepare.ahk
View File

@ -79,20 +79,20 @@ RunApplication()
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'WinBoard Startup (Play against)' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'WinBoard Startup (Play against)' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'WinBoard Startup (Play against)' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'WinBoard Startup (Play against)' failed to appear. '" ProcessExe "' process detected.")
}
else
{
Control, Check,, Button1 ; Check 'Play against a chess engine or match two engines' radiobutton
if ErrorLevel
TestsFailed("Unable to check 'Play against...' radiobutton in 'WinBoard Startup (Play against)' window.")
TestsFailed("RunApplication(): Unable to check 'Play against...' radiobutton in 'WinBoard Startup (Play against)' window.")
else
{
ControlGet, OutputVar, Enabled,, Button5 ; Check if 'OK' button is enabled
if not %OutputVar%
TestsFailed("'Play against...' radiobutton is checked in 'WinBoard Startup (Play against)', but 'OK' button is disabled.")
TestsFailed("RunApplication(): 'Play against...' radiobutton is checked in 'WinBoard Startup (Play against)', but 'OK' button is disabled.")
else
TestsOK("")
}

16
WinRAR/3.80/prepare.ahk
View File

@ -81,7 +81,7 @@ RunApplication(PathToFile)
TestsTotal++
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
TestsFailed("RunApplication(): Can NOT find '" ModuleExe "'.")
else
{
if PathToFile =
@ -94,9 +94,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window 'WinRAR - WinRAR (evaluation copy)' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'WinRAR - WinRAR (evaluation copy)' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window 'WinRAR - WinRAR (evaluation copy)' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window 'WinRAR - WinRAR (evaluation copy)' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")
@ -104,7 +104,7 @@ RunApplication(PathToFile)
else
{
IfNotExist, %PathToFile%
TestsFailed("Can NOT find '" PathToFile "'.")
TestsFailed("RunApplication(): Can NOT find '" PathToFile "'.")
else
{
Run, %ModuleExe% "%PathToFile%",, Max
@ -116,9 +116,9 @@ RunApplication(PathToFile)
Process, Exist, %ProcessExe%
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0
TestsFailed("Window '%NameExt% - WinRAR (evaluation copy)' failed to appear. No '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '%NameExt% - WinRAR (evaluation copy)' failed to appear. No '" ProcessExe "' process detected.")
else
TestsFailed("Window '%NameExt% - WinRAR (evaluation copy)' failed to appear. '" ProcessExe "' process detected.")
TestsFailed("RunApplication(): Window '%NameExt% - WinRAR (evaluation copy)' failed to appear. '" ProcessExe "' process detected.")
}
else
TestsOK("")
@ -136,12 +136,12 @@ WinRARIntegration()
TestsTotal++
WinWaitActive, Settings, Integration,7
if ErrorLevel
TestsFailed("Window 'Settings (Integration)' failed to appear.")
TestsFailed("WinRARIntegration(): Window 'Settings (Integration)' failed to appear.")
else
{
ControlClick, Button27, Settings, Integration ; Hit 'OK' button
if ErrorLevel
TestsFailed("Unable to hit 'OK' button in 'Settings (Integration)' window.")
TestsFailed("WinRARIntegration(): Unable to hit 'OK' button in 'Settings (Integration)' window.")
else
TestsOK("")
}