ahk_tests/Opera/9.64/AddressBar.ahk

/*
 * Designed for Opera 9.64
 * 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
 */

TestName = 2.AddressBar
szURL = http://dsx86.patrickaalto.com

; Test if we can enter URL
TestsTotal++
if not bContinue
    TestsFailed("We failed somewhere in prepare.ahk")
else
{
    IfWinNotActive, Speed Dial - Opera
        TestsFailed("Window 'Speed Dial - Opera' is not active window.")
    else
    {
        SendInput, {CTRLDOWN}l{CTRLUP} ; Toggle address bar
        Send, %szURL% ; Enter address ; FIXME: use SendInput instead of Send
        clipboard = ; Empty the clipboard
        Send, ^a ; Ctrl+A
        Send, ^c ; Ctrl+C
        ClipWait, 2
        if ErrorLevel
            TestsFailed(" The attempt to copy text onto the clipboard failed.")
        else
        {
            if clipboard <> %szURL%
                TestsFailed("Clipboard and URL contents are not the same (expected '" szURL "', got '" clipboard "'). Ctrl+L doesnt work?")
            else
            {
                SendInput, {ENTER} ; go to specified address
                TestsInfo("Successfully typed '" szURL "' to addressbar using Ctrl+L.")
                WinWaitActive, DSx86 by Patrick Aalto - Opera,,10
                if ErrorLevel
                    TestsFailed("Window 'DSx86 by Patrick Aalto - Opera' was NOT found. Failed to open URL.")
                else
                {
                    iLoadTime := 4 ; Let it to sleep, maybe it will crash
                    while iLoadTime > 0
                    {
                        Sleep, 1000
                        iLoadTime--
                    }

                    IfWinNotActive, DSx86 by Patrick Aalto - Opera
                        TestsFailed("Loaded 'DSx86 by Patrick Aalto - Opera' window, slept for a while and window is not active anymore.")
                    else
                    {
                        Process, Close, %ProcessExe%
                        Process, WaitClose, %ProcessExe%, 4
                        if ErrorLevel
                            TestsFailed("Unable to terminate '" ProcessExe "' process.")
                        else
                            TestsOK("Window caption is 'DSx86 by Patrick Aalto - Opera' that means we opened URL by sending Ctrl+L.")
                    }
                }
            }
        }
    }
}