[reactos] 01/01: [VBSCRIPT_WINETEST] Sync with Wine Staging 4.0. CORE-15682

[Amine Khaldi]

https://git.reactos.org/?p=reactos.git;a=commitdiff;h=827f6644321c3cab864cc3...

commit 827f6644321c3cab864cc39d64ce0925390156d6
Author:     Amine Khaldi [e-mail]
AuthorDate: Mon Feb 4 13:08:28 2019 +0100
Commit:     Amine Khaldi [e-mail]
CommitDate: Mon Feb 4 13:08:28 2019 +0100

[VBSCRIPT_WINETEST] Sync with Wine Staging 4.0. CORE-15682
---
 modules/rostests/winetests/vbscript/run.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/modules/rostests/winetests/vbscript/run.c b/modules/rostests/winetests/vbscript/run.c
index 6b57540fe8..191f5a79a0 100644
--- a/modules/rostests/winetests/vbscript/run.c
+++ b/modules/rostests/winetests/vbscript/run.c
@@ -2394,6 +2394,18 @@ static void run_tests(void)
     ok(FAILED(hres), "script didn't fail\n");
     todo_wine CHECK_CALLED(OnScriptError);

+    SET_EXPECT(global_success_d);
+    SET_EXPECT(global_success_i);
+    parse_script_a("' comment\r"
+                   "Sub testsub(arg)\r"
+                   "If arg = 1 Then\r\r"
+                   "Call reportSuccess()\n\n"
+                   "End If\r\n"
+                   "End Sub\n\r"
+                   "Call testsub(1)");
+    CHECK_CALLED(global_success_d);
+    CHECK_CALLED(global_success_i);
+
     run_from_res("lang.vbs");
     run_from_res("api.vbs");
     run_from_res("regexp.vbs");