Jacek Caban : vbscript: Added InStr tests.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: ea185259fb6795470af29c0161dba4f735480ae3
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=ea185259fb6795470af29c0161dba4f735480ae3

Author: Jacek Caban <jacek at codeweavers.com>
Date:   Fri Dec 30 17:00:23 2011 +0100

vbscript: Added InStr tests.

---

 dlls/vbscript/tests/api.vbs |   35 +++++++++++++++++++++++++++++++++++
 1 files changed, 35 insertions(+), 0 deletions(-)

diff --git a/dlls/vbscript/tests/api.vbs b/dlls/vbscript/tests/api.vbs
index ae1e73b..1c22791 100644
--- a/dlls/vbscript/tests/api.vbs
+++ b/dlls/vbscript/tests/api.vbs
@@ -89,4 +89,39 @@ TestHex empty, "0"
 Call ok(getVT(hex(null)) = "VT_NULL", "getVT(hex(null)) = " & getVT(hex(null)))
 Call ok(getVT(hex(empty)) = "VT_BSTR", "getVT(hex(empty)) = " & getVT(hex(empty)))
 
+x = InStr(1, "abcd", "bc")
+Call ok(x = 2, "InStr returned " & x)
+
+x = InStr("abcd", "bc")
+Call ok(x = 2, "InStr returned " & x)
+
+x = InStr("abc", "bc")
+Call ok(x = 2, "InStr returned " & x)
+
+x = InStr("abcbc", "bc")
+Call ok(x = 2, "InStr returned " & x)
+
+x = InStr("bcabc", "bc")
+Call ok(x = 1, "InStr returned " & x)
+
+x = InStr(3, "abcd", "bc")
+Call ok(x = 0, "InStr returned " & x)
+
+x = InStr("abcd", "bcx")
+Call ok(x = 0, "InStr returned " & x)
+
+x = InStr(5, "abcd", "bc")
+Call ok(x = 0, "InStr returned " & x)
+
+x = "abcd"
+x = InStr(x, "bc")
+Call ok(x = 2, "InStr returned " & x)
+
+x = InStr("abcd", null)
+Call ok(isNull(x), "InStr returned " & x)
+x = InStr(null, "abcd")
+Call ok(isNull(x), "InStr returned " & x)
+x = InStr(2, null, "abcd")
+Call ok(isNull(x), "InStr returned " & x)
+
 Call reportSuccess()