RegressionTests__JavaScriptTests.st
changeset 322 22f981fbf932
parent 321 30d4cbd2508c
child 331 34a4a7889400
--- a/RegressionTests__JavaScriptTests.st	Thu Mar 16 15:24:19 2006 +0100
+++ b/RegressionTests__JavaScriptTests.st	Thu Mar 16 19:37:04 2006 +0100
@@ -3667,6 +3667,42 @@
     "
 !
 
+testTryFinally01
+    self 
+        execute:'test(arg) {
+                    var handlerWasCalled = false;
+
+                    println("1");
+                    try {    
+                        function dummy () {
+                            println("2a");
+                            try {
+                                println("2b");
+                                return 10 / arg;
+                            } finally {
+                                println("2c");
+                                handlerWasCalled = true;
+                            }
+                        };
+
+                        println("2");
+                        dummy();
+                        println("3");
+                    } catch(Error);
+
+                    println("4");
+                    return handlerWasCalled;
+                 }'
+        for:JavaScriptEnvironment new
+        arguments:#(0)
+        expect:true
+
+    "
+     self run:#testTryFinally01
+     self new testTryFinally01
+    "
+!
+
 testVarDeclaration01
     self 
         execute:'expr(a, b) {