Packages November 2011

packages@lists.squeakfoundation.org

1 participants
159 discussions

The Trunk: System-eem.460.mcz
by commits＠source.squeak.org 04 Nov '11

04 Nov '11

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.460.mcz ==================== Summary ==================== Name: System-eem.460 Author: eem Time: 4 November 2011, 9:24:41.847 am UUID: 8a0828f0-10ab-47fa-b913-702447f13375 Ancestors: System-laza.459 Refactor SystemNavigation>>browseAllStoresInto:from: to provide SystemNavigation>>allStoresInto:from:. =============== Diff against System-laza.459 =============== Item was changed: ----- Method: SystemNavigation>>allAccessesTo:from: (in category 'query') ----- allAccessesTo: instVarName from: aClass + "Return a sequence of MethodReferences of all methods of aClass or it's sub/superclass that refer to the instance variable instVarName." - "Return a collection of all methods of aClass or it's sub/superclass that refer to the instance variable instVarName." | result | result := OrderedCollection new. + aClass withAllSubAndSuperclassesDo: + [ :class | + (class whichSelectorsAccess: instVarName) do: + [ :selector | - aClass withAllSubAndSuperclassesDo: [ :class | - (class whichSelectorsAccess: instVarName) do: [ :selector | result add: (MethodReference class: class selector: selector) ] ]. ^result! Item was added: + ----- Method: SystemNavigation>>allStoresInto:from: (in category 'query') ----- + allStoresInto: varName from: aClass + "Answer a sequence of MewthodReferences for all the receiver's methods + or any methods of a subclass/superclass that assign to the instance variable name." + "self new allStoresInto: 'contents' from: Collection." + | result | + result := OrderedCollection new. + aClass withAllSubAndSuperclassesDo: + [ : class | + (class whichMethodsStoreInto: varName) do: + [ : eachMethod | + result add: eachMethod methodReference ] ]. + ^result! Item was changed: ----- Method: SystemNavigation>>browseAllStoresInto:from: (in category 'browse') ----- + browseAllStoresInto: varName from: aClass - browseAllStoresInto: varName from: aClass "Create and schedule a Message Set browser for all the receiver's methods or any methods of a subclass/superclass that refer to the instance variable name." "self new browseAllStoresInto: 'contents' from: Collection." - | coll | - coll := OrderedCollection new. - Cursor wait showWhile: - [ aClass withAllSubAndSuperclassesDo: - [ : class | (class whichMethodsStoreInto: varName) do: - [ : eachMethod | eachMethod selector isDoIt ifFalse: [ coll add: eachMethod methodReference ] ] ] ]. ^ self + browseMessageList: (self allStoresInto: varName from: aClass) - browseMessageList: coll name: 'Stores into ' , varName autoSelect: varName!

1 0

The Trunk: System-eem.460.mcz
by commits＠source.squeak.org 04 Nov '11

04 Nov '11

1 0

The Trunk: Kernel-laza.649.mcz
by commits＠source.squeak.org 04 Nov '11

04 Nov '11

Alexander Lazarević uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-laza.649.mcz ==================== Summary ==================== Name: Kernel-laza.649 Author: laza Time: 3 November 2011, 1:09:36.555 am UUID: 9ee9cceb-4b76-3d41-8a57-bd0b6eb79dc0 Ancestors: Kernel-eem.648 Make protocol changes be recorded by the changes file. =============== Diff against Kernel-eem.648 =============== Item was changed: ----- Method: ClassOrganizer>>addCategory:before: (in category 'accessing') ----- addCategory: catString before: nextCategory - | oldCategories | - oldCategories := self categories copy. SystemChangeNotifier uniqueInstance doSilently: [ super addCategory: catString before: nextCategory]. + self notifyOfChangedCategoryFrom: nil to: catString.! - self notifyOfChangedCategoriesFrom: oldCategories to: self categories.! Item was changed: ----- Method: ClassOrganizer>>notifyOfChangedCategoryFrom:to: (in category 'private') ----- notifyOfChangedCategoryFrom: oldNameOrNil to: newNameOrNil (self hasSubject and: [oldNameOrNil ~= newNameOrNil]) + ifTrue: [ + oldNameOrNil + ifNil: [ + newNameOrNil ifNotNil: [ + SystemChangeNotifier uniqueInstance + protocolAdded: newNameOrNil inClass: self subject. + ] + ] + ifNotNil: [ + newNameOrNil ifNil: [ + SystemChangeNotifier uniqueInstance + protocolRemoved: oldNameOrNil inClass: self subject. + ] + ifNotNil: [ + SystemChangeNotifier uniqueInstance + protocolRenamedFrom: oldNameOrNil to: newNameOrNil inClass: self subject. + ] + ]. + ].! - ifTrue: [SystemChangeNotifier uniqueInstance classReorganized: self subject].! Item was changed: ----- Method: ClassOrganizer>>removeCategory: (in category 'accessing') ----- removeCategory: cat - | oldCategories | - oldCategories := self categories copy. SystemChangeNotifier uniqueInstance doSilently: [ super removeCategory: cat]. + self notifyOfChangedCategoryFrom: cat to: nil.! - self notifyOfChangedCategoriesFrom: oldCategories to: self categories.! Item was changed: ----- Method: ClassOrganizer>>renameCategory:toBe: (in category 'accessing') ----- renameCategory: oldCatString toBe: newCatString + | oldCat newCat | - | oldCat newCat oldElementsBefore oldElementsAfter | oldCat := oldCatString asSymbol. newCat := newCatString asSymbol. - oldElementsBefore := self listAtCategoryNamed: oldCat. SystemChangeNotifier uniqueInstance doSilently: [ super renameCategory: oldCatString toBe: newCatString]. - oldElementsAfter := (self listAtCategoryNamed: oldCat) asSet. - oldElementsBefore do: [:each | - (oldElementsAfter includes: each) - ifFalse: [self notifyOfChangedSelector: each from: oldCat to: newCat]. - ]. self notifyOfChangedCategoryFrom: oldCat to: newCat.!

1 0

The Trunk: Kernel-laza.649.mcz
by commits＠source.squeak.org 04 Nov '11

04 Nov '11

1 0

The Trunk: Kernel-laza.649.mcz
by commits＠source.squeak.org 04 Nov '11

04 Nov '11

1 0

The Trunk: System-laza.459.mcz
by commits＠source.squeak.org 04 Nov '11

04 Nov '11

Alexander Lazarević uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-laza.459.mcz ==================== Summary ==================== Name: System-laza.459 Author: laza Time: 3 November 2011, 8:13:48.899 am UUID: 7bf95c73-93c1-d044-b91e-75e6e1456825 Ancestors: System-laza.458 Make SystemOrganizer trigger a notification on adding a category =============== Diff against System-laza.457 =============== Item was added: + ----- Method: AbstractEvent class>>protocol:class: (in category 'instance creation') ----- + protocol: aProtocol class: aClass + + | instance | + instance := self item: aProtocol kind: self protocolKind. + instance itemClass: aClass. + ^instance! Item was changed: ----- Method: SmalltalkImage>>event: (in category 'sources, changes log') ----- event: anEvent "Hook for SystemChangeNotifier" + anEvent isDoIt ifTrue: [^self logChange: anEvent item]. + (anEvent itemKind = SystemChangeNotifier categoryKind) ifTrue: [ + anEvent isAdded + ifTrue: [^self logChange: 'SystemOrganization addCategory: ', anEvent item storeString]. + anEvent isRemoved + ifTrue: [^self logChange: 'SystemOrganization removeSystemCategory: ', anEvent item storeString]. + anEvent isRenamed + ifTrue: [^self logChange: 'SystemOrganization renameCategory: ', anEvent oldName storeString, ' toBe: ', anEvent newName storeString]. - (anEvent isRemoved and: [anEvent itemKind = SystemChangeNotifier classKind]) ifTrue: [ - anEvent item acceptsLoggingOfCompilation - ifTrue: [self logChange: 'Smalltalk removeClassNamed: #' , anEvent item name]. ]. + + (anEvent itemKind = SystemChangeNotifier classKind) ifTrue: [ + anEvent item acceptsLoggingOfCompilation ifFalse: [^self]. + "anEvent isAdded ifTrue: [ + self logChange: anEvent item definition. + ]." + anEvent isModified + ifTrue: [^self logChange: anEvent item definition]. + anEvent isRemoved + ifTrue: [^self logChange: 'Smalltalk removeClassNamed: ' , anEvent item name storeString]. + anEvent isRenamed + ifTrue: [^self logChange: 'Smalltalk renameClassNamed: ', anEvent oldName storeString, ' as: ', anEvent newName storeString]. + ]. + + (anEvent itemKind = SystemChangeNotifier protocolKind) ifTrue: [ + anEvent isAdded + ifTrue: [^self logChange: anEvent itemClass name , ' organization addCategory: ' , anEvent itemProtocol storeString]. + anEvent isRemoved + ifTrue: [^self logChange: anEvent itemClass name , ' organization removeCategory: ' , anEvent itemProtocol storeString]. + anEvent isRenamed + ifTrue: [^self logChange: anEvent itemClass name , ' organization renameCategory: ' , anEvent oldName storeString, ' toBe: ', anEvent newName storeString]. + ]. + + (anEvent itemKind = SystemChangeNotifier methodKind) ifTrue: [ + anEvent itemClass acceptsLoggingOfCompilation ifFalse: [^self]. + anEvent isRemoved + ifTrue: [^self logChange: anEvent itemClass name , ' removeSelector: ' , anEvent itemSelector storeString]. + anEvent isRecategorized + ifTrue: [ + | newProtocol | + newProtocol := anEvent itemClass organization categoryOfElement: anEvent item selector. + ^self logChange: anEvent itemClass name , ' organization classify: ', anEvent item selector storeString, ' under: ', newProtocol storeString. + ]. + ].! - anEvent isDoIt - ifTrue: [self logChange: anEvent item]. - (anEvent isRemoved and: [anEvent itemKind = SystemChangeNotifier methodKind]) ifTrue: [ - anEvent itemClass acceptsLoggingOfCompilation - ifTrue: [self logChange: anEvent itemClass name , ' removeSelector: #' , anEvent itemSelector]].! Item was added: + ----- Method: SystemChangeNotifier>>protocolAdded:inClass: (in category 'system triggers') ----- + protocolAdded: aProtocol inClass: aClass + self trigger: ( + AddedEvent protocol: aProtocol class: aClass + )! Item was added: + ----- Method: SystemChangeNotifier>>protocolRemoved:inClass: (in category 'system triggers') ----- + protocolRemoved: aProtocol inClass: aClass + self trigger: ( + RemovedEvent protocol: aProtocol class: aClass + )! Item was added: + ----- Method: SystemChangeNotifier>>protocolRenamedFrom:to:inClass: (in category 'system triggers') ----- + protocolRenamedFrom: anOldProtocol to: aNewProtocol inClass: aClass + self trigger: ( + (RenamedEvent protocol: anOldProtocol class: aClass) + oldName: anOldProtocol; + newName: aNewProtocol + )! Item was removed: - ----- Method: SystemOrganizer>>addCategory: (in category 'accessing') ----- - addCategory: newCategory - | r | - r := super addCategory: newCategory. - SystemChangeNotifier uniqueInstance classCategoryAdded: newCategory. - ^ r! Item was added: + ----- Method: SystemOrganizer>>addCategory:before: (in category 'accessing') ----- + addCategory: catString before: nextCategory + SystemChangeNotifier uniqueInstance doSilently: [ + super addCategory: catString before: nextCategory]. + SystemChangeNotifier uniqueInstance classCategoryAdded: catString. + !

1 0

The Trunk: System-laza.459.mcz
by commits＠source.squeak.org 04 Nov '11

04 Nov '11

1 0

The Trunk: System-laza.459.mcz
by commits＠source.squeak.org 04 Nov '11

04 Nov '11

1 0

The Trunk: SystemChangeNotification-Tests-laza.16.mcz
by commits＠source.squeak.org 04 Nov '11

04 Nov '11

Alexander Lazarević uploaded a new version of SystemChangeNotification-Tests to project The Trunk: http://source.squeak.org/trunk/SystemChangeNotification-Tests-laza.16.mcz ==================== Summary ==================== Name: SystemChangeNotification-Tests-laza.16 Author: laza Time: 3 November 2011, 8:09:52.984 am UUID: 8edbb2d9-dbf3-6d44-8e0d-941702d8f7cc Ancestors: SystemChangeNotification-Tests-laza.15 SystemOrganizer>>addCategory:before: does not trigger any notifications =============== Diff against SystemChangeNotification-Tests-bp.11 =============== Item was added: + TestCase subclass: #SystemChangeFileTest + instanceVariableNames: 'tempChangesFile' + classVariableNames: '' + poolDictionaries: '' + category: 'SystemChangeNotification-Tests'! Item was added: + ----- Method: SystemChangeFileTest>>change:verify: (in category 'testing') ----- + change: changeBlock verify: verifyBlock + self prepare: [] change: changeBlock verify: verifyBlock! Item was added: + ----- Method: SystemChangeFileTest>>createClass: (in category 'private') ----- + createClass: name + ^Object + subclass: name + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: self genericClassCategory! Item was added: + ----- Method: SystemChangeFileTest>>directory (in category 'accessing') ----- + directory + "Where we want to place the temporary changes file" + ^FileDirectory default! Item was added: + ----- Method: SystemChangeFileTest>>genericClassCategory (in category 'private') ----- + genericClassCategory + ^(self prefixClassCategory, self randomString capitalized) asSymbol! Item was added: + ----- Method: SystemChangeFileTest>>genericClassName (in category 'private') ----- + genericClassName + ^(self prefixClassName, self randomString capitalized) asSymbol! Item was added: + ----- Method: SystemChangeFileTest>>genericInstVarName (in category 'private') ----- + genericInstVarName + ^(self prefixInstVarName, self randomString capitalized) asSymbol! Item was added: + ----- Method: SystemChangeFileTest>>genericProtocol (in category 'private') ----- + genericProtocol + ^(self prefixProtocol, self randomString) asSymbol! Item was added: + ----- Method: SystemChangeFileTest>>genericSelector (in category 'private') ----- + genericSelector + ^(self prefixSelector, self randomString capitalized) asSymbol! Item was added: + ----- Method: SystemChangeFileTest>>prefixClassCategory (in category 'private') ----- + prefixClassCategory + ^self prefixGeneral, 'Category-'! Item was added: + ----- Method: SystemChangeFileTest>>prefixClassName (in category 'private') ----- + prefixClassName + ^self prefixGeneral, 'Class'! Item was added: + ----- Method: SystemChangeFileTest>>prefixGeneral (in category 'private') ----- + prefixGeneral + ^self class name select: [:each | each isUppercase]! Item was added: + ----- Method: SystemChangeFileTest>>prefixInstVarName (in category 'private') ----- + prefixInstVarName + ^self prefixGeneral asLowercase, 'InstVar'! Item was added: + ----- Method: SystemChangeFileTest>>prefixProtocol (in category 'private') ----- + prefixProtocol + ^self prefixGeneral asLowercase, ' protocol '! Item was added: + ----- Method: SystemChangeFileTest>>prefixSelector (in category 'private') ----- + prefixSelector + ^self prefixGeneral asLowercase, 'Selector'! Item was added: + ----- Method: SystemChangeFileTest>>prepare:change:verify: (in category 'testing') ----- + prepare: prepareBlock change: changeBlock verify: verifyBlock + "All tests follow this pattern. Beware that prepareBlock (and verifyBlock) will be evalutated twice." + + "Setup the testcourt" + prepareBlock value. + + "Embrace the changeBlock so that any changes to our testcourt + gets recorded in our temporary changes file" + self useTemporaryChangesFile. + changeBlock value. + "Check if the changes we made worked as expected. We need to do + this before we switch back to the standard changes file" + "We raise an Error if this fails, because then the testcase is broken" + [verifyBlock value] + on: TestFailure + do: [self error: 'The verifyBlock needs to validate the changes made in the changeBlock']. + self useStandardChangesFile. + + "Remove the testcourt completely" + self removeTestcourt. + + "Setup the testcourt once again" + prepareBlock value. + + "Replay the changes from the temporary changes file" + self replayChanges. + + "See if we got the same changes as we did before using the changeBlock" + verifyBlock value. + ! Item was added: + ----- Method: SystemChangeFileTest>>randomString (in category 'private') ----- + randomString + ^Character alphabet shuffled! Item was added: + ----- Method: SystemChangeFileTest>>removeTestcourt (in category 'private') ----- + removeTestcourt + SystemOrganization categories do: [:each | + (each beginsWith: self prefixClassCategory) ifTrue: [ + SystemOrganization removeSystemCategory: each. + ]. + ]. + + ! Item was added: + ----- Method: SystemChangeFileTest>>replayChanges (in category 'private') ----- + replayChanges + | file | + file := FileStream fileNamed: (self directory fullNameFor: self tempChangesName). + Transcript show: file contents; cr. + file fileIn. + ! Item was added: + ----- Method: SystemChangeFileTest>>tearDown (in category 'running') ----- + tearDown + self useStandardChangesFile. + tempChangesFile := tempChangesFile ifNotNil: [tempChangesFile close]. + (self directory fileExists: self tempChangesName) + ifTrue: [self directory deleteFileNamed: self tempChangesName]. + self removeTestcourt. + ! Item was added: + ----- Method: SystemChangeFileTest>>tempChangesName (in category 'accessing') ----- + tempChangesName + ^'temp.changes'! Item was added: + ----- Method: SystemChangeFileTest>>testCategoryAdded (in category 'testing') ----- + testCategoryAdded + | aClassCategory | + aClassCategory := self genericClassCategory. + self + change: [ + SystemOrganization addCategory: aClassCategory. + ] + verify: [ + self assert: (SystemOrganization categories includes: aClassCategory). + ] + ! Item was added: + ----- Method: SystemChangeFileTest>>testCategoryAddedBefore (in category 'testing') ----- + testCategoryAddedBefore + | aClassCategory | + aClassCategory := self genericClassCategory. + self + change: [ + SystemOrganization addCategory: aClassCategory before: nil. + ] + verify: [ + self assert: (SystemOrganization categories includes: aClassCategory). + ] + ! Item was added: + ----- Method: SystemChangeFileTest>>testCategoryModified (in category 'as yet unclassified') ----- + testCategoryModified! Item was added: + ----- Method: SystemChangeFileTest>>testCategoryRemoved (in category 'testing') ----- + testCategoryRemoved + | aClassCategory | + aClassCategory := self genericClassCategory. + self + prepare: [ + SystemOrganization addCategory: aClassCategory. + ] + change: [ + SystemOrganization removeCategory: aClassCategory. + ] + verify: [ + self deny: (SystemOrganization categories includes: aClassCategory). + ] + ! Item was added: + ----- Method: SystemChangeFileTest>>testCategoryRenamed (in category 'testing') ----- + testCategoryRenamed + | aNewClassCategory anOldClassCategory | + anOldClassCategory := self genericClassCategory. + aNewClassCategory := self genericClassCategory. + self + prepare: [ + SystemOrganization addCategory: anOldClassCategory. + ] + change: [ + SystemOrganization renameCategory: anOldClassCategory toBe: aNewClassCategory + ] + verify: [ + self assert: (SystemOrganization categories includes: aNewClassCategory). + self deny: (SystemOrganization categories includes: anOldClassCategory). + ] + ! Item was added: + ----- Method: SystemChangeFileTest>>testClassAdded (in category 'testing') ----- + testClassAdded + | aClassName | + aClassName := self genericClassName. + self + change: [ + self createClass: aClassName. + ] + verify: [ + self assert: (Smalltalk keys includes: aClassName). + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>testClassCommented (in category 'testing') ----- + testClassCommented + | aClass aClassName aComment | + aClassName := self genericClassName. + self + prepare: [ + aClass := self createClass: aClassName. + ] + change: [ + aComment := self randomString. + aClass classComment: aComment. + ] + verify: [ + self assert: aClass organization classComment string = aComment. + ].! Item was added: + ----- Method: SystemChangeFileTest>>testClassModified (in category 'testing') ----- + testClassModified + | aClass aClassName aInstVarName | + aClassName := self genericClassName. + self + prepare: [ + aClass := self createClass: aClassName. + ] + change: [ + aInstVarName := self genericInstVarName. + aClass addInstVarName: aInstVarName. + ] + verify: [ + self assert: (aClass instVarNames includes: aInstVarName). + ].! Item was added: + ----- Method: SystemChangeFileTest>>testClassRecategorized (in category 'as yet unclassified') ----- + testClassRecategorized! Item was added: + ----- Method: SystemChangeFileTest>>testClassRemoved (in category 'testing') ----- + testClassRemoved + | aClass aClassName | + aClassName := self genericClassName. + self + prepare: [ + aClass := self createClass: aClassName. + ] + change: [ + aClass removeFromSystem. + ] + verify: [ + self deny: (Smalltalk keys includes: aClassName). + ]. + ! Item was added: + ----- Method: SystemChangeFileTest>>testClassRenamed (in category 'testing') ----- + testClassRenamed + | aClass aNewClassName anOldClassName | + anOldClassName := self genericClassName. + aNewClassName := self genericClassName. + self + prepare: [ + aClass := self createClass: anOldClassName. + ] + change: [ + aClass rename: aNewClassName. + ] + verify: [ + self assert: (Smalltalk keys includes: aNewClassName). + self deny: (Smalltalk keys includes: anOldClassName). + ].! Item was added: + ----- Method: SystemChangeFileTest>>testClassReorganized (in category 'as yet unclassified') ----- + testClassReorganized! Item was added: + ----- Method: SystemChangeFileTest>>testExpressionDoIt (in category 'testing') ----- + testExpressionDoIt + | aClassName | + aClassName := self genericClassName.. + self + prepare: [ + self createClass: aClassName. + ] + change: [ + Compiler evaluate: '(Smalltalk at: ', aClassName storeString, ') removeFromSystem'. + ] + verify: [ + self deny: (Smalltalk keys includes: aClassName). + ].! Item was added: + ----- Method: SystemChangeFileTest>>testMethodAdded (in category 'testing') ----- + testMethodAdded + | aClassName aClass aSelector | + aClassName := self genericClassName. + self + prepare: [ + aClass := self createClass: aClassName. + ] + change: [ + aSelector := self genericSelector. + aClass compile: aSelector. + ] + verify: [ + self assert: (aClass methodDict keys includes: aSelector). + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>testMethodModified (in category 'testing') ----- + testMethodModified + | aClassName aClass aSelector aMethodSource | + aClassName := self genericClassName. + aSelector := self genericSelector. + self + prepare: [ + aClass := self createClass: aClassName. + aClass compile: aSelector, ' ', self randomString storeString. + ] + change: [ + aMethodSource := aSelector, ' ', self randomString storeString. + aClass compile: aMethodSource. + ] + verify: [ + self assert: (aClass sourceCodeAt: aSelector) string = aMethodSource. + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>testMethodRecategorized (in category 'testing') ----- + testMethodRecategorized + | aClassName aClass aNewProtocol aSelector anOldProtocol | + aClassName := self genericClassName. + aSelector := self genericSelector. + anOldProtocol := self genericProtocol. + self + prepare: [ + aClass := self createClass: aClassName. + aClass compile: aSelector classified: anOldProtocol. + ] + change: [ + aNewProtocol := self genericProtocol. + aClass organization classify: aSelector under: aNewProtocol. + ] + verify: [ + self assert: (aClass organization categoryOfElement: aSelector) = aNewProtocol + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>testMethodRemoved (in category 'testing') ----- + testMethodRemoved + | aClassName aClass aSelector | + aClassName := self genericClassName. + aSelector := self genericSelector. + self + prepare: [ + aClass := self createClass: aClassName. + aClass compile: aSelector. + ] + change: [ + aClass removeSelector: aSelector. + ] + verify: [ + self deny: (aClass methodDict keys includes: aSelector). + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>testProtocolAdded (in category 'testing') ----- + testProtocolAdded + | aClassName aClass aProtocol | + aClassName := self genericClassName. + aProtocol := self genericProtocol. + self + prepare: [ + aClass := self createClass: aClassName. + ] + change: [ + aClass organization addCategory: aProtocol. + ] + verify: [ + self assert: (aClass organization categories includes: aProtocol) + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>testProtocolDefault (in category 'testing') ----- + testProtocolDefault + | aClassName aClass aSelector | + aClassName := self genericClassName. + self + prepare: [ + aClass := self createClass: aClassName. + ] + change: [ + aSelector := self genericSelector. + aClass compile: aSelector. + ] + verify: [ + self assert: (aClass organization categoryOfElement: aSelector) = aClass organization class default. + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>testProtocolModified (in category 'as yet unclassified') ----- + testProtocolModified! Item was added: + ----- Method: SystemChangeFileTest>>testProtocolRemoved (in category 'testing') ----- + testProtocolRemoved + | aClassName aClass aProtocol | + aClassName := self genericClassName. + aProtocol := self genericProtocol. + self + prepare: [ + aClass := self createClass: aClassName. + aClass organization addCategory: aProtocol. + ] + change: [ + aClass organization removeCategory: aProtocol. + ] + verify: [ + self deny: (aClass organization categories includes: aProtocol) + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>testProtocolRenamed (in category 'testing') ----- + testProtocolRenamed + | aClassName aClass anOldProtocol aNewProtocol | + aClassName := self genericClassName. + anOldProtocol := self genericProtocol. + self + prepare: [ + aClass := self createClass: aClassName. + aClass organization addCategory: anOldProtocol. + ] + change: [ + aNewProtocol := self genericProtocol. + aClass organization renameCategory: anOldProtocol toBe: aNewProtocol. + ] + verify: [ + self deny: (aClass organization categories includes: anOldProtocol). + self assert: (aClass organization categories includes: aNewProtocol). + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>useStandardChangesFile (in category 'private') ----- + useStandardChangesFile + Smalltalk + closeSourceFiles; + openSourceFiles! Item was added: + ----- Method: SystemChangeFileTest>>useTemporaryChangesFile (in category 'private') ----- + useTemporaryChangesFile + Smalltalk closeSourceFiles. + tempChangesFile := self directory forceNewFileNamed: self tempChangesName. + SourceFiles at: 2 put: tempChangesFile!

1 0

The Trunk: SystemChangeNotification-Tests-laza.16.mcz
by commits＠source.squeak.org 04 Nov '11

04 Nov '11

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2011