[Pkg] The Trunk: Monticello-ar.355.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Jan 5 09:22:18 UTC 2010


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!



More information about the Packages mailing list