vbscript/tests: Add more function call tests with array arguments.

Signed-off-by: Piotr Caban <piotr@codeweavers.com> Signed-off-by: Jacek Caban <jacek@codeweavers.com> Signed-off-by: Alexandre Julliard <julliard@winehq.org>

vbscript/tests: Add more function call tests with array arguments.
8f0d12e2 · Piotr Caban · Alexandre Julliard · 2c6c5e0d · 8f0d12e2
Commit 8f0d12e2 authored Oct 10, 2017 by Piotr Caban Committed by Alexandre Julliard Oct 11, 2017
Hide whitespace changes
Inline Side-by-side

Showing with 14 additions and 0 deletions

lang.vbs dlls/vbscript/tests/lang.vbs +14 -0

No files found.
--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -1250,6 +1250,20 @@ Call testarrarg(1, "VT_I2*")
 Call testarrarg(false, "VT_BOOL*")
 Call testarrarg(Empty, "VT_EMPTY*")

+Sub modifyarr(arr)
+    'Following test crashes on wine
+    'Call ok(arr(0) = "not modified", "arr(0) = " & arr(0))
+    arr(0) = "modified"
+End Sub
+
+arr(0) = "not modified"
+Call modifyarr(arr)
+Call ok(arr(0) = "modified", "arr(0) = " & arr(0))
+
+arr(0) = "not modified"
+modifyarr(arr)
+Call todo_wine_ok(arr(0) = "not modified", "arr(0) = " & arr(0))
+
 ' It's allowed to declare non-builtin RegExp class...
 class RegExp
     public property get Global()