From: Francis De Brabandere <francisdb@gmail.com> --- dlls/vbscript/tests/lang.vbs | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index 1b6cdf763e4..0abbe10d2e7 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -72,6 +72,28 @@ Call ok(&H000000031& = 49, "&H000000031& <> 49") Call ok(getVT(&H00000000000000FF) = "VT_I2", "getVT(&H00000000000000FF) is not VT_I2") Call ok(getVT(&H007FFFFFFF) = "VT_I4", "getVT(&H007FFFFFFF) is not VT_I4") Call ok(&h0 = 0, "&h0 <> 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("&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() Call ok(&h0& = 0, "&h0& <> 0") Call ok(&h00 = 0, "&h00 <> 0") Call ok(&h000000000 = 0, "&h000000000 <> 0") -- GitLab https://gitlab.winehq.org/wine/wine/-/merge_requests/10900