Errors batch 6b: Interaction’s interactive procedures, plus tbbroker restart fix

WIP.Broker.md

@@ -171,7 +171,10 @@ dropped. A lease with `port` that finds no port fails `no-port` at once rather t
    the socket while no request is in flight, so it never keeps Node alive by itself.)
 2. **If the pipe cannot be opened** (it does not exist, or is busy), run `tbbroker.exe start`
    --- `TBBROKER_EXE`, else `%LOCALAPPDATA%\tbbroker\tbbroker.exe` --- wait for it to exit (0 means
-   the broker answers), and connect again. Send `hello` and check `protocol` is 1.
+   the broker answers), and connect again: on ENOENT or EBUSY, again at a random 50 to 150 ms
+   for up to 5 s, since clients that start the broker at once can find the pipe with no
+   instance waiting for a moment (seen on 2026-10-22: four clients, all ENOENT). Send `hello`
+   and check `protocol` is 1.
 3. **Before starting a program**: `lease` with a `tag` that says what it is (`"tbbuild 9333"`,
    `"lane help-2"`). Start the program on `desktop`, and name its folders and ids by `slot`.
 4. **Hand the lease to the process that lives as long as the program**: `hold` the launcher's pid

bugs/argument-errors-unspecified-error/repro.json

@@ -22,7 +22,15 @@
       "^FAIL RegressionTests.CallByName_CallTypeZero_Raises438: .*Actual: -2147467259 ",
       "^FAIL RegressionTests.CallByName_Nothing_Raises5: .*Actual: -2147467259 ",
       "^FAIL RegressionTests.GetSetting_EmptyAppName_Raises5: .*Actual: -2147467259 ",
-      "^FAIL RegressionTests.DeleteSetting_MissingApplication_Raises5: .*Actual: -2147467259 "
+      "^FAIL RegressionTests.DeleteSetting_MissingApplication_Raises5: .*Actual: -2147467259 ",
+      "^FAIL RegressionTests.AppActivate_NoSuchWindow_Raises5: .*Actual: -2147467259 ",
+      "^FAIL RegressionTests.Shell_EmptyPath_Raises5: .*Actual: -2147467259 ",
+      "^FAIL RegressionTests.Shell_MissingProgram_Raises53: .*Actual: -2147467259 ",
+      "^FAIL RegressionTests.Shell_WindowStyle11_Raises5: .*Actual: -2147467259 ",
+      "^FAIL RegressionTests.MsgBox_HelpFileWithoutContext_Raises5: .*Actual: -2147467259 ",
+      "^FAIL RegressionTests.InputBox_HelpFileWithoutContext_Raises5: .*Actual: -2147467259 ",
+      "^FAIL RegressionTests.SendKeys_UnknownKeyCode_Raises5: .*Actual: -2147352567 ",
+      "^FAIL RegressionTests.SendKeys_WaitNull_Raises94: .*Actual: -2147352567 "
     ]
   }
 }

bugs/argument-errors-unspecified-error/src/Sources/RegressionTests.twin

@@ -173,4 +173,67 @@ Module RegressionTests
         Assert.Strict.AreEqual 5&, Err.Number
     End Sub
 
+    ' Batch 6b: the interactive procedures. Each raises before a box, a key or a program.
+    [TestCase]
+    Public Sub AppActivate_NoSuchWindow_Raises5()
+        On Error Resume Next
+        AppActivate "No such window: argument-errors-unspecified-error"
+        Assert.Strict.AreEqual 5&, Err.Number
+    End Sub
+
+    [TestCase]
+    Public Sub Shell_EmptyPath_Raises5()
+        Dim V As Variant
+        On Error Resume Next
+        V = Shell("")
+        Assert.Strict.AreEqual 5&, Err.Number
+    End Sub
+
+    [TestCase]
+    Public Sub Shell_MissingProgram_Raises53()
+        Dim V As Variant
+        On Error Resume Next
+        V = Shell("no-such-program-argument-errors-unspecified-error.exe")
+        Assert.Strict.AreEqual 53&, Err.Number
+    End Sub
+
+    [TestCase]
+    Public Sub Shell_WindowStyle11_Raises5()
+        Dim V As Variant
+        On Error Resume Next
+        V = Shell("cmd.exe /c exit", 11)
+        Assert.Strict.AreEqual 5&, Err.Number
+    End Sub
+
+    [TestCase]
+    Public Sub MsgBox_HelpFileWithoutContext_Raises5()
+        Dim V As Variant
+        On Error Resume Next
+        V = MsgBox("x", , , "help.hlp")
+        Assert.Strict.AreEqual 5&, Err.Number
+    End Sub
+
+    [TestCase]
+    Public Sub InputBox_HelpFileWithoutContext_Raises5()
+        Dim V As Variant
+        On Error Resume Next
+        V = InputBox("x", , , , , "help.hlp")
+        Assert.Strict.AreEqual 5&, Err.Number
+    End Sub
+
+    ' SendKeys raises -2147352567, Exception occurred, where the others raise -2147467259.
+    [TestCase]
+    Public Sub SendKeys_UnknownKeyCode_Raises5()
+        On Error Resume Next
+        SendKeys "{BAD}"
+        Assert.Strict.AreEqual 5&, Err.Number
+    End Sub
+
+    [TestCase]
+    Public Sub SendKeys_WaitNull_Raises94()
+        On Error Resume Next
+        SendKeys "", Null
+        Assert.Strict.AreEqual 94&, Err.Number
+    End Sub
+
 End Module