The Trunk: Monticello-ar.355.mcz

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

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

Name: Monticello-ar.355
Author: ar
Time: 5 January 2010, 10:22:10 am
UUID: 0cc9ee39-396c-1547-bca8-ed6e4dec22eb
Ancestors: Monticello-ar.354

More unloading work: Move MC mock package to tests. Update tests to account for the change.

=============== Diff against Monticello-ar.354 ===============

Item was changed:
  SystemOrganization addCategory: #'Monticello-Base'!
  SystemOrganization addCategory: #'Monticello-Chunk Format'!
  SystemOrganization addCategory: #'Monticello-Loading'!
  SystemOrganization addCategory: #'Monticello-Merging'!
- SystemOrganization addCategory: #'Monticello-Mocks'!
  SystemOrganization addCategory: #'Monticello-Modeling'!
  SystemOrganization addCategory: #'Monticello-Patching'!
  SystemOrganization addCategory: #'Monticello-Repositories'!
  SystemOrganization addCategory: #'Monticello-Storing'!
  SystemOrganization addCategory: #'Monticello-UI'!
  SystemOrganization addCategory: #'Monticello-Versioning'!
+ SystemOrganization addCategory: #'Monticello-Mocks'!

Item was removed:
- ----- Method: MCMockDefinition>>summary (in category 'as yet unclassified') -----
- summary
-
- ^ token!

Item was removed:
- Object variableByteSubclass: #MCMockClassH
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Monticello-Mocks'!

Item was removed:
- ----- Method: MCMockClassA class>>one (in category 'as yet unclassified') -----
- one
-
- ^ 1!

Item was removed:
- ----- Method: MCMockDependency>>mockVersionInfo (in category 'mocks') -----
- mockVersionInfo
- ^ MCVersionInfo
- name: self name
- id: (self uuidForName: name)
- message: ''
- date: nil
- time: nil
- author: ''
- ancestors: #()!

Item was removed:
- ----- Method: MCMockClassA class>>cVar (in category 'as yet unclassified') -----
- cVar
- ^ CVar!

Item was removed:
- ----- Method: MCMockClassD>>one (in category 'as yet unclassified') -----
- one
- ^ 1!

Item was removed:
- ----- Method: MCMockDependency class>>fromTree: (in category 'instance creation') -----
- fromTree: anArray
- ^ self new initializeWithTree: anArray!

Item was removed:
- ----- Method: MCMockDefinition>>token (in category 'as yet unclassified') -----
- token
-
- ^ token!

Item was removed:
- ----- Method: MCMockDefinition>>description (in category 'as yet unclassified') -----
- description
-
- ^ token first!

Item was removed:
- ----- Method: MCMockClassB>>two (in category 'numeric') -----
- two
-
- ^ 2!

Item was removed:
- ----- Method: MCMockDependentItem>>name (in category 'as yet unclassified') -----
- name
-
- ^ name!

Item was removed:
- ----- Method: MCMockPackageInfo>>packageName (in category 'as yet unclassified') -----
- packageName
- ^ 'MonticelloMocks'!

Item was removed:
- ----- Method: MCMockDependency>>initializeWithTree: (in category 'accessing') -----
- initializeWithTree: expr
- expr isSymbol
- ifTrue: [name := expr.
- children := Array new.
- hasResolution := true.]
- ifFalse: [name := expr first.
- expr second isSymbol
- ifTrue: [hasResolution := false.
- children := Array new]
- ifFalse: [hasResolution := true.
- children := expr second]]!

Item was removed:
- ----- Method: MCDirtyPackageInfo>>packageName (in category 'as yet unclassified') -----
- packageName
- ^ 'MCDirtyPackage'!

Item was removed:
- MCMock subclass: #MCMockDependentItem
- instanceVariableNames: 'name provides requires'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Monticello-Mocks'!

Item was removed:
- ----- Method: MCMockClassA>>d (in category 'as yet classified') -----
- d
- ^ 'd'!

Item was removed:
- SharedPool subclass: #MCMockAPoolDictionary
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Monticello-Mocks'!

Item was removed:
- ----- Method: MCEmptyPackageInfo>>packageName (in category 'as yet unclassified') -----
- packageName
- ^ 'MCEmptyPackage'!

Item was removed:
- ----- Method: MCMockASubclass>>variables (in category 'as yet unclassified') -----
- variables
- ^ x + Y + MCMockClassA!

Item was removed:
- ----- Method: MCEmptyPackageInfo class>>wantsChangeSetLogging (in category 'as yet unclassified') -----
- wantsChangeSetLogging
- ^ false!

Item was removed:
- ----- Method: MCMockPackageInfo class>>initialize (in category 'as yet unclassified') -----
- initialize
- [self new register] on: MessageNotUnderstood do: []!

Item was removed:
- ----- Method: MCMockClassA class>>initialize (in category 'as yet unclassified') -----
- initialize
- CVar := #initialized!

Item was removed:
- ----- Method: MCMockPackageInfo>>classes (in category 'as yet unclassified') -----
- classes
- ^ self classNames
- select: [:name | Smalltalk hasClassNamed: name]
- thenCollect: [:name | Smalltalk at: name]!

Item was removed:
- ----- Method: MCMockPackageInfo>>extensionMethods (in category 'as yet unclassified') -----
- extensionMethods
- ^ Array with: (MethodReference new
- setStandardClass: MCSnapshotTest
- methodSymbol: #mockClassExtension)!

Item was removed:
- ----- Method: MCMockPackageInfo>>includesSystemCategory: (in category 'as yet unclassified') -----
- includesSystemCategory: categoryName
- ^self systemCategories anySatisfy: [:cat | cat sameAs: categoryName]!

Item was removed:
- ----- Method: MCMockClassA>>c (in category 'numeric') -----
- c
- ^ 'c1'!

Item was removed:
- ----- Method: MCEmptyPackageInfo class>>initialize (in category 'as yet unclassified') -----
- initialize
- [self new register] on: MessageNotUnderstood do: []!

Item was removed:
- ----- Method: MCMockDefinition class>>token: (in category 'as yet unclassified') -----
- token: aString
-
- ^ self new token: aString!

Item was removed:
- MCDefinition subclass: #MCMockDefinition
- instanceVariableNames: 'token'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Monticello-Mocks'!

Item was removed:
- ----- Method: MCEmptyPackageInfo>>classes (in category 'as yet unclassified') -----
- classes
- ^ #()!

Item was removed:
- ----- Method: MCMockDependentItem>>provisions (in category 'as yet unclassified') -----
- provisions
-
- ^ provides ifNil: [#()]!

Item was removed:
- PackageInfo subclass: #MCDirtyPackageInfo
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Monticello-Mocks'!

Item was removed:
- ----- Method: MCMock class>>wantsChangeSetLogging (in category 'as yet unclassified') -----
- wantsChangeSetLogging
- ^ false!

Item was removed:
- Object variableSubclass: #MCMockClassE
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Monticello-Mocks'!

Item was removed:
- ----- Method: MCMockClassA>>b (in category 'numeric') -----
- b
- ^ 'b1'!

Item was removed:
- ----- Method: MCMockClassA>>two (in category 'numeric') -----
- two
- ^ 2!

Item was removed:
- ----- Method: MCMockClassE class>>two (in category 'as yet unclassified') -----
- two
- ^ 2!

Item was removed:
- ----- Method: MCMockDependency>>resolve (in category 'resolving') -----
- resolve
- ^ self hasResolution
- ifTrue: [MCVersion new
- setPackage: MCSnapshotResource mockPackage
- info: self mockVersionInfo
- snapshot: MCSnapshotResource current snapshot
- dependencies: self children]
- ifFalse: [nil]!

Item was removed:
- ----- Method: MCMockDependency>>= (in category 'comparing') -----
- = other
- ^ self name = other name!

Item was removed:
- ----- Method: MCMockClassA>>moreTruth (in category 'boolean') -----
- moreTruth
-
- ^ true!

Item was removed:
- ----- Method: MCMockASubclass>>variables2 (in category 'as yet unclassified') -----
- variables2
- ^ ivar + CVar!

Item was removed:
- ----- Method: MCMockDefinition>>= (in category 'as yet unclassified') -----
- = definition
- ^definition token = token!

Item was removed:
- ----- Method: MCDirtyPackageInfo class>>wantsChangeSetLogging (in category 'as yet unclassified') -----
- wantsChangeSetLogging
- ^ false!

Item was removed:
- ----- Method: MCMockDefinition class>>wantsChangeSetLogging (in category 'as yet unclassified') -----
- wantsChangeSetLogging
- ^ false!

Item was removed:
- ----- Method: MCMockClassA>>truth (in category 'boolean') -----
- truth
- ^ true!

Item was removed:
- Object variableWordSubclass: #MCMockClassG
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Monticello-Mocks'!

Item was removed:
- ----- Method: MCMockDependency>>hash (in category 'comparing') -----
- hash
- ^ self name hash!

Item was removed:
- ----- Method: MCMockClassA>>a (in category 'numeric') -----
- a
- ^ 'a2'!

Item was removed:
- ----- Method: MCDirtyPackageInfo class>>initialize (in category 'as yet unclassified') -----
- initialize
- [self new register] on: MessageNotUnderstood do: []!

Item was removed:
- ----- Method: MCDirtyPackageInfo>>classes (in category 'as yet unclassified') -----
- classes
- ^ Array new: 0.!

Item was removed:
- MCMock subclass: #MCMockClassB
- instanceVariableNames: 'ivarb'
- classVariableNames: 'CVar'
- poolDictionaries: 'MCMockAPoolDictionary'
- category: 'Monticello-Mocks'!
- MCMockClassB class
- instanceVariableNames: 'ciVar'!
-
- !MCMockClassB commentStamp: '' prior: 0!
- This comment has a bang!! Bang!! Bang!!!

Item was removed:
- Object subclass: #MCMockDependency
- instanceVariableNames: 'name children hasResolution'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Monticello-Mocks'!

Item was removed:
- ----- Method: MCEmptyPackageInfo>>methods (in category 'as yet unclassified') -----
- methods
- ^ #()!

Item was removed:
- Object weakSubclass: #MCMockClassI
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Monticello-Mocks'!

Item was removed:
- MCMockClassA subclass: #MCMockASubclass
- instanceVariableNames: 'x'
- classVariableNames: 'Y'
- poolDictionaries: ''
- category: 'Monticello-Mocks'!

Item was removed:
- ----- Method: MCMockClassA>>q (in category 'drag''n''drop') -----
- q!

Item was removed:
- ----- Method: MCMockDependency>>hasResolution (in category 'resolving') -----
- hasResolution
- ^ hasResolution!

Item was removed:
- ----- Method: MCMockDependentItem>>requirements (in category 'as yet unclassified') -----
- requirements
-
- ^ requires ifNil: [#()]!

Item was removed:
- ----- Method: MCMockDependentItem>><= (in category 'as yet unclassified') -----
- <= other
- ^ self name <= other name!

Item was removed:
- ----- Method: MCMockDependentItem>>name: (in category 'as yet unclassified') -----
- name: aString
-
- name := aString!

Item was removed:
- ----- Method: MCMockPackageInfo>>includesClass: (in category 'as yet unclassified') -----
- includesClass: aClass
- ^self classes includes: aClass!

Item was removed:
- ----- Method: MCMockDefinition>>asString (in category 'as yet unclassified') -----
- asString
-
- ^ token!

Item was removed:
- Object subclass: #MCMockClassD
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Monticello-Mocks'!

Item was removed:
- PackageInfo subclass: #MCMockPackageInfo
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Monticello-Mocks'!

Item was removed:
- ----- Method: MCMockDependentItem>>provides: (in category 'as yet unclassified') -----
- provides: anArray
-
- provides := anArray!

Item was removed:
- ----- Method: MCMockDependency>>uuidForName: (in category 'mocks') -----
- uuidForName: aName
- | nm id |
- nm := aName asString.
- id := '00000000-0000-0000-0000-0000000000'
- , (nm size = 1 ifTrue: [nm , '0'] ifFalse: [nm]).
- ^UUID fromString: id!

Item was removed:
- Object subclass: #MCMock
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Monticello-Mocks'!

Item was removed:
- ----- Method: MCMockDependentItem>>requires: (in category 'as yet unclassified') -----
- requires: anArray
-
- requires := anArray!

Item was removed:
- ----- Method: MCMockDefinition>>printString (in category 'as yet unclassified') -----
- printString
-
- ^ token!

Item was removed:
- ----- Method: MCMockClassA class>>touchCVar (in category 'as yet unclassified') -----
- touchCVar
- CVar := #touched!

Item was removed:
- ----- Method: MCMockClassA>>one (in category 'numeric') -----
- one
- ^ 1!

Item was removed:
- Object subclass: #MCMockClassF
- instanceVariableNames: ''
- classVariableNames: 'Foo'
- poolDictionaries: ''
- category: 'Monticello-Mocks'!

Item was removed:
- ----- Method: MCMockDependency>>name (in category 'accessing') -----
- name
- ^ name!

Item was removed:
- ----- Method: MCMockDefinition>>token: (in category 'as yet unclassified') -----
- token: aString
-
- token := aString!

Item was removed:
- ----- Method: MCMockDependency>>children (in category 'accessing') -----
- children
- ^ children collect: [:ea | self class fromTree: ea]!

Item was removed:
- ----- Method: MCMockPackageInfo>>classNames (in category 'as yet unclassified') -----
- classNames
- ^ #( MCMockClassA
- MCMockASubclass
- MCMockClassB
- MCMockClassD
- MCMockClassE
- MCMockClassF
- MCMockClassG
- MCMockClassH
- MCMockClassI
- )!

Item was removed:
- ----- Method: MCMockClassA>>falsehood (in category 'boolean') -----
- falsehood
- ^ false!

Item was removed:
- ----- Method: MCMockPackageInfo>>systemCategories (in category 'as yet unclassified') -----
- systemCategories
- ^ Array with: 'Monticello-Mocks'!

Item was removed:
- MCMock subclass: #MCMockClassA
- instanceVariableNames: 'ivar'
- classVariableNames: 'CVar'
- poolDictionaries: ''
- category: 'Monticello-Mocks'!
-
- !MCMockClassA commentStamp: 'cwp 8/10/2003 16:43' prior: 0!
- This is a mock class. The Monticello tests manipulated it to simulate a developer modifying code in the image.!

Item was removed:
- ----- Method: MCDirtyPackageInfo>>methods (in category 'as yet unclassified') -----
- methods
- ^ MCMockClassA selectors
- select: [:ea | ea beginsWith: 'ordinal']
- thenCollect:
- [:ea |
- MethodReference new
- setStandardClass: MCMockClassA
- methodSymbol: ea].!

Item was removed:
- PackageInfo subclass: #MCEmptyPackageInfo
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Monticello-Mocks'!

Item was removed:
- ----- Method: MCMockDefinition>>hash (in category 'as yet unclassified') -----
- hash
-
- ^ token hash!