Jacek Caban : vbscript: Added Hex function tests.

[Alexandre Julliard]

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

Author: Jacek Caban <jacek at codeweavers.com>
Date:   Tue Oct 11 14:59:45 2011 +0200

vbscript: Added Hex function tests.

---

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

diff --git a/dlls/vbscript/tests/api.vbs b/dlls/vbscript/tests/api.vbs
index 3b92803..d5653ab 100644
--- a/dlls/vbscript/tests/api.vbs
+++ b/dlls/vbscript/tests/api.vbs
@@ -34,4 +34,20 @@ Call ok(not isObject(Null), "isObject(Null) is true?")
 
 Call ok(getVT(err) = "VT_DISPATCH", "getVT(err) = " & getVT(err))
 
+Sub TestHex(x, ex)
+    Call ok(hex(x) = ex, "hex(" & x & ") = " & hex(x) & " expected " & ex)
+End Sub
+
+TestHex 0, "0"
+TestHex 6, "6"
+TestHex 16, "10"
+TestHex &hdeadbeef&, "DEADBEEF"
+TestHex -1, "FFFF"
+TestHex -16, "FFF0"
+TestHex -934859845, "C8472BBB"
+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)))
+
 Call reportSuccess()