changed #testTryCatchFinally01
authorClaus Gittinger <cg@exept.de>
Tue, 11 Nov 2008 21:58:49 +0100
changeset 348 efd32656acce
parent 347 618883cca24a
child 349 8aeec57e44db
changed #testTryCatchFinally01
RegressionTests__JavaScriptTests.st
--- a/RegressionTests__JavaScriptTests.st	Tue Nov 11 17:04:04 2008 +0100
+++ b/RegressionTests__JavaScriptTests.st	Tue Nov 11 21:58:49 2008 +0100
@@ -3934,6 +3934,34 @@
     "
 !
 
+testTryCatchFinally01
+    self 
+        execute:'test(arg) {
+                    var handlerWasCalled = false;
+                    var finallyExecuted = false;
+
+                    function failingMethod() {  return 10 / arg; };
+                    function exceptionRaised() {  handlerWasCalled =  true; };
+
+                    try {
+                        failingMethod();
+                    } catch (Error e) {
+                        exceptionRaised(e);
+                    } finally {
+                        finallyExecuted = true;
+                    }
+                    return handlerWasCalled && finallyExecuted;    
+                 }'
+        for:nil
+        arguments:#(0)
+        expect:true
+
+    "
+     self run:#testTryCatchFinally01
+     self new testTryCatchFinally01
+    "
+!
+
 testTryFinally01
     self 
         execute:'test(arg) {