ui-tests: Move reusable functions into a library

These functions will be used in an upcoming test script to verify that
Ctrl+C does what it is supposed to do.

Signed-off-by: Johannes Schindelin <[email protected]>

Author: dscho

ui-tests/background-hook.ahk

@@ -1,4 +1,5 @@
 #Requires AutoHotkey v2.0
+#Include ui-test-library.ahk
 
 ; This script is an integration test for the following scenario:
 ; A Git hook spawns a background process that outputs some text
@@ -10,50 +11,8 @@
 ; This was fixed in the Cygwin/MSYS2 runtime, but then regressed again.
 ; This test is meant to verify that the issue is fixed and remains so.
 
-SetWorkTree() {
-    global workTree
-    ; First, set the worktree path; This path will be reused
-    ; for the `.log` file).
-    if A_Args.Length > 0
-        workTree := A_Args[1]
-    else
-    {
-        ; Create a unique worktree path in the TEMP directory.
-        workTree := EnvGet('TEMP') . '\git-test-background-hook'
-        if FileExist(workTree)
-        {
-            counter := 0
-            while FileExist(workTree '-' counter)
-                counter++
-            workTree := workTree '-' counter
-        }
-    }
-}
 SetWorkTree()
 
-Info(text) {
-    FileAppend text '`n', workTree '.log'
-}
-
-closeWindow := false
-childPid := 0
-ExitWithError(error) {
-    Info 'Error: ' error
-    if closeWindow
-       WinClose "A"
-    else if childPid != 0
-        ProcessClose childPid
-    ExitApp 1
-}
-
-RunWaitOne(command) {
-   shell := ComObject("WScript.Shell")
-   ; Execute a single command via cmd.exe
-   exec := shell.Exec(A_ComSpec " /C " command)
-   ; Read and return the command's output
-   return exec.StdOut.ReadAll()
-}
-
 SetWorkingDir(EnvGet('TEMP'))
 Info 'uname: ' RunWaitOne('uname -a')
 Info RunWaitOne('git version --build-options')
@@ -85,24 +44,6 @@ CloseWindow := true
 WinMove 0, 0
 Info 'Moved window to top left (so that the bottom is not cut off)'
 
-CaptureTextFromWindowsTerminal() {
-    ControlGetPos &cx, &cy, &cw, &ch, 'Windows.UI.Composition.DesktopWindowContentBridge1', "A"
-    titleBarHeight := 54
-    scrollBarWidth := 28
-    pad := 8
-
-    SavedClipboard := ClipboardAll
-    A_Clipboard := ''
-    SendMode('Event')
-    MouseMove cx + pad, cy + titleBarHeight + pad
-    MouseClickDrag 'Left', , , cx + cw - scrollBarWidth, cy + ch - pad, , ''
-    MouseClick 'Right'
-    ClipWait()
-    Result := A_Clipboard
-    Clipboard := SavedClipboard
-    return Result
-}
-
 Info('Setting committer identity')
 Send('git config user.name Test{Enter}git config user.email [email protected]{Enter}')
 

ui-tests/ui-test-library.ahk

@@ -0,0 +1,62 @@
+; Reusable library functions for the UI tests.
+
+SetWorkTree() {
+    global workTree
+    ; First, set the worktree path; This path will be reused
+    ; for the `.log` file).
+    if A_Args.Length > 0
+        workTree := A_Args[1]
+    else
+    {
+        ; Create a unique worktree path in the TEMP directory.
+        workTree := EnvGet('TEMP') . '\git-test-background-hook'
+        if FileExist(workTree)
+        {
+            counter := 0
+            while FileExist(workTree '-' counter)
+                counter++
+            workTree := workTree '-' counter
+        }
+    }
+}
+
+Info(text) {
+    FileAppend text '`n', workTree '.log'
+}
+
+closeWindow := false
+childPid := 0
+ExitWithError(error) {
+    Info 'Error: ' error
+    if closeWindow
+       WinClose "A"
+    else if childPid != 0
+        ProcessClose childPid
+    ExitApp 1
+}
+
+RunWaitOne(command) {
+   shell := ComObject("WScript.Shell")
+   ; Execute a single command via cmd.exe
+   exec := shell.Exec(A_ComSpec " /C " command)
+   ; Read and return the command's output
+   return exec.StdOut.ReadAll()
+}
+
+CaptureTextFromWindowsTerminal() {
+    ControlGetPos &cx, &cy, &cw, &ch, 'Windows.UI.Composition.DesktopWindowContentBridge1', "A"
+    titleBarHeight := 54
+    scrollBarWidth := 28
+    pad := 8
+
+    SavedClipboard := ClipboardAll
+    A_Clipboard := ''
+    SendMode('Event')
+    MouseMove cx + pad, cy + titleBarHeight + pad
+    MouseClickDrag 'Left', , , cx + cw - scrollBarWidth, cy + ch - pad, , ''
+    MouseClick 'Right'
+    ClipWait()
+    Result := A_Clipboard
+    Clipboard := SavedClipboard
+    return Result
+}