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

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 8f0d12e2619e240088b92a05b274eeea5483edf6
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=8f0d12e2619e240088b92a05b2...

Author: Piotr Caban 
Date:   Tue Oct 10 17:08:30 2017 +0200

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

Signed-off-by: Piotr Caban 
Signed-off-by: Jacek Caban 
Signed-off-by: Alexandre Julliard

---

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

diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs
index 7f7c835..a90dfc8 100644
--- 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()