[squeak-dev] The Trunk: TraitsTests-ar.9.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Apr 6 04:25:34 UTC 2010


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

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

Name: TraitsTests-ar.9
Author: ar
Time: 5 April 2010, 9:25:28.442 pm
UUID: 67cba713-9140-bb46-a570-adeec9f31511
Ancestors: TraitsTests-ar.8

Mark TraitsResource current dirty after condenseChanges test since it would otherwise wreck havoc with later tests.

=============== Diff against TraitsTests-ar.8 ===============

Item was changed:
  ----- 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:[
+ 		TraitsResource current setDirty.
  		file close. 
  		FileDirectory default deleteFileNamed: file name ifAbsent:[].
  	].!




More information about the Squeak-dev mailing list