[Pkg] The Trunk: Tests-cmm.130.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Jun 8 21:25:12 UTC 2011
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!
More information about the Packages
mailing list