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 
Tell revision number when running tests.

svn path=/trunk/ahk_tests/; revision=2024
This commit is contained in:
Edijs Kolesnikovičs 2013-05-04 15:46:14 +00:00
parent 4e7d2c77bc
commit 5ed29bd6a1
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Thunderbird/2.0.0.18/SendMail.ahk
View File

@ -52,7 +52,12 @@ else
SendInput, {ALTDOWN}s{ALTUP} ; Go to 'Subject' field SendInput, {ALTDOWN}s{ALTUP} ; Go to 'Subject' field
FormatTime, TimeString FormatTime, TimeString
SendInput, %TimeString% ; Enter time and date into 'Subject' field SendInput, %TimeString% ; Enter time and date into 'Subject' field
SendInput, {TAB}Congratulations, Thunderbird is working. ; Message body revision := nGetRevisionNumber()
if (revision > 0)
szText = Congratulations, Thunderbird is working on ReactOS r%revision%
else
szText = Congratulations, Thunderbird is working on ReactOS
SendInput, {TAB}%szText% ; Message body
SendInput, {CTRLDOWN}{ENTER}{CTRLUP} ; Ctrl+Return to send message now SendInput, {CTRLDOWN}{ENTER}{CTRLUP} ; Ctrl+Return to send message now
WinWaitActive, Mail Server Password Required,,10 WinWaitActive, Mail Server Password Required,,10
if ErrorLevel if ErrorLevel

7
mIRC/7.25/ChatTest.ahk
View File

@ -55,7 +55,12 @@ else
} }
else else
{ {
ControlSetText, RichEdit20W1, I confirm that mIRC 7.25 is working on ReactOS, mIRC revision := nGetRevisionNumber()
if (revision > 0)
szText = I confirm that mIRC 7.25 is working on ReactOS r%revision%
else
szText = I confirm that mIRC 7.25 is working on ReactOS
ControlSetText, RichEdit20W1, %szText%, mIRC
if ErrorLevel if ErrorLevel
TestsFailed("Unable to set chat text in 'mIRC' window.") TestsFailed("Unable to set chat text in 'mIRC' window.")
else else