reactos/ahk_tests
1
0
Fork 0
mirror of https://github.com/reactos/ahk_tests.git synced 2024-12-02 16:46:21 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

[AHK_VLC_0.8.6i]

Browse Source 
Add prepare.ahk and test to play MP4 video and close application.
Tested and works on WinXP SP3.

svn path=/trunk/ahk_tests/; revision=1507
This commit is contained in:
Edijs Kolesnikovičs 2012-08-16 15:06:24 +00:00
parent 855bb8c4a0
commit 3e18439886
4 changed files with 230 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

127
VLC Media Player/0.8.6i/PlayVideo.ahk Normal file
View File

@ -0,0 +1,127 @@
/*
* Designed for VLC 0.8.6i
* 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
*/
bContinue := false
TestsTotal := 0
TestsSkipped := 0
TestsFailed := 0
TestsOK := 0
TestsExecuted := 0
TestName = 2.PlayVideo
szDocument = %A_WorkingDir%\Media\Foundry accident.mp4 ; Case insensitive
; Test if can play video when opened by 'File -> Quick Open File' then close application
TestsTotal++
RunApplication("")
WinWaitActive, VLC media player,,7
if not ErrorLevel
{
WinMenuSelectItem, VLC media player, , File, Quick Open File
if not ErrorLevel
{
WinWaitActive, Open File, Look, 7
if not ErrorLevel
{
Sleep, 1000
ControlSetText, Edit1, %szDocument%, Open File, Look
if not ErrorLevel
{
ControlClick, Button2, Open File, Look ; Hit 'Open' button
if not ErrorLevel
{
WinWaitClose, Open File, Look, 7
if not ErrorLevel
{
WinWaitActive, VLC media player,,7
if not ErrorLevel
{
Sleep, 2500 ; Let it to load the video
; ImageSeach does not work with videos in XP!
WinGetPos, X, Y, Width, Height, VLC media player
if Width > 439 AND Height > 359; Video is 440x360
{
WinClose, VLC media player
WinWaitClose, VLC media player,,7
if not ErrorLevel
{
TestsOK()
OutputDebug, %TestName%:%A_LineNumber%: OK: Size of 'VLC media player' window is %Width%x%Height%, so, probably we can play '%szDocument%'.`n
}
else
{
TestsFailed()
WinGetTitle, title, A
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Window 'VLC media player' failed to close. Active window caption: '%title%'`n
}
}
else
{
TestsFailed()
WinGetTitle, title, A
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Size of 'VLC media player' is not as expected when playing '%szDocument%'. Active window caption: '%title%'`n
}
}
else
{
TestsFailed()
WinGetTitle, title, A
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Window 'VLC media player' failed to appear after opening '%szDocument%'. Active window caption: '%title%'`n
}
}
else
{
TestsFailed()
WinGetTitle, title, A
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Window 'Open File (Look)' failed to close. Active window caption: '%title%'`n
}
}
else
{
TestsFailed()
WinGetTitle, title, A
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Unable to hit 'Open' button in 'Open File (Look)' window. Active window caption: '%title%'`n
}
}
else
{
TestsFailed()
WinGetTitle, title, A
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Unable to enter 'File name (%szDocument%)' in 'Open File (Look)' window. Active window caption: '%title%'`n
}
}
else
{
TestsFailed()
WinGetTitle, title, A
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Window 'Open File (Look)' failed to appear. Active window caption: '%title%'`n
}
}
else
{
TestsFailed()
WinGetTitle, title, A
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Unable to click 'File -> Quick Open File' in 'VLC media player' window. Active window caption: '%title%'`n
}
}
else
{
TestsFailed()
WinGetTitle, title, A
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Window 'VLC media player' failed to appear. Active window caption: '%title%'`n
}

1
VLC Media Player/0.8.6i/install_test.ahk
View File

@ -85,6 +85,7 @@ IfExist, %ModuleExe%
}
if bContinue
{
FileRemoveDir, %A_AppData%\vlc, 1
Run %ModuleExe%
}
}

95
VLC Media Player/0.8.6i/prepare.ahk Normal file
View File

@ -0,0 +1,95 @@
/*
* Designed for VLC 0.8.6i
* 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
*/
bContinue := false
TestsTotal := 0
TestsSkipped := 0
TestsFailed := 0
TestsOK := 0
TestsExecuted := 0
TestName = prepare
Process, Close, vlc.exe
RegRead, UninstallerPath, HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\VLC media player, UninstallString
if not ErrorLevel
{
StringReplace, UninstallerPath, UninstallerPath, `",, All ; String contains quotes, replace em
SplitPath, UninstallerPath,, InstalledDir
ModuleExe = %InstalledDir%\vlc.exe
}
else
{
ModuleExe = %A_ProgramFiles%\VideoLAN\VLC\vlc.exe
OutputDebug, %TestName%:%A_LineNumber%: Can NOT read data from registry. Key might not exist. Using hardcoded path.`n
}
; Test if can start application
RunApplication(PathToFile)
{
global ModuleExe
global TestName
Sleep, 500
FileRemoveDir, %A_AppData%\vlc, 1 ; Delete saved settings
IfExist, %ModuleExe%
{
if PathToFile =
{
Run, %ModuleExe% ; Don't run it maximized
Sleep, 1000
WinWaitActive, VLC media player,,7
if not ErrorLevel
{
Sleep, 1000
}
else
{
WinGetTitle, title, A
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Window 'VLC media player' failed to appear. Active window caption: '%title%'`n
}
}
else
{
IfExist, %PathToFile%
{
Run, %ModuleExe% "%PathToFile%" ; Don't run it maximized
Sleep, 1000
WinWaitActive, VLC media player,,7 ; FIXME: is there a way to show filename in titlebar?
if not ErrorLevel
{
Sleep, 1000
}
else
{
WinGetTitle, title, A
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Window 'VLC media player' failed to appear when opening '%PathToFile%'. Active window caption: '%title%'`n
}
}
else
{
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Can NOT find '%PathToFile%'.`n
}
}
}
else
{
OutputDebug, %TestName%:%A_LineNumber%: Test failed: Can NOT find '%ModuleExe%'.`n
}
}

7
VLC Media Player/0.8.6i/zz_vlc_0.8.6i_test.ahk
View File

@ -36,6 +36,13 @@ else if 1 = 1.install
}
else
{
#include prepare.ahk
if 1 = 2.PlayVideo
{
#include PlayVideo.ahk
}
else
OutputDebug, Bad parameters!`r`n
}