Intravision/reactos
1
0
Fork 0
mirror of https://github.com/reactos/reactos.git synced 2025-08-03 20:45:44 +00:00
Code Issues Projects Releases Packages Wiki Activity

[VBSCRIPT_WINETEST] Sync with Wine Staging 1.9.23. CORE-12409

Browse source 
svn path=/trunk/; revision=73299
This commit is contained in:
Amine Khaldi 2016-11-17 23:16:08 +00:00
parent a8e3a0bea0
commit fa6326df88
2 changed files with 35 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
rostests/winetests/vbscript/api.vbs
View file

@ -440,6 +440,35 @@ TestLCase 0.123, doubleAsString(0.123)
TestLCase Empty, ""
Call ok(getVT(LCase(Null)) = "VT_NULL", "getVT(LCase(Null)) = " & getVT(LCase(Null)))
Sub TestStrComp(str_left, str_right, mode, ex)
x = StrComp(str_left, str_right, mode)
Call ok(x = ex, "StrComp(" & str_left & ", " & str_right & ", " & mode & ") = " & x & " expected " & ex)
End Sub
TestStrComp "ABC", "abc", 0, -1
TestStrComp "abc", "ABC", 0, 1
TestStrComp "ABC", "ABC", 0, 0
TestStrComp "ABC", "abc", 0, -1
TestStrComp "abc", "ABC", 0, 1
TestStrComp "ABC", "ABC", 0, 0
TestStrComp "ABCD", "ABC", 0, 1
TestStrComp "ABC", "ABCD", 0, -1
TestStrComp "ABC", "abc", 1, 0
TestStrComp "ABC", "ABC", 1, 0
TestStrComp "ABCD", "ABC", 1, 1
TestStrComp "ABC", "ABCD", 1, -1
TestStrComp "ABC", "ABCD", "0", -1
TestStrComp "ABC", "ABCD", "1", -1
TestStrComp 1, 1, 1, 0
TestStrComp "1", 1, 1, 0
TestStrComp "1", 1.0, 1, 0
TestStrComp Empty, Empty, 1, 0
TestStrComp Empty, "", 1, 0
TestStrComp Empty, "ABC", 1, -1
TestStrComp "ABC", Empty, 1, 1
TestStrComp vbNull, vbNull, 1, 0
TestStrComp "", vbNull, 1, -1
Call ok(Len("abc") = 3, "Len(abc) = " & Len("abc"))
Call ok(Len("") = 0, "Len() = " & Len(""))
Call ok(Len(1) = 1, "Len(1) = " & Len(1))

6
rostests/winetests/vbscript/run.c
View file

@ -2133,6 +2133,12 @@ static void run_tests(void)
CHECK_CALLED(global_success_d);
CHECK_CALLED(global_success_i);
SET_EXPECT(global_success_d);
SET_EXPECT(global_success_i);
parse_script_af(0, "TEST.reportSuccess()");
CHECK_CALLED(global_success_d);
CHECK_CALLED(global_success_i);
SET_EXPECT(global_vbvar_d);
SET_EXPECT(global_vbvar_i);
parse_script_a("Option Explicit\nvbvar = 3");