ahk_tests/Aida32/3.94.2/ViewLicense.ahk

/*
 * Designed for Aida32 3.94.2
 * 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.ViewLicense

; Test if can view license "License -> License" and close application properly
TestsTotal++
RunApplication()
if not bContinue
    TestsFailed("We failed somwehere in 'prepare.ahk'.")
else
{
    WinWaitActive, AIDA32 - Enterprise System Information,,5
    if ErrorLevel
        TestsFailed("Window 'AIDA32 - Enterprise System Information' failed to appear.")
    else
    {
        ; Go to License -> License. WinMenuSelectItem doesn't work here.
        SendInput, !l ; {ALTDOWN}l{ALTUP}
        SendInput, l
        WinWaitActive, License Agreement - AIDA32, Registration Request, 10
        if ErrorLevel
            TestsFailed("Window 'License Agreement - AIDA32 (Registration Request)' failed to appear.")
        else
        {
            ControlClick, TListBox1, License Agreement - AIDA32
            if ErrorLevel
                TestsFailed("Unable to click on first license field in 'License Agreement - AIDA32 (Registration Request)' window.")
            else
            {
                ; Lets pretend we are reading the license
                iScroll := 0
                while iScroll < 15
                {
                    iScroll++
                    SendInput, {DOWN}
                    Sleep, 50
                }
                
                TestsInfo("In 1sec will close 'License Agreement - AIDA32' window, if BSOD then bug #CORE-6435?.")
                ControlClick, TButton2, License Agreement - AIDA32 ; Click 'Close' button
                if ErrorLevel
                    TestsFailed("Unable to hit 'Close' button in 'License Agreement - AIDA32 (Registration Request)' window.")
                else
                {
                    WinWaitClose, License Agreement - AIDA32, Registration Request, 15
                    if ErrorLevel
                        TestsFailed("'License Agreement - AIDA32 (Registration Request)' window failed to close.")
                    else
                    {
                        WinClose, AIDA32 - Enterprise System Information ; Send 0x112 = WM_SYSCOMMAND, 0xF060 = SC_CLOSE
                        WinWaitClose, AIDA32 - Enterprise System Information,, 10
                        if not ErrorLevel
                        {
                            WinWait, aida32.bin - Application Error,,2
                            if not ErrorLevel
                                TestsFailed("'aida32.bin - Application Error (The exception)' window appeared, bug #CORE-6730?")
                            else
                                TestsOK("License was read, application closed correctly.")
                        }
                        else
                        {
                            Process, Exist, aida32.bin
                            NewPID = %ErrorLevel%  ; Save the value immediately since ErrorLevel is often changed.
                            if NewPID = 0
                                TestsFailed("'AIDA32 - Enterprise System Information' window failed to close. 'aida32.bin' process terminated.")
                            else
                                TestsFailed("Window 'AIDA32 - Enterprise System Information' failed to close. Unable to terminate 'aida32.bin' process.")
                        }
                    }
                }
            }
        }
    }
}