RegressionTests__JavaScriptTests.st
changeset 281 2935b3c27b05
parent 278 a66b70f02f50
child 320 36358ab9b7f1
--- a/RegressionTests__JavaScriptTests.st	Thu Apr 28 21:12:12 2005 +0200
+++ b/RegressionTests__JavaScriptTests.st	Wed May 04 11:57:13 2005 +0200
@@ -2680,6 +2680,72 @@
     "Modified: / 20-04-2005 / 11:55:30 / cg"
 !
 
+testReturn02
+    self 
+        execute:'test(n) {
+                     function inner() { return 2 from test; };
+
+                     inner();
+                     return 1;
+                 }'
+        for:nil
+        arguments:#(10)
+        expect:2
+
+    "
+     self run:#testReturn02
+     self new testReturn02
+    "
+!
+
+testReturn03
+    self 
+        execute:'test(n) {
+                     function inner1() { 
+                        function inner2() { 
+                            return 2 from test; 
+                        };
+
+                        inner2();
+                     };
+
+                     inner1();
+                     return 1;
+                 }'
+        for:nil
+        arguments:#(10)
+        expect:2
+
+    "
+     self run:#testReturn03
+     self new testReturn03
+    "
+!
+
+testReturn04
+    self 
+        execute:'test(n) {
+                     function inner1() { 
+                        function inner2() { 
+                            return 2 from inner1; 
+                        };
+
+                        inner2();
+                     };
+
+                     inner1();
+                     return 1;
+                 }'
+        for:nil
+        arguments:#(10)
+        expectError:#ParseError
+
+    "
+     self run:#testReturn04
+     self new testReturn04
+    "
+!
+
 testScanner01
     self 
         execute:'f() { }'