class: RegressionTests::JavaScriptTests expecco_2_5_0 expecco_2_5_1 stable
authorClaus Gittinger <cg@exept.de>
Thu, 06 Jun 2013 19:16:10 +0200
changeset 946 7eeef810d524
parent 945 339c826fa96c
child 947 72b27d83338f
class: RegressionTests::JavaScriptTests added: #testFor07 #testFor08
RegressionTests__JavaScriptTests.st
--- a/RegressionTests__JavaScriptTests.st	Thu Jun 06 16:58:40 2013 +0200
+++ b/RegressionTests__JavaScriptTests.st	Thu Jun 06 19:16:10 2013 +0200
@@ -1099,6 +1099,70 @@
     "
 !
 
+testFor07
+    |output|
+
+    output := '' writeStream.
+    self 
+        execute:'test(arg, out) {
+                    for (var n = 0, var m = 10; n < 10; n++, m--) {
+                        if ((n >= 3) && (n <= 6)) {
+                            out.show(n);
+                            out.show(" -> ");
+                            out.showCR(m);
+                        }
+                    }
+                 }'
+        for:nil
+        arguments:(Array with:5 with:output)
+        expect:nil.
+
+    self assert:(output contents asCollectionOfLinesWithReturn asArray = #( 
+        '3 -> 7'
+        '4 -> 6'
+        '5 -> 5'
+        '6 -> 4'
+       ))
+
+    "
+     self run:#testFor06
+     self new testFor06  
+    "
+!
+
+testFor08
+    |output|
+
+    output := '' writeStream.
+    self 
+        execute:'test(arg, out) {
+                    var x = 10;
+
+                    for (var n = 0, var m = 10; n < 10; n++, m--) {
+                        if ((n >= 3) && (n <= 6)) {
+                            if ((n >= 4) && (n <= 5)) {
+                                out.show(n);
+                                out.show(" -> ");
+                                out.showCR(m);
+                            }
+                        }
+                    }
+                 }'
+        for:nil
+        arguments:(Array with:5 with:output)
+        expect:nil.
+
+    self assert:(output contents asCollectionOfLinesWithReturn asArray = #( 
+        '4 -> 6'
+        '5 -> 5'
+       ))
+
+    "
+     self run:#testFor06
+     self new testFor06  
+    "
+!
+
 testForIn01
     |output|