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

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

Name: Tests-cmm.129
Author: cmm
Time: 8 June 2011, 11:57:22.654 am
UUID: 2adf456b-5914-4439-af88-e05e19f47aa7
Ancestors: Tests-nice.128

Initial test for renaming a package.

=============== Diff against Tests-nice.128 ===============

Item was added:
+ ----- Method: MCWorkingCopyTest>>testRename (in category 'tests') -----
+ testRename
+ 	| oldWorkingCopy oldDefinitions newWorkingCopy |
+ 	oldWorkingCopy := workingCopy.
+ 	oldDefinitions := workingCopy package snapshot definitions.
+ 	newWorkingCopy := workingCopy renameToBe: 'Renamed-' , workingCopy packageName.
+ 	[ self
+ 		 assert: oldWorkingCopy ancestors = newWorkingCopy ancestors ;
+ 		 assert: newWorkingCopy needsSaving ;
+ 		 assert: newWorkingCopy requiredPackages = oldWorkingCopy requiredPackages ;
+ 		 assert: newWorkingCopy repositoryGroup repositories = oldWorkingCopy repositoryGroup repositories ;
+ 		 assert: oldWorkingCopy package snapshot definitions isEmpty ;
+ 		 assert: (MCWorkingCopy registry includesKey: newWorkingCopy package) ;
+ 		 assert: (MCWorkingCopy registry includes: newWorkingCopy) ;
+ 		 deny: (MCWorkingCopy registry includes: oldWorkingCopy) ;
+ 		 assert: newWorkingCopy package snapshot definitions size = oldDefinitions size ] ensure: [ newWorkingCopy unregister ]!