From: Francis De Brabandere <francisdb@gmail.com> 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