[PATCH 0/1] MR10403: vbscript: Add tests for Select Case parsing edge cases.

[Francis De Brabandere (＠francisdb)]

Add test for empty Select Case body and Case Else-only Select Case
(both valid). Add a parse error test for Select without the Case
keyword.

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

[PATCH 1/1] vbscript: Add tests for Select Case parsing edge cases.

[Francis De Brabandere]

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

Add test for empty Select Case body and Case Else-only Select Case
(both valid). Add a parse error test for Select without the Case
keyword.
---
 dlls/vbscript/tests/lang.vbs | 9 +++++++++
 dlls/vbscript/tests/run.c    | 6 ++++++
 2 files changed, 15 insertions(+)

diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs
index 4374d7b1f25..39513f3fc9f 100644
--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -969,6 +969,15 @@ call ok(SelectCaseTest(3) = vbEmpty, "Unexpected case " & SelectCaseTest(3))
 call ok(SelectCaseTest(4) = 400, "Unexpected case " & SelectCaseTest(4))
 call ok(SelectCaseTest(5) = 500, "Unexpected case " & SelectCaseTest(5))
 
+' Empty Select Case body (valid, no Case clauses)
+select case 1
+end select
+
+' Select Case with only Case Else
+select case 1
+    case else
+end select
+
 if false then
 Sub testsub
     x = true
diff --git a/dlls/vbscript/tests/run.c b/dlls/vbscript/tests/run.c
index 4b69bc18ffa..05c54f139e9 100644
--- a/dlls/vbscript/tests/run.c
+++ b/dlls/vbscript/tests/run.c
@@ -2829,6 +2829,12 @@ static void test_parse_errors(void)
             "    throwInt &h87001234&\n"
             "end if\n",
             2, 1
+        },
+        {
+            /* Select without Case keyword (expected error 1021) */
+            L"Select 1\n"
+            "End Select\n",
+            0, 7
         }
     };
     HRESULT hres;
-- 
GitLab

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

[Francis De Brabandere (＠francisdb)]

actual error code validation is for after the merge of !10386

-- 
https://gitlab.winehq.org/wine/wine/-/merge_requests/10403#note_133058

[PATCH 0/1] MR10403: Draft: vbscript: Add tests for Select Case parsing edge cases.

[Francis De Brabandere (＠francisdb)]

Since no code is updated, I don't wee why we commented this in !10386. Will check that first.

-- 
https://gitlab.winehq.org/wine/wine/-/merge_requests/10403#note_133071

[PATCH 0/1] MR10403: Draft: vbscript: Add tests for Select Case parsing edge cases.

[Francis De Brabandere (＠francisdb)]

!10386 now contains the error check

-- 
https://gitlab.winehq.org/wine/wine/-/merge_requests/10403#note_133078

[PATCH 0/1] MR10403: Draft: vbscript: Add tests for Select Case parsing edge cases. - closed

[Francis De Brabandere (＠francisdb)]

This merge request was closed by Francis De Brabandere.
-- 
https://gitlab.winehq.org/wine/wine/-/merge_requests/10403