reactos/ahk_tests
1
0
Fork 0
mirror of https://github.com/reactos/ahk_tests.git synced 2024-11-27 05:20:25 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[AHK_Sunbird_0.9]

Browse Source 
Match new design, add few more checks. 
Both tests works on clean install of win2k3 sp2.

svn path=/trunk/ahk_tests/; revision=1636
This commit is contained in:
Edijs Kolesnikovičs 2012-09-11 04:27:17 +00:00
parent 6df4c2a5d5
commit 18c6bdcac3
4 changed files with 158 additions and 142 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

154
Sunbird/0.9/install_test.ahk
View File

@ -18,83 +18,96 @@
*/
ModuleExe = %A_WorkingDir%\Apps\Sunbird 0.9 Setup.exe
bContinue := false
TestName = 1.install
TestsFailed := 0
TestsOK := 0
TestsTotal := 0
MainAppFile = sunbird.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%
{
OutputDebug, %TestName%:%A_LineNumber%: Test failed: '%ModuleExe%' not found.`n
bContinue := false
}
TestsFailed("'" ModuleExe "' not found.")
else
{
; Get rid of other versions
RegRead, UninstallerPath, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Mozilla Sunbird (0.9), UninstallString
if not ErrorLevel
{
IfExist, %UninstallerPath%
{
Process, Close, sunbird.exe ; Teminate process
Sleep, 1500
RunWait, %UninstallerPath% /S ; Silently uninstall it
Sleep, 3500
; Delete everything just in case
RegDelete, HKEY_LOCAL_MACHINE, SOFTWARE\Mozilla\Mozilla Sunbird
RegDelete, HKEY_LOCAL_MACHINE, SOFTWARE\Mozilla Sunbird 9.0
RegDelete, HKEY_LOCAL_MACHINE, SOFTWARE\MicroSoft\Windows\CurrentVersion\Uninstall\Mozilla Sunbird (2.0.0.18)
SplitPath, UninstallerPath,, InstalledDir
FileRemoveDir, %InstalledDir%, 1
FileRemoveDir, %A_AppData%\Mozilla, 1
Sleep, 1000
IfExist, %InstalledDir%
{
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Failed to delete '%InstalledDir%'.`n
bContinue := false
}
else
{
bContinue := true
}
}
}
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
{
; 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
IfExist, %A_ProgramFiles%\Mozilla Sunbird\uninstall\helper.exe
RegRead, UninstallerPath, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Mozilla Sunbird (0.9), UninstallString
if ErrorLevel
{
Process, Close, sunbird.exe ; Teminate process
Sleep, 1500
RunWait, %A_ProgramFiles%\Mozilla Sunbird\uninstall\helper.exe /S ; Silently uninstall it
Sleep, 2500
FileRemoveDir, %A_ProgramFiles%\Mozilla Sunbird, 1
FileRemoveDir, %A_AppData%\Mozilla, 1
Sleep, 1000
IfExist, %A_ProgramFiles%\Mozilla Sunbird
{
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Previous version detected and failed to delete '%A_ProgramFiles%\Mozilla Sunbird'.`n
bContinue := false
}
; 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, %A_ProgramFiles%\Mozilla Sunbird
bContinue := true ; No previous versions detected in hardcoded path
else
{
bContinue := true
bHardcoded := true ; To know if we got path from registry or not
IfExist, %A_ProgramFiles%\Mozilla Sunbird\uninstall\helper.exe
{
RunWait, %A_ProgramFiles%\Mozilla Sunbird\uninstall\helper.exe /S ; Silently uninstall it
Sleep, 7000
}
IfNotExist, %A_ProgramFiles%\Mozilla Sunbird ; Uninstaller might delete the dir
bContinue := true
{
FileRemoveDir, %A_ProgramFiles%\Mozilla Sunbird, 1
if ErrorLevel
TestsFailed("Unable to delete hardcoded path '" A_ProgramFiles "\Mozilla Sunbird' ('" MainAppFile "' process is reported as terminated).'")
else
bContinue := true
}
}
}
else
{
; No previous versions detected.
bContinue := true
SplitPath, UninstallerPath,, InstalledDir
IfNotExist, %InstalledDir%
bContinue := true
else
{
IfExist, %UninstallerPath%
{
RunWait, %UninstallerPath% /S ; 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
{
Run %ModuleExe%
RegDelete, HKEY_LOCAL_MACHINE, SOFTWARE\Mozilla\Mozilla Sunbird
RegDelete, HKEY_LOCAL_MACHINE, SOFTWARE\Mozilla Sunbird 9.0
RegDelete, HKEY_LOCAL_MACHINE, SOFTWARE\MicroSoft\Windows\CurrentVersion\Uninstall\Mozilla Sunbird (0.9)
IfExist, %A_AppData%\Mozilla
{
FileRemoveDir, %A_AppData%\Mozilla, 1
if ErrorLevel
TestsFailed("Unable to delete '" A_AppData "\Mozilla'.")
}
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%
}
}
}
@ -110,7 +123,7 @@ if bContinue
else
{
OutputDebug, OK: %TestName%:%A_LineNumber%: 'Extracting' window appeared, waiting for it to close.`n
WinWaitClose, Extracting, Cancel, 15
WinWaitClose, Extracting, Cancel, 20
if ErrorLevel
TestsFailed("'Extracting' window failed to dissapear.")
else
@ -123,12 +136,12 @@ if bContinue
TestsTotal++
if bContinue
{
WinWaitActive, Mozilla Sunbird Setup, This wizard, 15
WinWaitActive, Mozilla Sunbird Setup, This wizard, 20
if ErrorLevel
TestsFailed("'Mozilla Sunbird Setup (This wizard)' window failed to appear.")
else
{
Sleep, 250
Sleep, 700
ControlClick, Button2, Mozilla Sunbird Setup, This wizard
if ErrorLevel
TestsFailed("Unable to click 'Next' in 'Mozilla Sunbird Setup (This wizard)' window.")
@ -147,7 +160,7 @@ if bContinue
TestsFailed("'Mozilla Sunbird Setup' window with 'Mozilla Sunbird Setup (License Agreement)' failed to appear.")
else
{
Sleep, 250
Sleep, 700
ControlClick, Button4, Mozilla Sunbird Setup, License Agreement ; check 'I accept' radio button
if ErrorLevel
TestsFailed("Unable to check 'I agree' radio button in 'Mozilla Sunbird Setup (License Agreement)' window.")
@ -180,7 +193,7 @@ if bContinue
TestsFailed("'Mozilla Sunbird Setup (Setup Type)' window failed to appear.")
else
{
Sleep, 250
Sleep, 700
ControlClick, Button2, Mozilla Sunbird Setup, Setup Type
if ErrorLevel
TestsFailed("Unable to click 'Next' in 'Mozilla Sunbird Setup (Setup Type)' window.")
@ -199,7 +212,7 @@ if bContinue
TestsFailed("'Mozilla Sunbird Setup (Installing)' window failed to appear.")
else
{
Sleep, 250
Sleep, 700
OutputDebug, OK: %TestName%:%A_LineNumber%: 'Mozilla Sunbird Setup (Installing)' window appeared, waiting for it to close.`n
WinWaitClose, Mozilla Sunbird Setup, Installing, 35
if ErrorLevel
@ -219,7 +232,7 @@ if bContinue
TestsFailed("'Mozilla Sunbird Setup (Completing)' window failed to appear.")
else
{
Sleep, 250
Sleep, 700
ControlClick, Button4, Mozilla Sunbird Setup, Completing ; Uncheck 'Launch Mozilla Sunbird now'
if ErrorLevel
{
@ -229,6 +242,7 @@ if bContinue
}
else
{
Sleep, 700
ControlClick, Button2, Mozilla Sunbird Setup, Completing ; Hit 'Finish'
if ErrorLevel
TestsFailed("Unable to click 'Finish' in 'Mozilla Sunbird Setup (Completing)' window.")
@ -255,9 +269,11 @@ if bContinue
TestsFailed("Either we can't read from registry or data doesn't exist.")
else
{
IfNotExist, %UninstallerPath%
TestsFailed("Something went wrong, can't find '" UninstallerPath "'.")
SplitPath, UninstallerPath,, InstalledDir
SplitPath, InstalledDir,, InstalledDir ; Split once more
IfNotExist, %InstalledDir%\%MainAppFile%
TestsFailed("Something went wrong, can't find '" InstalledDir "\" MainAppFile "'.")
else
TestsOK("The application has been installed, because '" UninstallerPath "' was found.")
}
TestsOK("The application has been installed, because '" InstalledDir "\" MainAppFile "' was found.")
}
}

12
Sunbird/0.9/new_event.ahk
View File

@ -73,12 +73,16 @@ else
if ErrorLevel
TestsFailed("Window '" TimeString " - Sunbird' is not active.")
else
TestsOK("FIXME: find a way to really make sure we saved the event.") ; Event is saved encrypted in storage.sdb which is always there
{
Process, Close, %ProcessExe%
Process, WaitClose, %ProcessExe%, 4
if ErrorLevel
TestsFailed("Unable to terminate '" ProcessExe "' process.")
else
TestsOK("FIXME: find a way to really make sure we saved the event, '" ProcessExe "' process terminated.") ; Event is saved encrypted in storage.sdb which is always there
}
}
}
}
}
}
Process, Close, sunbird.exe ; Teminate process

88
Sunbird/0.9/prepare.ahk
View File

@ -17,69 +17,79 @@
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*/
bContinue := false
TestsTotal := 0
TestsSkipped := 0
TestsFailed := 0
TestsOK := 0
TestsExecuted := 0
TestName = prepare
; Test if the app is installed
TestsTotal++
RegRead, UninstallerPath, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Mozilla Sunbird (0.9), UninstallString
if ErrorLevel
{
ModuleExe = %A_ProgramFiles%\Mozilla Sunbird\sunbird.exe
OutputDebug, %TestName%:%A_LineNumber%: Can NOT read data from registry. Key might not exist. Using hardcoded path.`n
}
TestsFailed("Either registry key does not exist or we failed to read it.")
else
{
StringReplace, UninstallerPath, UninstallerPath, `",, All ; String contains quotes, replace em
SplitPath, UninstallerPath,, InstalledDir
ModuleExe = %InstalledDir%\..\sunbird.exe ; Go back one folder
SplitPath, InstalledDir,, InstalledDir ; Split path once more
ModuleExe = %InstalledDir%\sunbird.exe
TestsOK("")
}
IfNotExist, %ModuleExe%
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Can NOT find '%ModuleExe%'.`n
else
; Terminate application
TestsTotal++
if bContinue
{
Process, Close, sunbird.exe ; Teminate process
Sleep, 2500 ; To make sure folders are not locked
FileRemoveDir, %A_AppData%\Mozilla, 1 ; Delete all saved settings
Sleep, 1500
IfExist, %A_AppData%\Mozilla
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Seems like we failed to delete '%A_AppData%\Mozilla'.`n
SplitPath, ModuleExe, ProcessExe
Process, Close, %ProcessExe%
Process, WaitClose, %ProcessExe%, 4
if ErrorLevel
TestsFailed("Unable to terminate '" ProcessExe "' process.")
else
TestsOK("")
}
TestsTotal++
if bContinue
{
IfNotExist, %ModuleExe%
TestsFailed("Can NOT find '" ModuleExe "'.")
else
{
FileCreateDir, %A_AppData%\Mozilla\Sunbird\Profiles\ReactOS.default
if ErrorLevel
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Failed to create dir tree '%A_AppData%\Mozilla\Sunbird\ReactOS.default'.`n
FileRemoveDir, %A_AppData%\Mozilla, 1 ; Delete all saved settings
Sleep, 1500
IfExist, %A_AppData%\Mozilla
TestsFailed("Seems like we failed to delete '" A_AppData "\Mozilla'.")
else
{
FileAppend, [General]`nStartWithLastProfile=0`n`n[Profile0]`nName=default`nIsRelative=1`nPath=Profiles/ReactOS.default`n, %A_AppData%\Mozilla\Sunbird\profiles.ini
FileCreateDir, %A_AppData%\Mozilla\Sunbird\Profiles\ReactOS.default
if ErrorLevel
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Failed to create and edit '%A_AppData%\Mozilla\Sunbird\profiles.ini'.`n
TestsFailed("Failed to create dir tree '" A_AppData "\Mozilla\Sunbird\ReactOS.default'.")
else
{
szNoUpdate := "user_pref(""app.update.enabled""`, false)`;`n" ; Disable automatic application update
szNoPluginUpdate := "user_pref(""extensions.update.enabled""`, false)`;" ; Disable automatic extansion update
szUpdateMode := "user_pref(""app.update.mode""`, 0)`;`n" ; Don't warn
FileAppend, %szNoUpdate%%szNoPluginUpdate%%szUpdateMode%, %A_AppData%\Mozilla\Sunbird\Profiles\ReactOS.default\prefs.js
FileAppend, [General]`nStartWithLastProfile=0`n`n[Profile0]`nName=default`nIsRelative=1`nPath=Profiles/ReactOS.default`n, %A_AppData%\Mozilla\Sunbird\profiles.ini
if ErrorLevel
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Failed to create and edit '%A_AppData%\Mozilla\Sunbird\Profiles\ReactOS.default\prefs.js'.`n
TestsFailed("Failed to create and edit '" A_AppData "\Mozilla\Sunbird\profiles.ini'.")
else
{
Run, %ModuleExe% ; 'Max' does not work
FormatTime, TimeString,, LongDate
WinWaitActive, %TimeString% - Sunbird,, 12
szNoUpdate := "user_pref(""app.update.enabled""`, false)`;`n" ; Disable automatic application update
szNoPluginUpdate := "user_pref(""extensions.update.enabled""`, false)`;" ; Disable automatic extansion update
szUpdateMode := "user_pref(""app.update.mode""`, 0)`;`n" ; Don't warn
FileAppend, %szNoUpdate%%szNoPluginUpdate%%szUpdateMode%, %A_AppData%\Mozilla\Sunbird\Profiles\ReactOS.default\prefs.js
if ErrorLevel
OutputDebug, %TestName%:%A_LineNumber%: Test failed: '%TimeString% - Sunbird' window failed to appear.`n
TestsFailed("Failed to create and edit '" A_AppData "\Mozilla\Sunbird\Profiles\ReactOS.default\prefs.js'.")
else
{
bContinue := true ; We are up and running
WinMaximize, %TimeString% - Sunbird
Sleep, 1000
Run, %ModuleExe% ; 'Max' does not work
FormatTime, TimeString,, LongDate
WinWaitActive, %TimeString% - Sunbird,, 12
if ErrorLevel
TestsFailed("'" TimeString " - Sunbird' window failed to appear.")
else
{
TestsOK("")
WinMaximize, %TimeString% - Sunbird
Sleep, 1000
}
}
}
}

46
Sunbird/0.9/zz_sunbird_0.9_test.ahk
View File

@ -18,10 +18,8 @@
*/
#Include ..\..\helper_functions.ahk
InitalizeCounters()
if 1 = --list
{
params =
(
@ -29,35 +27,23 @@ params =
2.new_event
)
FileAppend, %params%, *
}
else if 1 = 1.install
if CheckParam()
{
#include install_test.ahk
}
else
{
#include prepare.ahk
if 1 = 2.new_event
; Those brackets are required!
if 1 = 1.install
{
#include new_event.ahk
#include install_test.ahk
}
else
{
#include prepare.ahk
if 1 = 2.new_event
{
#include new_event.ahk
}
}
else
OutputDebug, Bad parameters: '%1%'!`r`n
}
if 1 != --list
{
if not bContinue
{
SplitPath, ModuleExe, fName ; Extract filename from given path
WindowCleanUp(fName)
}
TestsSkipped := TestsTotal - TestsOK - TestsFailed
TestsExecuted := TestsOK + TestsFailed
if (TestsSkipped < 0 or TestsExecuted < 0)
OutputDebug, %TestName%: Check TestsTotal, TestsOK and TestsFailed, because results returns less than 0.`n
OutputDebug, %TestName%: %TestsExecuted% tests executed (0 marked as todo, %TestsFailed% failures), %TestsSkipped% skipped.`n
}
ShowTestResults()