[AHK_Aida32_3.94.2]

Add prepare.ahk, read the License, close application. Tests for bugs 6355 and 7090. Tested and works fine in Win2k3 SP2. svn path=/trunk/ahk_tests/; revision=1493
2024-11-30 06:50:46 +00:00 · 2012-08-09 18:09:31 +00:00 · 2012-08-09 18:09:31 +00:00 · 6cdf2b8b40
commit 6cdf2b8b40
parent 8b04f96422
3 changed files with 186 additions and 0 deletions
--- a/Aida32/3.94.2/ViewLicense.ahk
+++ b/Aida32/3.94.2/ViewLicense.ahk
@ -0,0 +1,120 @@
+/*
+ * 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
+ */
+
+bContinue := false
+TestsTotal := 0
+TestsSkipped := 0
+TestsFailed := 0
+TestsOK := 0
+TestsExecuted := 0
+TestName = 2.ViewLicense
+
+; Test if can view license "License -> License" and close application properly
+TestsTotal++
+RunApplication()
+WinWaitActive, AIDA32 - Enterprise System Information,,5
+if not ErrorLevel
+{
+    ; Go to License -> License. WinMenuSelectItem doesn't work here.
+    SendInput, {ALTDOWN}l{ALTUP}
+    Sleep, 1000
+    SendInput, l
+    WinWaitActive, License Agreement - AIDA32, Registration Request, 10
+    if not ErrorLevel
+    {
+        Sleep, 1000
+        ControlClick, TListBox1, License Agreement - AIDA32
+        if not ErrorLevel
+        {
+            ; Lets pretend we are reading the license
+            iScroll := 0
+            while iScroll < 15
+            {
+                iScroll++
+                SendInput, {DOWN}
+                Sleep, 900
+            }
+            
+            OutputDebug, %TestName%:%A_LineNumber%: In 1sec will close 'License Agreement - AIDA32' window, if BSOD then bug #6355.`n
+            ControlClick, TButton2, License Agreement - AIDA32 ; Click 'Close' button
+            if not ErrorLevel
+            {
+                WinWaitClose, License Agreement - AIDA32, Registration Request, 15
+                if not ErrorLevel
+                {
+                    WinClose, AIDA32 - Enterprise System Information ; Send 0x112 = WM_SYSCOMMAND, 0xF060 = SC_CLOSE
+                    WinWaitClose, AIDA32 - Enterprise System Information,, 10
+                    if not ErrorLevel
+                    {
+                        Sleep, 2000
+                        IfWinNotExist, aida32.bin - Application Error
+                        {
+                            TestsOK()
+                            OutputDebug, OK: %TestName%:%A_LineNumber%: License was read, application exited correctly.`n
+                        }
+                        else
+                        {
+                            TestsFailed()
+                            WinGetTitle, title, A
+                            OutputDebug, %TestName%:%A_LineNumber%: Test failed: 'aida32.bin - Application Error (The exception)' window appeared, bug 7090. Active window caption: '%title%'`n
+                        }
+                    }
+                    else
+                    {
+                        TestsFailed()
+                        WinGetTitle, title, A
+                        OutputDebug, %TestName%:%A_LineNumber%: Test failed: 'AIDA32 - Enterprise System Information' window failed to close. Terminating the app. Active window caption: '%title%'`n
+                        Process, Close, aida32.bin
+                        Process, Close, aida32.exe
+                    }
+                }
+                else
+                {
+                    TestsFailed()
+                    WinGetTitle, title, A
+                    OutputDebug, %TestName%:%A_LineNumber%: Test failed: 'License Agreement - AIDA32 (Registration Request)' window failed to close. Active window caption: '%title%'`n
+                }
+            }
+            else
+            {
+                TestsFailed()
+                WinGetTitle, title, A
+                OutputDebug, %TestName%:%A_LineNumber%: Test failed: Unable to hit 'Close' button in 'License Agreement - AIDA32 (Registration Request)' window. Active window caption: '%title%'`n
+            }
+        }
+        else
+        {
+            TestsFailed()
+            WinGetTitle, title, A
+            OutputDebug, %TestName%:%A_LineNumber%: Test failed: Unable to click on first license field in 'License Agreement - AIDA32 (Registration Request)' window. Active window caption: '%title%'`n
+        }
+    }
+    else
+    {
+        TestsFailed()
+        WinGetTitle, title, A
+        OutputDebug, %TestName%:%A_LineNumber%: Test failed: Window 'License Agreement - AIDA32 (Registration Request)' failed to appear. Active window caption: '%title%'`n
+    }
+}
+else
+{
+    TestsFailed()
+    WinGetTitle, title, A
+    OutputDebug, %TestName%:%A_LineNumber%: Test failed: Window 'AIDA32 - Enterprise System Information' failed to appear. Active window caption: '%title%'`n
+}
--- a/Aida32/3.94.2/prepare.ahk
+++ b/Aida32/3.94.2/prepare.ahk
@ -0,0 +1,59 @@
+/*
+ * 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
+ */
+
+bContinue := false
+TestsTotal := 0
+TestsSkipped := 0
+TestsFailed := 0
+TestsOK := 0
+TestsExecuted := 0
+TestName = prepare
+
+Process, Close, aida32.bin
+Process, Close, aida32.exe
+Sleep, 1500
+ModuleExe = %A_ProgramFiles%\Aida32\aida32.exe
+
+
+; Test if can start application
+RunApplication()
+{
+    global ModuleExe
+    
+    IfExist, %ModuleExe%
+    {
+        Run, %ModuleExe% ; 'Max' doesn't work with aida32
+        Sleep, 1000
+        WinWaitActive, AIDA32 - Enterprise System Information,,15
+        if not ErrorLevel
+        {
+            Sleep, 1500
+            WinMaximize, AIDA32 - Enterprise System Information ; Maximize the window
+        }
+        else
+        {
+            WinGetTitle, title, A
+            OutputDebug, %TestName%:%A_LineNumber%: Test failed: Window 'AIDA32 - Enterprise System Information' failed to appear. Active window caption: '%title%'`n
+        }
+    }
+    else
+    {
+        OutputDebug, %TestName%:%A_LineNumber%: Test failed: Can NOT find '%ModuleExe%'.`n
+    }
+}
--- a/Aida32/3.94.2/zz_aida32_3.94.2_test.ahk
+++ b/Aida32/3.94.2/zz_aida32_3.94.2_test.ahk
@ -36,6 +36,13 @@ else if 1 = 1.install
 }
 else
 {
+    #include prepare.ahk
+
+    if 1 = 2.ViewLicense
+    {
+        #include ViewLicense.ahk
+    }
+    else
    OutputDebug, Bad parameters!`r`n
 }