[PATCH 1/2] vbscript/tests: Add tests for Class declarations inline after Dim/Sub.

[Francis De Brabandere]

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

---
 dlls/vbscript/tests/lang.vbs | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs
index 1b6cdf763e4..b7ea4855ed4 100644
--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -3986,6 +3986,23 @@ ExecuteGlobal "ReDim egDynArr(1) : egDynArr(0) = ""a"" : egDynArr(1) = ""b"""
 Call ok(egDynArr(0) = "a", "ExecuteGlobal ReDim egDynArr(0) = " & egDynArr(0))
 Call ok(egDynArr(1) = "b", "ExecuteGlobal ReDim egDynArr(1) = " & egDynArr(1))
 
+' Class declaration inline after a Dim/Sub statement separated by ':'
+Sub TestClassInlineAfterDim
+    on error resume next
+    Err.Clear
+    ExecuteGlobal "Dim egInlineA : Class EGInlineClassA : End Class"
+    todo_wine_ok Err.Number = 0, "ExecuteGlobal Dim:Class err=" & Err.Number
+
+    Err.Clear
+    ExecuteGlobal "Sub EGInlineSub() : End Sub : Class EGInlineClassB : End Class"
+    todo_wine_ok Err.Number = 0, "ExecuteGlobal Sub:Class err=" & Err.Number
+
+    Err.Clear
+    ExecuteGlobal "Dim EGInlineCollision : Class EGInlineCollision : End Class"
+    todo_wine_ok Err.Number = 1041, "ExecuteGlobal Dim x : Class x err=" & Err.Number
+End Sub
+Call TestClassInlineAfterDim
+
 ' Execute tests
 x = 0
 Execute "x = 99"
-- 
GitLab


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