From: Francis De Brabandere <francisdb@gmail.com> --- dlls/vbscript/tests/lang.vbs | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index d8d612bd389..88fa54a2aef 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -87,6 +87,29 @@ Call ok(&h0& = 0, "&h0& <> 0") Call ok(&h00 = 0, "&h00 <> 0") Call ok(&h000000000 = 0, "&h000000000 <> 0") +' Octal literals (&O...) +sub testOctalLiterals() + Dim oct + on error resume next + + Err.Clear : oct = Eval("&O0") : todo_wine_ok Err.number = 0 and oct = 0, "&O0 oct=" & oct & " err=" & Err.number + Err.Clear : oct = Eval("&O17") : todo_wine_ok Err.number = 0 and oct = 15, "&O17 oct=" & oct & " err=" & Err.number + Err.Clear : oct = Eval("&o17") : todo_wine_ok Err.number = 0 and oct = 15, "&o17 (lowercase) oct=" & oct & " err=" & Err.number + Err.Clear : oct = Eval("&O77") : todo_wine_ok Err.number = 0 and oct = 63, "&O77 oct=" & oct & " err=" & Err.number + Err.Clear : oct = Eval("&O777") : todo_wine_ok Err.number = 0 and oct = 511, "&O777 oct=" & oct & " err=" & Err.number + Err.Clear : oct = Eval("&O177777") : todo_wine_ok Err.number = 0 and oct = -1, "&O177777 oct=" & oct & " err=" & Err.number + Err.Clear : oct = Eval("&O200000") : todo_wine_ok Err.number = 0 and oct = 65536, "&O200000 oct=" & oct & " err=" & Err.number + Err.Clear : oct = Eval("&O17777777777") : todo_wine_ok Err.number = 0 and oct = 2147483647, "&O17777777777 oct=" & oct & " err=" & Err.number + Err.Clear : oct = Eval("&O37777777777") : todo_wine_ok Err.number = 0 and oct = -1, "&O37777777777 oct=" & oct & " err=" & Err.number + Err.Clear : oct = Eval("&O17&") : todo_wine_ok Err.number = 0 and oct = 15, "&O17& oct=" & oct & " err=" & Err.number + Err.Clear : oct = Eval("&O177777&") : todo_wine_ok Err.number = 0 and oct = 65535, "&O177777& oct=" & oct & " err=" & Err.number + Err.Clear : oct = Eval("&O77") : todo_wine_ok Err.number = 0 and getVT(oct) = "VT_I2*", "getVT(&O77) = " & getVT(oct) + Err.Clear : oct = Eval("&O200000") : todo_wine_ok Err.number = 0 and getVT(oct) = "VT_I4*", "getVT(&O200000) = " & getVT(oct) + Err.Clear : oct = Eval("&O177777&") : todo_wine_ok Err.number = 0 and getVT(oct) = "VT_I4*", "getVT(&O177777&) = " & getVT(oct) + Err.Clear : oct = Eval("&O8") : call ok(Err.number = 1002, "&O8 should be syntax error, got err=" & Err.number) +end sub +call testOctalLiterals() + ' Test concat when no space and var begins with h hi = "y" x = "x" &hi -- GitLab https://gitlab.winehq.org/wine/wine/-/merge_requests/10900