system/wine
system/wine
1
0
Fork 0
mirror of git://source.winehq.org/git/wine.git synced 2024-09-16 07:36:35 +00:00
Code Issues Packages Projects Releases Wiki Activity

vbscript: Added select case statement tests.

Browse source
This commit is contained in:
Jacek Caban 2012-07-20 16:29:34 +02:00 committed by Alexandre Julliard
parent 374280aa04
commit 74f67ba82e
1 changed files with 56 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

56
dlls/vbscript/tests/lang.vbs
View file

@ -440,6 +440,62 @@ next
Call ok(y = 1, "y = " & y)
Call ok(x = 2, "x = " & x)
x = false
select case 3
case 2
Call ok(false, "unexpected case")
case 2
Call ok(false, "unexpected case")
case 4
Call ok(false, "unexpected case")
case "test"
case "another case"
Call ok(false, "unexpected case")
case 0, false, 2+1, 10
x = true
case ok(false, "unexpected case")
Call ok(false, "unexpected case")
case else
Call ok(false, "unexpected case")
end select
Call ok(x, "wrong case")
x = false
select case 3
case 3
x = true
end select
Call ok(x, "wrong case")
x = false
select case 2+2
case 3
Call ok(false, "unexpected case")
case else
x = true
end select
Call ok(x, "wrong case")
y = "3"
x = false
select case y
case "3"
x = true
case 3
Call ok(false, "unexpected case")
end select
Call ok(x, "wrong case")
select case 0
case 1
Call ok(false, "unexpected case")
case "2"
Call ok(false, "unexpected case")
end select
select case 0
end select
if false then
Sub testsub
x = true