#BUGFIX
authorClaus Gittinger <cg@exept.de>
Wed, 23 Mar 2016 18:33:17 +0100
changeset 1363 806bd20a7e59
parent 1362 9810c48bb498
child 1364 6b667c8faf19
#BUGFIX class: RegressionTests::ExceptionTest changed: #test12_abortInEnsure #test13_abortInEnsureInProcess
RegressionTests__ExceptionTest.st
--- a/RegressionTests__ExceptionTest.st	Wed Mar 23 14:38:08 2016 +0100
+++ b/RegressionTests__ExceptionTest.st	Wed Mar 23 18:33:17 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'exept:regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -312,51 +310,51 @@
     setUp :=
         [
             trace add:1. 
-            Transcript showCR:'1'.
+            "/ Transcript showCR:'1'.
             AbortSignal raise.
         ].
 
     tearDown :=
         [
             trace add:2.
-            Transcript showCR:'2'.
+            "/ Transcript showCR:'2'.
             AbortSignal raise.
         ].
 
     action :=
         [
             trace add:3.
-            Transcript showCR:'3'.
+            "/ Transcript showCR:'3'.
         ].
 
     AbortSignal handle:[:ex |
         trace add:44.
-        Transcript showCR:'44'.
+        "/ Transcript showCR:'44'.
     ] do:[
         AbortSignal handle:[:ex |
             trace add:4.
-            Transcript showCR:'4'.
+            "/ Transcript showCR:'4'.
         ] do:[
             [
                 trace add:5.
-                Transcript showCR:'5'.
+                "/ Transcript showCR:'5'.
                 setUp value.
                 trace add:6.
-                Transcript showCR:'6'.
+                "/ Transcript showCR:'6'.
                 action value.
                 trace add:7.
-                Transcript showCR:'7'.
+                "/ Transcript showCR:'7'.
             ] ensure: [
                 trace add:8.
-                Transcript showCR:'8'.
+                "/ Transcript showCR:'8'.
                 tearDown value
                 trace add:9.
-                Transcript showCR:'9'.
+                "/ Transcript showCR:'9'.
             ].
         ].
     ].
     trace add:10.
-    Transcript showCR:'10'.
+    "/ Transcript showCR:'10'.
     self assert:(trace asArray = #(5 1 4 8 2 4 10)).
 
     "
@@ -372,53 +370,53 @@
     setUp :=
         [
             trace add:1. 
-            Transcript showCR:'1'.
+            "/ Transcript showCR:'1'.
             AbortSignal raise.
         ].
 
     tearDown :=
         [
             trace add:2.
-            Transcript showCR:'2'.
+            "/ Transcript showCR:'2'.
             AbortSignal raise.
         ].
 
     action :=
         [
             trace add:3.
-            Transcript showCR:'3'.
+            "/ Transcript showCR:'3'.
         ].
 
     p := 
         [
             AbortSignal handle:[:ex |
                 trace add:44.
-                Transcript showCR:'44'.
+                "/ Transcript showCR:'44'.
             ] do:[
                 AbortSignal handle:[:ex |
                     trace add:4.
-                    Transcript showCR:'4'.
+                    "/ Transcript showCR:'4'.
                 ] do:[
                     [
                         trace add:5.
-                        Transcript showCR:'5'.
+                        "/ Transcript showCR:'5'.
                         setUp value.
                         trace add:6.
-                        Transcript showCR:'6'.
+                        "/ Transcript showCR:'6'.
                         action value.
                         trace add:7.
-                        Transcript showCR:'7'.
+                        "/ Transcript showCR:'7'.
                     ] sunitEnsure: [
                         trace add:8.
-                        Transcript showCR:'8'.
+                        "/ Transcript showCR:'8'.
                         tearDown value
                         trace add:9.
-                        Transcript showCR:'9'.
+                        "/ Transcript showCR:'9'.
                     ].
                 ].
             ].
             trace add:10.
-            Transcript showCR:'10'.
+            "/ Transcript showCR:'10'.
         ] newProcess.
     "/ p addExitAction:[ self halt].
     p resume.