#BUGFIX
class: RegressionTests::ExceptionTest
changed:
#test12_abortInEnsure
#test13_abortInEnsureInProcess
--- 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.