Jacek Caban : vbscript: Added const statement tests.

[Alexandre Julliard]

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

Author: Jacek Caban 
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()