[PATCH 1/2] vbscript/tests: Add tests for ExecuteGlobal re-Dim of an existing array.

[Francis De Brabandere]

From: Francis De Brabandere <[e-mail]>

ExecuteGlobal compiles a fresh script that shares the host's script-global
scope. If a name was previously Dim'd as an array (dynamic or fixed), a
subsequent ExecuteGlobal that Dim's the same name raises err 13 on native.
Re-Dim'ing a previously scalar Dim is allowed. Mark the failing cases
todo_wine for the upcoming interp_dim fix.
---
 dlls/vbscript/tests/lang.vbs | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs
index d8d612bd389..c2b05332b90 100644
--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -2799,6 +2799,41 @@ sub TestRedimInputArg
 end sub
 Call TestRedimInputArg
 
+sub TestExecuteGlobalRedim
+    on error resume next
+
+    ' Dim arr() already declared as a dynamic array in a prior compile unit.
+    err.clear : ExecuteGlobal "Dim egDynArr()"
+    call ok(err.number = 0, "first Dim egDynArr() err=" & err.number)
+
+    err.clear : ExecuteGlobal "Dim egDynArr()"
+    todo_wine_ok err.number = 13, "second Dim egDynArr() err=" & err.number
+
+    err.clear : ExecuteGlobal "Dim egDynArr() : ReDim egDynArr(5)"
+    todo_wine_ok err.number = 13, "Dim+ReDim egDynArr() err=" & err.number
+
+    ' Dim arr(N) already declared as a fixed array in a prior compile unit.
+    err.clear : ExecuteGlobal "Dim egFixArr(2)"
+    call ok(err.number = 0, "first Dim egFixArr(2) err=" & err.number)
+
+    err.clear : ExecuteGlobal "Dim egFixArr(2)"
+    todo_wine_ok err.number = 13, "second Dim egFixArr(2) err=" & err.number
+
+    err.clear : ExecuteGlobal "Dim egFixArr()"
+    todo_wine_ok err.number = 13, "second Dim egFixArr() err=" & err.number
+
+    ' Re-Dim'ing a previously scalar Dim is allowed.
+    err.clear : ExecuteGlobal "Dim egScalar"
+    call ok(err.number = 0, "first Dim egScalar err=" & err.number)
+
+    err.clear : ExecuteGlobal "Dim egScalar"
+    call ok(err.number = 0, "second Dim egScalar (scalar) err=" & err.number)
+
+    err.clear : ExecuteGlobal "Dim egScalar()"
+    call ok(err.number = 0, "second Dim egScalar() (array) err=" & err.number)
+end sub
+Call TestExecuteGlobalRedim
+
 sub TestReDimList
     dim x, y
 
-- 
GitLab


https://gitlab.winehq.org/wine/wine/-/merge_requests/10928