'From Squeak4.2alpha of 19 August 2010 [latest update: #10382] on 23 September 2010 at 1:24:51 am'!
TestCase subclass: #WeakFinalizersTest
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'CollectionsTests-Weak'!

!WeakFinalizersTest methodsFor: 'as yet unclassified' stamp: 'Igor.Stasenko 3/8/2010 22:15'!
testNewFinalizationSupported
	| list item |

	list := WeakFinalizationList new.
	
	
	item := WeakFinalizerItem new list: list object: Object new executor: nil.
	
	self assert: (list first isNil).
	self assert: (item object notNil).
	
	Smalltalk garbageCollect.
	
	self assert: (item object isNil).
	self assert: (list first == item).
	self assert: (list first next == nil).! !