[ros-diffs] [akhaldi] 74854: [VBSCRIPT_WINETEST] Sync with Wine Staging 2.9. CORE-13362

Author: akhaldi
Date: Sun Jun  4 01:47:13 2017
New Revision: 74854

URL: http://svn.reactos.org/svn/reactos?rev=74854&view=rev
Log:
[VBSCRIPT_WINETEST] Sync with Wine Staging 2.9. CORE-13362

Modified:
    trunk/rostests/winetests/vbscript/lang.vbs

Modified: trunk/rostests/winetests/vbscript/lang.vbs
URL:
http://svn.reactos.org/svn/reactos/trunk/rostests/winetests/vbscript/lang.v…
==============================================================================
--- trunk/rostests/winetests/vbscript/lang.vbs	[iso-8859-1] (original)
+++ trunk/rostests/winetests/vbscript/lang.vbs	[iso-8859-1] Sun Jun  4 01:47:13 2017
@@ -325,6 +325,11 @@
 while false
 wend
 
+x = 0
+WHILE x < 3 : x = x + 1
+Wend
+Call ok(x = 3, "x not equal to 3")
+
 x = false
 y = false
 do while not (x and y)
@@ -343,6 +348,11 @@
     ok false, "exit do didn't work"
 loop
 
+x = 0
+Do While x < 2 : x = x + 1
+Loop
+Call ok(x = 2, "x not equal to 2")
+
 x = false
 y = false
 do until x and y
@@ -361,12 +371,25 @@
     ok false, "exit do didn't work"
 loop
 
+x = 0
+Do: :: x = x + 2
+Loop Until x = 4
+Call ok(x = 4, "x not equal to 4")
+
 x = false
 do
     if x then exit do
     x = true
 loop
 call ok(x, "x is false after do..loop?")
+
+x = 0
+Do :If x = 6 Then
+        Exit Do
+    End If
+    x = x + 3
+Loop
+Call ok(x = 6, "x not equal to 6")
 
 x = false
 y = false
@@ -451,6 +474,11 @@
 next
 Call ok(y = "for7: 5 6 7 8", "y = " & y)
 
+z = 0
+For x = 10 To 18 Step 2 : : z = z + 1
+Next
+Call ok(z = 5, "z not equal to 5")
+
 y = "for8:"
 for x = 5 to 8
     y = y & " " & x
@@ -482,11 +510,13 @@
 Call collectionObj.reset()
 y = 0
 x = 10
-for each x in collectionObj
+z = 0
+for each x in collectionObj : z = z + 2
     y = y+1
     Call ok(x = y, "x <> y")
 next
 Call ok(y = 3, "y = " & y)
+Call ok(z = 6, "z = " & z)
 Call ok(getVT(x) = "VT_EMPTY*", "getVT(x) = " & getVT(x))
 
 Call collectionObj.reset()