Chris Muller uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-cmm.290.mcz

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

Name: Tests-cmm.290
Author: cmm
Time: 17 February 2014, 4:35:24.565 pm
UUID: f3fccfae-6baf-4093-ba62-e15ef110a687
Ancestors: Tests-cwp.289

Minor factoring.

=============== Diff against Tests-cwp.289 ===============

Item was changed:
  ----- Method: BlockLocalTemporariesRemovalTest>>assert:isChangedDuringParsingTo:withRemovalOfTemporariesNamed: (in category 'test helper') -----
+ assert: someCode isChangedDuringParsingTo: someOtherCode withRemovalOfTemporariesNamed: someTempNames 
- assert: someCode isChangedDuringParsingTo: someOtherCode withRemovalOfTemporariesNamed: someTempNames
- 
  	| failBlock |
  	self sourceCode: someCode.
+ 	failBlock := [ self fail ].
+ 	[ self class
+ 		compile: self sourceCode
+ 		notifying: self
+ 		trailer: self class defaultMethodTrailer
+ 		ifFail: failBlock ]
- 	failBlock := [self fail].
- 	[self class
- 			compile: self sourceCode
- 			notifying: self
- 			trailer: self class defaultMethodTrailer
- 			ifFail: failBlock]
  		on: UnusedVariable
+ 		do:
+ 			[ : aNotification | aNotification openMenuIn:
+ 				[ : options : emptyCollection : someText | aNotification resume:
+ 					(someTempNames anySatisfy:
+ 						[ : tempName | someText beginsWith: tempName ]) ] ].
- 		do: [:aNotification | aNotification
- 				openMenuIn: [:options :emptyCollection :someText | 
- 					(someTempNames anySatisfy: [:tempName | someText startsWith: tempName])
- 						ifTrue: [aNotification resume: true]
- 						ifFalse: [aNotification resume: false]]].
  	self assert: self sourceCode = someOtherCode!