Andreas Raab uploaded a new version of TraitsTests to project The Trunk:
http://source.squeak.org/trunk/TraitsTests-ar.8.mcz

==================== Summary ====================

Name: TraitsTests-ar.8
Author: ar
Time: 29 March 2010, 8:58:51.65 pm
UUID: a365e4f0-6365-a346-83f4-764ff185d2b8
Ancestors: TraitsTests-ul.7

Add a test for the behavior of traits during condenseChanges.

=============== Diff against TraitsTests-ul.7 ===============

Item was added:
+ ----- Method: TraitFileOutTest>>testCondenseChanges (in category 'testing') -----
+ testCondenseChanges
+ 	"Tests moveChangesTo: in the face of aliases and other trait manipulations"
+ 	| file classOrTrait originals copy |
+ 	file := FileStream forceNewFileNamed: 'TraitFileOutTest.changes'.
+ 	[originals := IdentityDictionary new.
+ 	#(t1 t2 t3 t4 t5 t6 c1 c2) do:[:clsName|
+ 		classOrTrait := self perform: clsName.
+ 		classOrTrait methodsDo:[:each|
+ 			originals at: each put: each getSourceFromFile.
+ 		].
+ 		file setToEnd.
+ 		classOrTrait moveChangesTo: file.
+ 		originals keysAndValuesDo:[:method :source| 
+ 			"we need the upfront assertion to avoid a current bug 
+ 			in #nextChunk when using out of bounds indexes"
+ 			self assert: method filePosition < file size.
+ 			copy := file position: method filePosition; nextChunkText.
+ 			self assert: copy = source.
+ 		].
+ 	].
+ 	] ensure:[
+ 		file close. 
+ 		FileDirectory default deleteFileNamed: file name ifAbsent:[].
+ 	].!