hg/stx-goodies-regression: RegressionTests__ExceptionTest.st@4c48bc5be61c (annotated)

241 5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	1	"{ Package: 'exept:regression' }"
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	2
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	3	"{ NameSpace: RegressionTests }"
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	4
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	5	TestCase subclass:#ExceptionTest
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	6	instanceVariableNames:''
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	7	classVariableNames:''
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	8	poolDictionaries:''
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	9	category:'tests-Regression'
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	10	!
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	11
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	12	!ExceptionTest class methodsFor:'documentation'!
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	13
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	14	documentation
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	15	"
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	16	documentation to be added.
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	17
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	18	[author:]
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	19	Stefan Vogel (stefan@zwerg)
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	20
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	21	[instance variables:]
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	22
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	23	[class variables:]
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	24
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	25	[see also:]
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	26
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	27	"
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	28	! !
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	29
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	30	!ExceptionTest methodsFor:'tests'!
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	31
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	32	test01
241 5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	33
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	34	\|result zero\|
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	35
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	36	result := OrderedCollection new.
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	37	zero := 0.
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	38
349 8aeec57e44db * empty log message * Claus Gittinger <cg@exept.de> parents: 241 diff changeset	39	[ 0 // zero ]
8aeec57e44db * empty log message * Claus Gittinger <cg@exept.de> parents: 241 diff changeset	40	on:ZeroDivide
8aeec57e44db * empty log message * Claus Gittinger <cg@exept.de> parents: 241 diff changeset	41	do:[:ex\|
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	42	self assert:(ex creator == ZeroDivide).
349 8aeec57e44db * empty log message * Claus Gittinger <cg@exept.de> parents: 241 diff changeset	43	self assert:(ex originator == 0).
8aeec57e44db * empty log message * Claus Gittinger <cg@exept.de> parents: 241 diff changeset	44	result add:#Error
8aeec57e44db * empty log message * Claus Gittinger <cg@exept.de> parents: 241 diff changeset	45	].
241 5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	46	self assert:(result size == 1).
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	47	self assert:(result first == #Error).
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	48	!
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	49
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	50	test02
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	51
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	52	\|result zero\|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	53
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	54	result := OrderedCollection new.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	55	zero := 0.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	56
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	57	self should:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	58	[ 0 // zero ] on:ZeroDivide do:[:ex\|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	59	result add:#Error.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	60	0 // zero
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	61	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	62	] raise:ZeroDivide.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	63	self assert:(result size == 1).
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	64	self assert:(result first == #Error).
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	65	!
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	66
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	67	test03
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	68
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	69	\|result zero\|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	70
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	71	result := OrderedCollection new.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	72	zero := 0.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	73
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	74	self should:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	75	[ 0 // zero ] on:ZeroDivide do:[:ex\|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	76	result add:#Error.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	77	[ 0 // zero ] on:ZeroDivide do:[:ex\|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	78	result add:#Error1.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	79	ex reject.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	80	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	81	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	82	] raise:ZeroDivide.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	83	self assert:(result size == 2).
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	84	self assert:(result first == #Error).
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	85	self assert:(result second == #Error1).
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	86	!
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	87
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	88	test04_on_do
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	89
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	90	\|exceptionHappened zero\|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	91
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	92	zero := 0.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	93	exceptionHappened := false.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	94
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	95	[0 // zero]
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	96	on:ZeroDivide
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	97	do:[:ex\|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	98	exceptionHappened := true
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	99	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	100
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	101	self assert:(exceptionHappened).
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	102	!
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	103
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	104	test05_on_do_ensure
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	105
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	106	\|exceptionHappened ensureCalled zero\|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	107
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	108	zero := 0.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	109	exceptionHappened := ensureCalled := false.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	110
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	111	[0 // zero]
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	112	on:ZeroDivide
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	113	do:[:ex\| exceptionHappened := true]
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	114	ensure:[ ensureCalled := true ].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	115
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	116	self assert:(exceptionHappened).
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	117	self assert:(ensureCalled).
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	118	!
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	119
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	120	test06_on_do_ensure
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	121
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	122	\|exceptionHappened ensureCalled zero\|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	123
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	124	zero := 0.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	125	exceptionHappened := ensureCalled := false.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	126
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	127	[zero // 1]
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	128	on:ZeroDivide
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	129	do:[:ex\| exceptionHappened := true]
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	130	ensure:[ ensureCalled := true ].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	131
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	132	self assert:(exceptionHappened not).
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	133	self assert:(ensureCalled).
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	134	!
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	135
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	136	test07_error_in_unwind
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	137	"think about this - not sure, how to react on an error happening in the unwind..."
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	138
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	139	\|zero trace\|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	140
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	141	zero := 0.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	142
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	143	trace := OrderedCollection new.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	144	self should:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	145	Error handle:[:ex \|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	146	trace add:5.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	147	] do:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	148	[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	149	trace add:1.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	150	1 // zero.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	151	trace add:2.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	152	] ensure:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	153	trace add:3.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	154	1 // zero.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	155	trace add:4.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	156	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	157	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	158	] raise:Error.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	159
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	160	self assert:(trace asArray = #(1 5 3)).
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	161	!
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	162
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	163	test08_error_in_unwind2
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	164	"no matter what happens in test7 - this one should work !!"
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	165
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	166	\|zero trace\|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	167
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	168	zero := 0.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	169
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	170	trace := OrderedCollection new.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	171	self shouldnt:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	172	Error handle:[:ex \|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	173	trace add:6.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	174	] do:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	175	Error handle:[:ex \|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	176	trace add:5.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	177	] do:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	178	[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	179	trace add:1.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	180	1 // zero.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	181	trace add:2.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	182	] ensure:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	183	trace add:3.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	184	1 // zero.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	185	trace add:4.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	186	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	187	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	188	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	189	] raise:Error.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	190
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	191	self assert:(trace asArray = #(1 5 3 6)).
241 5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	192
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	193
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	194	"Created: / 24-08-2011 / 14:02:01 / cg"
241 5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	195	!
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	196
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	197	test09_reraiseOuterHandlerWithEnsure
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	198	\|trace\|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	199
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	200	trace := OrderedCollection new.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	201
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	202	AbortSignal handle:[:ex \|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	203	trace add:1.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	204	] do:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	205	[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	206	AbortSignal handle:[:ex \|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	207	trace add:2.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	208	AbortSignal raise.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	209	trace add:3.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	210	] do:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	211	trace add:4.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	212	AbortSignal raise.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	213	trace add:5.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	214	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	215	trace add:6.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	216	] ensure:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	217	trace add:9
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	218	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	219	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	220	trace add:7.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	221
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	222	self assert:(trace asArray = #(4 2 1 9 7)).
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	223	!
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	224
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	225	test10_reraiseOuterHandlerWithEnsure
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	226	\|trace\|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	227
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	228	trace := OrderedCollection new.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	229
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	230	AbortSignal handle:[:ex \|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	231	trace add:1.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	232	] do:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	233	[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	234	AbortSignal handle:[:ex \|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	235	trace add:2.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	236	AbortSignal raise.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	237	trace add:3.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	238	] do:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	239	trace add:4.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	240	AbortSignal raise.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	241	trace add:5.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	242	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	243	trace add:6.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	244	] ensure:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	245	trace add:9
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	246	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	247	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	248	trace add:7.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	249
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	250	self assert:(trace asArray = #(4 2 1 9 7)).
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	251	!
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	252
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	253	test11
241 5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	254
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	255	\|result zero\|
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	256
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	257	result := OrderedCollection new.
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	258	zero := 0.
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	259
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	260	[
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	261	[
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	262	Warning handle:[:ex \| result add:#Warning ] do:[ 2 // zero ].
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	263	] on:ZeroDivide do:[:ex \|
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	264	result add:#Error.
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	265	ex reject.
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	266	[
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	267	self warn:ex description.
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	268	] on:Warning do:[:ex\| result add:#Warning2]
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	269	]
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	270	] on:ZeroDivide do:[:ex \|
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	271	result add:#Error2
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	272	].
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	273
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	274	self assert:(result size == 2).
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	275	self assert:(result first == #Error).
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	276	self assert:(result second == #Error2)
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	277
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	278	"
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	279	self run:#test10
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	280	self new test10
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	281	"
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	282	!
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	283
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	284	test12_abortInEnsure
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	285	\|trace setUp tearDown action\|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	286
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	287	trace := OrderedCollection new.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	288
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	289	setUp :=
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	290	[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	291	trace add:1.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	292	Transcript showCR:'1'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	293	AbortSignal raise.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	294	].
241 5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	295
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	296	tearDown :=
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	297	[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	298	trace add:2.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	299	Transcript showCR:'2'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	300	AbortSignal raise.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	301	].
241 5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	302
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	303	action :=
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	304	[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	305	trace add:3.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	306	Transcript showCR:'3'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	307	].
241 5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	308
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	309	AbortSignal handle:[:ex \|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	310	trace add:44.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	311	Transcript showCR:'44'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	312	] do:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	313	AbortSignal handle:[:ex \|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	314	trace add:4.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	315	Transcript showCR:'4'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	316	] do:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	317	[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	318	trace add:5.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	319	Transcript showCR:'5'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	320	setUp value.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	321	trace add:6.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	322	Transcript showCR:'6'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	323	action value.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	324	trace add:7.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	325	Transcript showCR:'7'.
917 4c48bc5be61c class: RegressionTests::ExceptionTest Stefan Vogel <sv@exept.de> parents: 916 diff changeset	326	] ensure: [
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	327	trace add:8.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	328	Transcript showCR:'8'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	329	tearDown value
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	330	trace add:9.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	331	Transcript showCR:'9'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	332	].
241 5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	333	].
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	334	].
917 4c48bc5be61c class: RegressionTests::ExceptionTest Stefan Vogel <sv@exept.de> parents: 916 diff changeset	335	trace add:10.
4c48bc5be61c class: RegressionTests::ExceptionTest Stefan Vogel <sv@exept.de> parents: 916 diff changeset	336	Transcript showCR:'10'.
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	337	self assert:(trace asArray = #(5 1 4 8 2 44 10)).
241 5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	338
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	339	"
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	340	self new test12_reraiseOuterHandlerWithEnsure
349 8aeec57e44db * empty log message * Claus Gittinger <cg@exept.de> parents: 241 diff changeset	341	"
8aeec57e44db * empty log message * Claus Gittinger <cg@exept.de> parents: 241 diff changeset	342	!
8aeec57e44db * empty log message * Claus Gittinger <cg@exept.de> parents: 241 diff changeset	343
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	344	test13_abortInEnsureInProcess
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	345	\|trace setUp tearDown action p\|
634 ae51f7778dad added: Claus Gittinger <cg@exept.de> parents: 349 diff changeset	346
ae51f7778dad added: Claus Gittinger <cg@exept.de> parents: 349 diff changeset	347	trace := OrderedCollection new.
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	348
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	349	setUp :=
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	350	[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	351	trace add:1.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	352	Transcript showCR:'1'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	353	AbortSignal raise.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	354	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	355
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	356	tearDown :=
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	357	[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	358	trace add:2.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	359	Transcript showCR:'2'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	360	AbortSignal raise.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	361	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	362
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	363	action :=
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	364	[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	365	trace add:3.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	366	Transcript showCR:'3'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	367	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	368
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	369	p :=
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	370	[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	371	AbortSignal handle:[:ex \|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	372	trace add:44.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	373	Transcript showCR:'44'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	374	] do:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	375	AbortSignal handle:[:ex \|
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	376	trace add:4.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	377	Transcript showCR:'4'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	378	] do:[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	379	[
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	380	trace add:5.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	381	Transcript showCR:'5'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	382	setUp value.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	383	trace add:6.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	384	Transcript showCR:'6'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	385	action value.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	386	trace add:7.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	387	Transcript showCR:'7'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	388	] sunitEnsure: [
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	389	trace add:8.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	390	Transcript showCR:'8'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	391	tearDown value
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	392	trace add:9.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	393	Transcript showCR:'9'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	394	].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	395	].
641 0c1a14671aee changed: Claus Gittinger <cg@exept.de> parents: 634 diff changeset	396	].
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	397	trace add:10.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	398	Transcript showCR:'10'.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	399	] newProcess.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	400	"/ p addExitAction:[ self halt].
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	401	p resume.
641 0c1a14671aee changed: Claus Gittinger <cg@exept.de> parents: 634 diff changeset	402
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	403	p waitUntilTerminated.
6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	404	self assert:(trace asArray = #(5 1 4 8 2 44 10)).
634 ae51f7778dad added: Claus Gittinger <cg@exept.de> parents: 349 diff changeset	405
ae51f7778dad added: Claus Gittinger <cg@exept.de> parents: 349 diff changeset	406	"
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	407	self new test12_reraiseOuterHandlerWithEnsure
634 ae51f7778dad added: Claus Gittinger <cg@exept.de> parents: 349 diff changeset	408	"
241 5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	409	! !
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	410
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	411	!ExceptionTest class methodsFor:'documentation'!
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	412
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	413	version
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	414	^ '$Header$'
5b8a5dd10628 initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	415	! !
916 6d9ff4af7d5c class: RegressionTests::ExceptionTest Claus Gittinger <cg@exept.de> parents: 641 diff changeset	416

author	Stefan Vogel <sv@exept.de>
	Fri, 19 Apr 2013 17:11:14 +0200
changeset 917	4c48bc5be61c
parent 916	6d9ff4af7d5c
child 943	ca26d59e7f3c
permissions	-rw-r--r--