Jacek Caban : vbscript: Added const statement tests.
Alexandre Julliard
julliard at winehq.org
Wed Sep 21 13:35:16 CDT 2011
Module: wine
Branch: master
Commit: e9ad716a3436d7653169e2432c71530a9cc8e7b5
URL: http://source.winehq.org/git/wine.git/?a=commit;h=e9ad716a3436d7653169e2432c71530a9cc8e7b5
Author: Jacek Caban <jacek at codeweavers.com>
Date: Wed Sep 21 14:04:30 2011 +0200
vbscript: Added const statement tests.
---
dlls/vbscript/tests/lang.vbs | 18 ++++++++++++++++++
1 files changed, 18 insertions(+), 0 deletions(-)
diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs
index 7c64adf..2d712f5 100644
--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -688,4 +688,22 @@ Call obj.test(obj)
Call ok(getVT(test) = "VT_DISPATCH", "getVT(test) = " & getVT(test))
Call ok(Me is Test, "Me is not Test")
+Const c1 = 1, c2 = 2
+Call ok(c1 = 1, "c1 = " & c1)
+Call ok(getVT(c1) = "VT_I2", "getVT(c1) = " & getVT(c1))
+
+if false then Const conststr = "str"
+Call ok(conststr = "str", "conststr = " & conststr)
+Call ok(getVT(conststr) = "VT_BSTR", "getVT(conststr) = " & getVT(conststr))
+Call ok(conststr = "str", "conststr = " & conststr)
+
+Sub ConstTestSub
+ Const funcconst = 1
+ Call ok(c1 = 1, "c1 = " & c1)
+ Call ok(funcconst = 1, "funcconst = " & funcconst)
+End Sub
+
+Call ConstTestSub
+Dim funcconst
+
reportSuccess()
More information about the wine-cvs
mailing list