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

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

Name: Tests-cmm.130
Author: cmm
Time: 8 June 2011, 2:44:54.062 pm
UUID: 2e0b0f35-ee45-4a43-a6d4-959abb86a478
Ancestors: Tests-cmm.129

- Monticello tests no longer prompt for author intiials unnecessarily.
- Tests for new package rename function can be run multiple times - side-effects are now cleaned up.

=============== Diff against Tests-cmm.129 ===============

Item was changed:
  SystemOrganization addCategory: #'Tests-Exceptions'!
  SystemOrganization addCategory: #'Tests-Files'!
  SystemOrganization addCategory: #'Tests-Compiler'!
  SystemOrganization addCategory: #'Tests-Digital Signatures'!
  SystemOrganization addCategory: #'Tests-Object Events'!
  SystemOrganization addCategory: #'Tests-System-Support'!
  SystemOrganization addCategory: #'Tests-Bugs'!
  SystemOrganization addCategory: #'Tests-ObjectsAsMethods'!
  SystemOrganization addCategory: #'Tests-PrimCallController'!
  SystemOrganization addCategory: #'Tests-Release'!
  SystemOrganization addCategory: #'Tests-Utilities'!
  SystemOrganization addCategory: #'Tests-VM'!
  SystemOrganization addCategory: #'Tests-Hex'!
  SystemOrganization addCategory: #'Tests-Monticello'!
  SystemOrganization addCategory: #'Tests-Localization'!
  SystemOrganization addCategory: #'Tests-FilePackage'!
  SystemOrganization addCategory: #'Tests-Finalization'!
- SystemOrganization addCategory: #'Tests-Monticello-Mocks'!
  SystemOrganization addCategory: #'Tests-Dependencies'!
+ SystemOrganization addCategory: #'Tests-Monticello-Mocks'!

Item was changed:
  ----- Method: MCWorkingCopyTest>>setUp (in category 'running') -----
  setUp
  	| repos1 repos2 |
  	self clearPackageCache.
  	repositoryGroup := MCRepositoryGroup new.
  	workingCopy := MCWorkingCopy forPackage: self mockPackage.
  	versions := Dictionary new.
  	versions2 := Dictionary new.
  	repos1 := MCDictionaryRepository new dictionary: versions.
  	repos2 := MCDictionaryRepository new dictionary: versions2.
  	repositoryGroup addRepository: repos1.
  	repositoryGroup addRepository: repos2.
  	MCRepositoryGroup default removeRepository: repos1; removeRepository: repos2.
  	workingCopy repositoryGroup: repositoryGroup.
+ 	savedInitials := Utilities authorInitialsPerSe.
- 	savedInitials := Utilities authorInitials.
  	Utilities setAuthorInitials: 'abc'.!

Item was changed:
  ----- Method: MCWorkingCopyTest>>tearDown (in category 'running') -----
  tearDown
- 
  	super tearDown.
  	workingCopy unregister.
  	self restoreMocks.
+ 	SystemOrganizer default removeEmptyCategories.
+ 	MCSnapshotTest organization removeEmptyCategories.
+ 	Utilities setAuthorInitials: savedInitials!
- 	Utilities setAuthorInitials: savedInitials.!

Item was removed:
- ----- 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 ]!

Item was added:
+ ----- Method: MCWorkingCopyTest>>testRenamePrefix (in category 'tests') -----
+ testRenamePrefix
+ 	self verifyRenameTo: 'Renamed-' , workingCopy packageName.
+ 	SystemOrganizer default
+ 		renameCategory: 'Renamed-Tests-Monticello-Mocks'
+ 		toBe: 'Tests-Monticello-Mocks'!

Item was added:
+ ----- Method: MCWorkingCopyTest>>testRenameSuffix (in category 'tests') -----
+ testRenameSuffix
+ 	self verifyRenameTo: workingCopy packageName, '-Renamed'!

Item was added:
+ ----- Method: MCWorkingCopyTest>>verifyRenameTo: (in category 'tests') -----
+ verifyRenameTo: newName 
+ 	| oldWorkingCopy oldDefinitions newWorkingCopy |
+ 	oldWorkingCopy := workingCopy.
+ 	oldDefinitions := workingCopy package snapshot definitions.
+ 	newWorkingCopy := workingCopy renameToBe: newName.
+ 	self
+ 		 assert: oldWorkingCopy ancestors = newWorkingCopy ancestors ;
+ 		 assert: newWorkingCopy needsSaving ;
+ 		 assert: newWorkingCopy requiredPackages = oldWorkingCopy requiredPackages ;
+ 		 assert: newWorkingCopy repositoryGroup repositories = oldWorkingCopy repositoryGroup repositories ;
+ 		 assert: newWorkingCopy package snapshot definitions size = oldDefinitions size ;
+ 		 assert: (MCWorkingCopy registry includesKey: newWorkingCopy package) ;
+ 		 assert: (MCWorkingCopy registry includes: newWorkingCopy) ;
+ 		 deny: (MCWorkingCopy registry includes: oldWorkingCopy).
+ 	workingCopy := newWorkingCopy!