'From Pharo1.3 of 16 June 2011 [Latest update: #13300] on 13 September 2011 at 6:40:43 pm'!
TestCase subclass: #TempsTest
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Temps-Test'!

!TempsTest methodsFor: 'private' stamp: 'pmm 9/13/2011 18:30'!
signalInterestingError
	Semaphore forMutualExclusion critical: [
		Error signal: 'foo' ]! !


!TempsTest methodsFor: 'testing' stamp: 'pmm 9/13/2011 18:40'!
testNamedTempAt
	| frames |
	frames := OrderedCollection new.
	[ self signalInterestingError ]
		on: Error
		do: [ :error |
			| context |
			context := error signalerContext.
			[ context isNil ] whileFalse: [
				frames add: context.
				context := context sender ]. ].
	"self halt"
	frames do: [ :each |
		1 to: each tempNames size do: [ :i |
			each namedTempAt: i ] ]! !