Packages September 2009

packages@lists.squeakfoundation.org

1 participants
34 discussions

DeltaStreams: DeltaStreams-Model-gk.16.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 06 Sep '09

06 Sep '09

A new version of DeltaStreams-Model was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Model-gk.16.mcz ==================== Summary ==================== Name: DeltaStreams-Model-gk.16 Author: gk Time: 6 September 2009, 4:42:37 am UUID: b629730b-281f-45c1-a13e-379cd952f077 Ancestors: DeltaStreams-Model-gk.15 Removed unused class side stuff. =============== Diff against DeltaStreams-Model-gk.15 =============== Item was removed: - ----- Method: DSClassCategoryChange class>>className:superclassName:instVarNames:classVarNames:poolDictionaryNames:category:type:classInstVarNames:comment:stamp:oldCategory: (in category 'instance creation') ----- - className: aClassName - superclassName: superclassName - instVarNames: instVarNames - classVarNames: classVarNames - poolDictionaryNames: poolDictionaryNames - category: aCategory - type: typeOfClass - classInstVarNames: metaInstVarNames - comment: classComment - stamp: commentStamp - oldCategory: oldCategory - - ^(self className: aClassName) - superclassName: superclassName; - instVarNames: instVarNames; - classVarNames: classVarNames; - poolDictionaryNames: poolDictionaryNames; - category: aCategory; - type: typeOfClass; - classInstVarNames: metaInstVarNames; - comment: classComment; - stamp: commentStamp; - oldCategory: oldCategory; - yourself - ! Item was removed: - ----- Method: DSClassNameChange class>>className:superclassName:instVarNames:classVarNames:poolDictionaryNames:category:type:classInstVarNames:comment:stamp:oldName: (in category 'instance creation') ----- - className: aClassName - superclassName: superclassName - instVarNames: instVarNames - classVarNames: classVarNames - poolDictionaryNames: poolDictionaryNames - category: aCategory - type: typeOfClass - classInstVarNames: metaInstVarNames - comment: classComment - stamp: commentStamp - oldName: oldClassName - - ^(self className: aClassName) - superclassName: superclassName; - instVarNames: instVarNames; - classVarNames: classVarNames; - poolDictionaryNames: poolDictionaryNames; - category: aCategory; - type: typeOfClass; - classInstVarNames: metaInstVarNames; - comment: classComment; - stamp: commentStamp; - oldName: oldClassName; - yourself - ! Item was removed: - ----- Method: DSClassCommentChange class>>className:superclassName:instVarNames:classVarNames:poolDictionaryNames:category:type:classInstVarNames:comment:oldComment:stamp:oldStamp: (in category 'as yet unclassified') ----- - className: aClassName - superclassName: superclassName - instVarNames: instVarNames - classVarNames: classVarNames - poolDictionaryNames: poolDictionaryNames - category: aCategory - type: typeOfClass - classInstVarNames: metaInstVarNames - comment: classComment - oldComment: oldComment - stamp: commentStamp - oldStamp: oldStamp - - ^(self className: aClassName) - superclassName: superclassName; - instVarNames: instVarNames; - classVarNames: classVarNames; - poolDictionaryNames: poolDictionaryNames; - category: aCategory; - type: typeOfClass; - classInstVarNames: metaInstVarNames; - comment: classComment; - stamp: commentStamp; - oldComment: oldComment; - oldStamp: oldStamp; - yourself - ! Item was removed: - ----- Method: DSClassTypeChange class>>className:superclassName:instVarNames:classVarNames:poolDictionaryNames:category:type:classInstVarNames:comment:stamp:oldType: (in category 'as yet unclassified') ----- - className: aClassName - superclassName: superclassName - instVarNames: instVarNames - classVarNames: classVarNames - poolDictionaryNames: poolDictionaryNames - category: aCategory - type: typeOfClass - classInstVarNames: metaInstVarNames - comment: classComment - stamp: commentStamp - oldType: oldTypeOfClass - - ^(self className: aClassName) - superclassName: superclassName; - instVarNames: instVarNames; - classVarNames: classVarNames; - poolDictionaryNames: poolDictionaryNames; - category: aCategory; - type: typeOfClass; - classInstVarNames: metaInstVarNames; - comment: classComment; - stamp: commentStamp; - oldType: oldTypeOfClass; - yourself - ! Item was removed: - ----- Method: DSVarsChange class>>changing:from:to: (in category 'as yet unclassified') ----- - changing: aClass from: oldArray to: newArray - - ^(self fromClass: aClass) - oldVars: oldArray; - newVars: newArray; - yourself! Item was removed: - ----- Method: DSVarsChange class>>className:superclassName:instVarNames:classVarNames:poolDictionaryNames:category:type:classInstVarNames:comment:stamp:oldVars: (in category 'as yet unclassified') ----- - className: aClassName - superclassName: superclassName - instVarNames: instVarNames - classVarNames: classVarNames - poolDictionaryNames: poolDictionaryNames - category: aCategory - type: typeOfClass - classInstVarNames: metaInstVarNames - comment: classComment - stamp: commentStamp - oldVars: oldVarNames - - ^(self className: aClassName) - superclassName: superclassName; - instVarNames: instVarNames; - classVarNames: classVarNames; - poolDictionaryNames: poolDictionaryNames; - category: aCategory; - type: typeOfClass; - classInstVarNames: metaInstVarNames; - comment: classComment; - stamp: commentStamp; - oldVars: oldVarNames; - yourself! Item was removed: - ----- Method: DSClassSuperclassChange class>>className:superclassName:instVarNames:classVarNames:poolDictionaryNames:category:type:classInstVarNames:comment:stamp:oldSuperclassName: (in category 'instance creation') ----- - className: aClassName - superclassName: superclassName - instVarNames: instVarNames - classVarNames: classVarNames - poolDictionaryNames: poolDictionaryNames - category: aCategory - type: typeOfClass - classInstVarNames: metaInstVarNames - comment: classComment - stamp: commentStamp - oldSuperclassName: oldSuperclassName - - ^(self className: aClassName) - superclassName: superclassName; - instVarNames: instVarNames; - classVarNames: classVarNames; - poolDictionaryNames: poolDictionaryNames; - category: aCategory; - type: typeOfClass; - classInstVarNames: metaInstVarNames; - comment: classComment; - stamp: commentStamp; - oldSuperclassName: oldSuperclassName; - yourself - ! Item was removed: - ----- Method: DSClassCommentChange class>>className:superclassName:instVarNames:classVarNames:poolDictionaryNames:category:type:classInstVarNames:comment:stamp:oldComment:oldStamp: (in category 'as yet unclassified') ----- - className: aClassName - superclassName: superclassName - instVarNames: instVarNames - classVarNames: classVarNames - poolDictionaryNames: poolDictionaryNames - category: aCategory - type: typeOfClass - classInstVarNames: metaInstVarNames - comment: classComment - stamp: commentStamp - oldComment: oldComment - oldStamp: oldStamp - - ^(self className: aClassName) - superclassName: superclassName; - instVarNames: instVarNames; - classVarNames: classVarNames; - poolDictionaryNames: poolDictionaryNames; - category: aCategory; - type: typeOfClass; - classInstVarNames: metaInstVarNames; - comment: classComment; - stamp: commentStamp; - oldComment: oldComment; - oldStamp: oldStamp; - yourself - ! Item was removed: - ----- Method: DSVarsChange class>>class:from:to: (in category 'as yet unclassified') ----- - class: aClass from: oldArray to: newArray - - ^(self class: aClass) oldVars: oldArray; newVars: newArray; yourself!

1 0

DeltaStreams: DeltaStreams-Tests-gk.13.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 06 Sep '09

06 Sep '09

A new version of DeltaStreams-Tests was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Tests-gk.13.mcz ==================== Summary ==================== Name: DeltaStreams-Tests-gk.13 Author: gk Time: 6 September 2009, 2:26:19 am UUID: e05cd604-391c-434e-b573-5204d5c034c4 Ancestors: DeltaStreams-Tests-gk.12 modifiesMocks returns true. It makes it go slow but at least all tests can be run in one swoop. The problem is related to shared pools I think. =============== Diff against DeltaStreams-Tests-gk.12 =============== Item was changed: ----- Method: DSDeltaCreationTest>>testChangeClassCategory (in category 'class tests') ----- testChangeClassCategory "Change the category of a class. Should succeed" + - | change1 change2 | (change1 := DSClassCategoryChange fromClass: class) oldCategory: self newClassCategory; yourself. self assert: change1 isClassCategory. self validateClassChange: change1. self assert: change1 oldCategory = self newClassCategory. change2 := self transformChangeClassCategory: change1. self assert: change2 isClassCategory. self validateClassChange: change2. self assert: change2 oldCategory = self newClassCategory.! Item was added: + ----- Method: DSDeltaCreationTest>>modifiesMocks (in category 'private') ----- + modifiesMocks + ^ true!

1 0

DeltaStreams: DeltaStreams-Deprecated-gk.5.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 06 Sep '09

06 Sep '09

A new version of DeltaStreams-Deprecated was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Deprecated-gk.5.mcz ==================== Summary ==================== Name: DeltaStreams-Deprecated-gk.5 Author: gk Time: 6 September 2009, 2:24:59 am UUID: 9c2acae3-e981-4d04-bac5-3c52d3d778cb Ancestors: DeltaStreams-Deprecated-gk.4 Moved visitor wrapper in here. =============== Diff against DeltaStreams-Deprecated-gk.4 =============== Item was added: + DSVisitor subclass: #DSVisitorWrapper + instanceVariableNames: 'visitor' + classVariableNames: '' + poolDictionaries: '' + category: 'DeltaStreams-Deprecated'! + + !DSVisitorWrapper commentStamp: 'mtf 9/29/2007 14:15' prior: 0! + My instances intercept change requests and act on them and optionally forward them to the wrapped visitor. we can be chained and composed together! Item was changed: ----- Method: DSDeltaNormalizeTest>>testCreateAndRemove (in category 'as yet unclassified') ----- testCreateAndRemove self createClassB; removeTestClasses; createClassB. + delta stopLogging; compress. - delta stopLogging; normalize. self assert: delta changes size = 2. self assert: delta changes first isClassDeleted. self assert: delta changes second isClassCreated.! Item was added: + ----- Method: DSVisitorWrapper class>>on: (in category 'as yet unclassified') ----- + on: aVisitor + ^ self new visitor: aVisitor! Item was added: + ----- Method: DSVisitorWrapper>>chain: (in category 'initialize-release') ----- + chain: aVisitor + chain := aVisitor. + visitor chain: aVisitor! Item was added: + ----- Method: DSVisitorWrapper>>visitor: (in category 'initialize-release') ----- + visitor: aVisitor + visitor := aVisitor. + aVisitor chain: self! Item was added: + ----- Method: DSVisitorWrapper>>applyChange: (in category 'basic') ----- + applyChange: change + ^ change applyUsing: visitor!

1 0

DeltaStreams: DeltaStreams-Tirade-gk.4.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 06 Sep '09

06 Sep '09

A new version of DeltaStreams-Tirade was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Tirade-gk.4.mcz ==================== Summary ==================== Name: DeltaStreams-Tirade-gk.4 Author: gk Time: 6 September 2009, 2:24:07 am UUID: 37cc376d-04d4-4cda-8f11-8ca90bd959f6 Ancestors: DeltaStreams-Tirade-gk.3 - Added Tirade support for DsDoIt. - Added DSDelta>>fileOut and fileOutCompressed =============== Diff against DeltaStreams-Tirade-gk.3 =============== Item was added: + ----- Method: DSDoIt>>tiradeOn: (in category '*deltastreams-tirade') ----- + tiradeOn: recorder + + recorder + doIt: expression + antiDoIt: antiExpression + properties: properties! Item was added: + ----- Method: DSDelta>>fileOutDeltas:InDirectory:compressed: (in category '*deltastreams-tirade') ----- + fileOutDeltas: deltas InDirectory: directory compressed: compressed + "Simple default fileOut using Tirade, the base format for Deltas." + + | fn file writer | + fn := directory fullNameFor: (directory nextNameFor: self name extension: 'd'). + Cursor write showWhile: [ + file := FileStream newFileNamed: fn. + [writer := DSTiradeWriter on: file + deltas do: [:delta | writer nextPut: delta]] + ensure: [file close]. + compressed ifTrue: [ + file := directory readOnlyFileNamed: fn. + file compressFile. + directory deleteFileNamed: fn ifAbsent:[]]]! Item was added: + ----- Method: DSDelta>>fileOutCompressed (in category '*deltastreams-tirade') ----- + fileOutCompressed + "Simple default fileOut using Tirade, the base format for Deltas." + + self fileOutDeltas: (Array with: self) InDirectory: FileDirectory default compressed: true + ! Item was added: + ----- Method: DSDelta>>doIt:antiDoIt:properties: (in category '*deltastreams-tirade') ----- + doIt: expression antiDoIt: antiExpression properties: properties + + ^((self getClass: DSDoIt) + doIt: expression; + antiDoIt: antiExpression) + properties: properties! Item was added: + ----- Method: DSDelta>>fileOut (in category '*deltastreams-tirade') ----- + fileOut + "Simple default fileOut using Tirade, the base format for Deltas." + + self fileOutDeltas: (Array with: self) InDirectory: FileDirectory default compressed: false + !

1 0

DeltaStreams: DeltaStreams-Logging-gk.7.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 06 Sep '09

06 Sep '09

A new version of DeltaStreams-Logging was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Logging-gk.7.mcz ==================== Summary ==================== Name: DeltaStreams-Logging-gk.7 Author: gk Time: 6 September 2009, 2:22:47 am UUID: 39b7abf3-2767-4ef2-9ab4-e6402f1489a8 Ancestors: DeltaStreams-Logging-gk.6 - Added code for logging doit events. - Moved two methods here that had ended up wrongly in Model. - Renamed a method. =============== Diff against DeltaStreams-Logging-gk.6 =============== Item was added: + ----- Method: DSDelta>>addMethodChange:from: (in category '*deltastreams-logging') ----- + addMethodChange: changeClass from: event + "Extract all relevant information from the event + to create and add a method change of given class name." + + | method selector class category | + category := event itemProtocol. + method := event item "Method". + "Do not ask me why we need to do it like the next three lines..." + selector := event itemSelector. + selector ifNil: [selector := event itemMethod sourceSelector]. + selector ifNil: [selector := event itemMethod selector]. + class := event itemClass. + ^self add: ( + self className: class name + selector: selector + change: changeClass + category: category + source: method getSource asString + stamp: method timeStamp)! Item was added: + ----- Method: DSDelta>>logReorganizeClass: (in category '*deltastreams-logging') ----- + logReorganizeClass: aClass + + self notYetImplemented! Item was added: + ----- Method: DSDelta>>logDoIt: (in category '*deltastreams-logging') ----- + logDoIt: event + "A DoIt was executed." + + ^ self add: ( + (DSDoIt doIt: event item) + contextWasNil: event context isNil; + kind: event itemKind)! Item was changed: ----- Method: DSDelta>>event: (in category '*deltastreams-logging') ----- event: anEvent "This is where events come in from the SystemChangeNotifier. This code is similar to the old code in ChangeSet." | class | + (anEvent isDoIt and: [self recordDoIts]) ifTrue: [ + "We never log empty doits, just like changes file does not." + anEvent item isAllSeparators ifFalse: [ + self logDoIt: anEvent] + ]. + anEvent itemKind = SystemChangeNotifier classKind ifTrue: [ class := anEvent item. class isBehavior ifFalse: [^ self]. "Ignore traits for now" class wantsChangeSetLogging ifFalse: [^self]. anEvent isAdded ifTrue: [self logClassCreatedEvent: anEvent]. anEvent isRemoved ifTrue: [self logClassRemovedEvent: anEvent]. anEvent isRenamed ifTrue: [self logClassRenamedEvent: anEvent]. anEvent isCommented ifTrue: [self logClassCommentChangedEvent: anEvent]. anEvent isModified ifTrue: [class isMeta ifTrue: [self modifyMetaclass: class event: anEvent] ifFalse: [self modifyClass: class event: anEvent]]. + anEvent isReorganized ifTrue: [self logReorganizeClass: anEvent item]. - anEvent isReorganized ifTrue: [self reorganizeClass: anEvent item]. anEvent isRecategorized ifTrue: [self logClassCategoryChangedEvent: anEvent]. ]. anEvent itemKind = SystemChangeNotifier methodKind ifTrue: [ class := anEvent itemClass. class isBehavior ifFalse: [^ self]. "Ignore traits for now" class wantsChangeSetLogging ifFalse: [^self]. anEvent isAdded ifTrue: [self logMethodAddedEvent: anEvent]. anEvent isRemoved ifTrue: [self logMethodRemovedEvent: anEvent]. anEvent isRecategorized ifTrue: [self logMethodProtocolEvent: anEvent oldProtocol: anEvent oldCategory newProtocol: anEvent itemProtocol ]. anEvent isModified ifTrue: [self logMethodModifyEvent: anEvent]. ].! Item was added: + ----- Method: DSDelta>>addClassChange:from: (in category '*deltastreams-logging') ----- + addClassChange: changeClass from: event + "Extract all relevant information from the event + to create and add a class change of given class name." + + | class metaclass | + class := event itemClass theNonMetaClass. + metaclass := event itemClass theMetaClass. + ^self add: ( + self className: class name + changeClass: changeClass + superclassName: class superclass name + instVarNames: class instVarNames + classVarNames: class classVarNames asArray + poolDictionaryNames: class poolDictionaryNames + category: class category + type: class typeOfClass + classInstVarNames: metaclass instVarNames + comment: class organization classComment asString + stamp: class organization commentStamp)!

1 0

DeltaStreams: DeltaStreams-Model-gk.15.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 06 Sep '09

06 Sep '09

A new version of DeltaStreams-Model was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Model-gk.15.mcz ==================== Summary ==================== Name: DeltaStreams-Model-gk.15 Author: gk Time: 6 September 2009, 2:19:12 am UUID: da6d637f-b42d-47b8-a736-3a1094abeddc Ancestors: DeltaStreams-Model-gk.14 - Renamed revertable to reversable. - normalize renamed to compress - isReversable modified and commented. - Refactorings - Added DSDelta>>recordDoIts: - Implemented DsDoIt change. =============== Diff against DeltaStreams-Model-gk.14 =============== Item was added: + ----- Method: DSDelta>>recordDoIts: (in category 'configuration') ----- + recordDoIts: aBoolean + self propertyAt: #recordDoIt put: aBoolean! Item was added: + ----- Method: DSDoIt>>applyUsing: (in category 'applying') ----- + applyUsing: anApplier + "Apply this change to the image. Double dispatch." + + anApplier applyDoIt: self! Item was added: + ----- Method: DSDoIt>>antiDoIt: (in category 'accessing') ----- + antiDoIt: aString + "If you mark this DoIt to executeOnApply then you can also supply + an antiDoIt to use in the antiChange." + + antiDoIt := aString! Item was changed: ----- Method: DSChangeSequence>>moveClassNameChanges (in category 'applying') ----- moveClassNameChanges + "Move all class name changes to the beginning as if they were made first. + NOTE: This code does not work yet, because all method changes need to do + class name replacing inside the source... I am not even sure this is a good idea." - "Move all class name changes to the beginning as if they were made first." + | nameChanges map newChanges | + newChanges := OrderedCollection new. - | nameChanges map | nameChanges := OrderedCollection new. map := Dictionary new. changes reverseDo: [:change | change isClassName ifTrue: [ "Is there already a mapping in place?" (map includesKey: change newName) ifTrue: [ "Then we remap it using the even older name as key from now on" map at: change oldName put: (map at: change newName). map removeKey: change newName] ifFalse: [ "Then we just add a mapping." + map at: change oldName put: change newName. + nameChanges add: change]] - map at: change oldName put: change newName]. - nameChanges add: change ] ifFalse: [ + "Tell the change to refer to the newer names that we have collected" + change remapClassNames: map. + newChanges add: change]]. + ^nameChanges, newChanges! - change remapClassNames: map]]. - changes removeAll: nameChanges. - changes := nameChanges, changes! Item was added: + ----- Method: DSDelta>>recordDoIts (in category 'configuration') ----- + recordDoIts + ^self propertyAt: #recordDoIt ifAbsent: [false]! Item was added: + ----- Method: DSDoIt>>kind (in category 'properties') ----- + kind + ^self propertyAt: #kind! Item was added: + ----- Method: DSDelta>>isReversable (in category 'testing') ----- + isReversable + "It is reversable if all changes are reversable and this Delta is not explicitly flagged + as NON reversable. This still depends on any included DoIts being reversible, + and for that we depend on trusting the EXPLICIT marking of those DoIts claiming that + they are indeed reversable. + In other words, if this method returns true it SHOULD be reversable if: + - This Delta was the last change to the image. + - Any included DoIts do the right thing (depending on the author of them) + + In other words - a positive answer means that you are ABLE to try reverting it. + It does not mean that it will work, it just means that it COULD work." + + ^(self propertyAt: #reversable ifAbsent: [true]) and: [self changesReversable]! Item was added: + ----- Method: DSDoIt>>contextWasNil (in category 'properties') ----- + contextWasNil + ^self propertyAt: #contextWasNil! Item was added: + ----- Method: DSVisitor>>applyDoIt: (in category 'doit changes') ----- + applyDoIt: aDoIt + "A generic DoIt code snippet." + + ^ self applyChange: aDoIt! Item was changed: + ----- Method: DSDelta>>changes (in category 'changes') ----- - ----- Method: DSDelta>>changes (in category 'accessing') ----- changes ^ changeSequence changes! Item was added: + ----- Method: DSDelta>>isNotReversable (in category 'testing') ----- + isNotReversable + "See #isReversable." + + ^self isReversable not! Item was added: + ----- Method: DSDoIt>>contextWasNil: (in category 'private') ----- + contextWasNil: aBoolean + self propertyAt: #contextWasNil put: aBoolean! Item was added: + ----- Method: DSDoIt>>executeOnApply (in category 'configuration') ----- + executeOnApply + ^self propertyAt: #executeOnApply! Item was added: + ----- Method: DSDelta>>compress (in category 'manipulate') ----- + compress + "Modify changes so that they are compacted into the minimal form + still producing the equivalent end result. In other words - remove redundancy. + Fir we move all class rename changes to the beginning, but AFTER any DoIts. + Then we remove all redundant shadowed changes. + Finally we merge those we can merge." + + changeSequence ifNotNil: [ + changeSequence moveClassNameChanges; removeShadows; mergeChanges]! Item was added: + ----- Method: DSDelta>>remove: (in category 'changes') ----- + remove: aChange + + | change | + change := self changes remove: change. + self grouper ifNotNil: [self grouper remove: change]. + self changed: #changeList. + ^ change! Item was added: + ----- Method: DSDoIt>>remapClassNames: (in category 'private') ----- + remapClassNames: map + "We really can't do it 100% for sure. We could of course warn the user." + + ! Item was changed: ----- Method: DSDelta>>asAntiDelta (in category 'applying') ----- asAntiDelta "Return a new Delta that, when applied, reverts each change of this Delta in reverse order. Each change should have enough information to create an anti change from itself." | anti | + self isReversable ifFalse: [self error: 'This delta is not reversable']. + anti := DSDelta name: 'Anti ' translated, self name. - self isRevertable ifFalse: [DSDeltaNotRevertableException signal]. - anti := DSDelta name: 'undo ' translated, self name. self propertiesDo: [:key :val | anti propertyAt: key put: val]. self changes reverseDo: [:each | anti add: each asAntiChange]. ^anti! Item was added: + ----- Method: DSDoIt>>isReversable (in category 'testing') ----- + isReversable + "If this DoIt is marked to NOT execute (then it of course does nothing and is + trivially reversable) or if there is a supplied antiDoIt signifying that it indeed + can be reversed. + + NOTE: We trust the developer here. isReversable does NOT mean that it will work." + + ^self executeOnApply not or: [antiDoIt notNil]! Item was added: + ----- Method: DSDelta>>hasDoIts (in category 'testing') ----- + hasDoIts + "Do I include any DoIts? If I do it affects the trustworthiness of reversability." + + ^self changes anySatisfy: [:each | each isDoIt]! Item was changed: DSChange subclass: #DSDoIt + instanceVariableNames: 'expression antiExpression contextWasNil kind status antiDoIt doIt' - instanceVariableNames: 'code' classVariableNames: '' poolDictionaries: '' category: 'DeltaStreams-Model-Base'! + + !DSDoIt commentStamp: 'gk 9/5/2009 15:24' prior: 0! + A DSDoIt change is only recorded if you expressly configure the Delta to record them. While catching all doits this also creates redundant doits because for class definition changes the Delta will record both the event coming from ClassBuilder and then the doit itself too. Not sure exactly how we can prevent this in a NICE way + + Currently DoIts are handled like this: + - We only record them if the Delta is configured to do that, see #recordDoits: + - We only apply them if they are marked explicitly to be applied, see #executeOnApply: + - We only consider a DoIt reversable if the antiDoIt if is set to something other than nil. + + Good rules to follow: + 1. Do not record or use DoIts. :) If you really need to have a DoIt in your Delta, put it there manually. + 2. If you record DoIts because you do not want to miss anything , prune them out before distributing the Delta. + 3. If you still have a DoIt in your Delta that you intend to distribute, make sure that: + - It can cope with missing globals/classes!! + - It can be safely run multiple times without problems!! + - You marked it to be run on apply using #executeOnApply:. This is an EXPLICIT step for a reason. + - If it should do able to be REVERSED you need to supply an antiDoIt. + - Put DoIts preferrably first or last in the Delta to avoid strange situations. Remember that even if changes are ordered they may be applied atomically by an applier. + + NOTE: A Delta containing any DoIt will be visualized as "dangerous" in the user interfaces so please avoid them unless you REALLY need them.! Item was changed: ----- Method: DSClassSuperclassChange>>remapClassNames: (in category 'private') ----- remapClassNames: map super remapClassNames: map. + oldSuperclassName := map at: oldSuperclassName ifAbsent: [oldSuperclassName]! - oldSuperclassName := map at: oldSuperclassName ifAbsent: [oldSuperclassName]. - newSuperclassName := map at: newSuperclassName ifAbsent: [newSuperclassName].! Item was added: + ----- Method: DSDoIt class>>doIt: (in category 'accessing') ----- + doIt: aString + ^self doIt: aString antiDoIt: nil! Item was added: + ----- Method: DSDoIt>>asAntiChange (in category 'anti') ----- + asAntiChange + "We swap doIts." + + ^ (self antiChangeClass fromChange: self) + doIt: antiDoIt; + antiDoIt: doIt! Item was added: + ----- Method: DSSystemEditorApplier>>applyDoIt: (in category 'doit changes') ----- + applyDoIt: aDoIt + "A generic DoIt code snippet." + + aDoIt executeOnApply ifTrue: [ + Compiler evaluate: aDoIt doIt logged: true]! Item was changed: + ----- Method: DSDelta>>classGroupsDo: (in category 'manipulate') ----- - ----- Method: DSDelta>>classGroupsDo: (in category 'applying') ----- classGroupsDo: aBlock "Execute a block for all groups of changes per class." | groups coll | groups := Dictionary new. self changes do: [:each | coll := groups at: each className ifAbsentPut: [SortedCollection new]. coll add: each]. groups values do: [:group | aBlock value: group]! Item was added: + ----- Method: DSDoIt>>doIt: (in category 'accessing') ----- + doIt: aString + doIt := aString! Item was added: + ----- Method: DSDelta>>changesReversable (in category 'testing') ----- + changesReversable + "Are all changes reversable?" + + ^self changes allSatisfy: [:change | change isReversable]! Item was added: + ----- Method: DSDoIt>>executeOnApply: (in category 'configuration') ----- + executeOnApply: aBoolean + self propertyAt: #executeOnApply put: aBoolean! Item was added: + ----- Method: DSDoIt class>>doIt:antiDoIt: (in category 'accessing') ----- + doIt: aString antiDoIt: anotherString + ^self new doIt: aString; antiDoIt: anotherString! Item was added: + ----- Method: DSChange>>isReversable (in category 'testing') ----- + isReversable + "By default we answer yes." + + ^true! Item was changed: DSAnnotatedObject subclass: #DSDelta instanceVariableNames: 'uuid changeSequence' classVariableNames: '' poolDictionaries: '' category: 'DeltaStreams-Model-Base'! + !DSDelta commentStamp: 'gk 9/5/2009 15:06' prior: 0! - !DSDelta commentStamp: 'gk 9/2/2009 19:02' prior: 0! A Delta is much like a ChangeSet but improved and simplified. It can capture changes like a ChangeSet does (see #event:), but unlike ChangeSets multiple Deltas can be logging changes at the same time. A Delta maintains an ordered collection of change objects that is a true log unlike a ChangeSet which tries to normalize changes on the fly and does not maintain an order. Also - each change object carries more information than a record in a ChangeSet does - and they know how to produce their anti change which in turn gives a Delta the ability to produce its own anti Delta. Such an anti Delta can be used to revert a Delta. - - Instance variables: - - changeSequence - an instance of DSChangeSequence. - uuid - created when I am first instantiated, never changed. - - Standard properties: + Deltas can be filed out in a file using Tirade format and the file extension 'd' and 'd.gz' for GZIP compression. One file can contain multiple Deltas, the file name is not used for anything in the Delta. + + Instance variables: + + changeSequence - an instance of DSChangeSequence. + uuid - created when I am first instantiated, never changed. + - #revertable - if missing we presume true. Can be used to explicitly flag a Delta as revertable/not revertable. ! Item was added: + ----- Method: DSDoIt>>kind: (in category 'private') ----- + kind: aSymbol + self propertyAt: #kind put: aSymbol! Item was removed: - ----- Method: DSVisitorWrapper>>applyChange: (in category 'basic') ----- - applyChange: change - ^ change applyUsing: visitor! Item was removed: - Exception subclass: #DSDeltaNotRevertableException - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'DeltaStreams-Model-Base'! Item was removed: - ----- Method: DSDelta>>changesRevertable (in category 'testing') ----- - changesRevertable - "Are all changes per definition revertable?" - - ^self changes allSatisfy: [:change | change isRevertable]! Item was removed: - ----- Method: DSVisitorWrapper class>>on: (in category 'as yet unclassified') ----- - on: aVisitor - ^ self new visitor: aVisitor! Item was removed: - ----- Method: DSChange>>isRevertable (in category 'testing') ----- - isRevertable - "By default we answer yes." - - ^true! Item was removed: - ----- Method: DSDelta>>removeChange: (in category 'changes') ----- - removeChange: aChange - - | change | - change := self changes remove: change. - self grouper ifNotNil: [self grouper remove: change]. - self changed: #changeList. - ^ change! Item was removed: - ----- Method: DSDelta>>addClassChange:from: (in category 'applying') ----- - addClassChange: changeClass from: event - "Extract all relevant information from the event - to create and add a class change of given class name." - - | class metaclass | - class := event itemClass theNonMetaClass. - metaclass := event itemClass theMetaClass. - ^self add: ( - self className: class name - changeClass: changeClass - superclassName: class superclass name - instVarNames: class instVarNames - classVarNames: class classVarNames asArray - poolDictionaryNames: class poolDictionaryNames - category: class category - type: class typeOfClass - classInstVarNames: metaclass instVarNames - comment: class organization classComment asString - stamp: class organization commentStamp)! Item was removed: - DSVisitor subclass: #DSVisitorWrapper - instanceVariableNames: 'visitor' - classVariableNames: '' - poolDictionaries: '' - category: 'DeltaStreams-Model-Visitors'! - - !DSVisitorWrapper commentStamp: 'mtf 9/29/2007 14:15' prior: 0! - My instances intercept change requests and act on them and optionally forward them to the wrapped visitor. we can be chained and composed together! Item was removed: - ----- Method: DSDelta>>addMethodChange:from: (in category 'applying') ----- - addMethodChange: changeClass from: event - "Extract all relevant information from the event - to create and add a method change of given class name." - - | method selector class category | - category := event itemProtocol. - method := event item "Method". - "Do not ask me why we need to do it like the next three lines..." - selector := event itemSelector. - selector ifNil: [selector := event itemMethod sourceSelector]. - selector ifNil: [selector := event itemMethod selector]. - class := event itemClass. - ^self add: ( - self className: class name - selector: selector - change: changeClass - category: category - source: method getSource asString - stamp: method timeStamp)! Item was removed: - ----- Method: DSVisitorWrapper>>chain: (in category 'initialize-release') ----- - chain: aVisitor - chain := aVisitor. - visitor chain: aVisitor! Item was removed: - ----- Method: DSVisitorWrapper>>visitor: (in category 'initialize-release') ----- - visitor: aVisitor - visitor := aVisitor. - aVisitor chain: self! Item was removed: - ----- Method: DSDelta>>isRevertable (in category 'testing') ----- - isRevertable - "It is revertable if all changes are per definition revertable - and this Delta is flagged as revertable." - - ^(self propertyAt: #revertable ifAbsent: [true]) and: [self changesRevertable]! Item was removed: - ----- Method: DSDelta>>normalize (in category 'applying') ----- - normalize - "Modify changes so that they are compacted into the minimal form - still producing the equivalent end result. In other words - remove redundancy." - - changeSequence ifNotNil: [ - changeSequence moveClassNameChanges; removeShadows; mergeChanges]!

1 0

DeltaStreams: DeltaStreams-Installer-gk.5.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 04 Sep '09

04 Sep '09

A new version of DeltaStreams-Installer was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Installer-gk.5.mcz ==================== Summary ==================== Name: DeltaStreams-Installer-gk.5 Author: gk Time: 4 September 2009, 4:23:22 am UUID: 0e64fe93-b86f-4b9c-a658-1d28ef0fe1c9 Ancestors: DeltaStreams-Installer-gk.4 Fix to load fixed SystemChangeNotification-Tests. =============== Diff against DeltaStreams-Installer-gk.4 =============== Item was changed: ----- Method: DSInstaller class>>install (in category 'as yet unclassified') ----- install "DSInstaller install" Installer squeaksource project: 'SystemEditor'; "Main mechanism used for actual Delta apply" install: 'SystemEditor-Core'; install: 'SystemEditor-Squeak'; install: 'SystemEditor-Traits'; install: 'SystemEditor-Tests'; install: 'SystemEditorBrowser'; project: 'Tirade'; "This is used for serialization/deserialization - not essential unless you need to store Deltas" install: 'Tirade'; install: 'Tirade-Tests'; project: 'DeltaStreams'; install: 'System'; "Fixes for change notifications" install: 'Traits'; "Fixes for change notifications" install: 'Monticello'; "Fixes for change notifications" + install: 'SystemChangeNotification-Tests'; install: 'DeltaStreams-Model'; "Domain model of Deltas" install: 'DeltaStreams-Logging'; "Extensions for hooking into SystemChangeNotification in Squeak" install: 'DeltaStreams-Tirade'; "Support for filing out/in Deltas in Tirade syntax" install: 'DeltaStreams-Tests'. "All the tests for all packages" self inform: 'DeltaStreams successfully installed!! Time to put your helmet on.' !

1 0

DeltaStreams: SystemChangeNotification-Tests-gk.11.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 04 Sep '09

04 Sep '09

A new version of SystemChangeNotification-Tests was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/SystemChangeNotification-Tests-gk.… ==================== Summary ==================== Name: SystemChangeNotification-Tests-gk.11 Author: gk Time: 4 September 2009, 4:18:47 am UUID: c30d4865-590b-420f-b236-37d962d78236 Ancestors: SystemChangeNotification-Tests-edc.10 Fix to make it green, I am not sure why we are sending a class category along when we change a class comment? ==================== Snapshot ==================== SystemOrganization addCategory: #'SystemChangeNotification-Tests'! TestCase subclass: #SystemChangeTestRoot instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'SystemChangeNotification-Tests'! !SystemChangeTestRoot commentStamp: 'rw 4/5/2006 17:28' prior: 0! The Root test class for the System Change Notification tests.! SystemChangeTestRoot subclass: #ChangeHooksTest instanceVariableNames: 'previousChangeSet testsChangeSet capturedEvents generatedTestClass generatedTestClassX createdMethodName createdMethod doItExpression' classVariableNames: '' poolDictionaries: '' category: 'SystemChangeNotification-Tests'! !ChangeHooksTest commentStamp: 'rw 4/5/2006 17:14' prior: 0! This class implements unit tests to verify that when the system changes, notification messages are sent around correctly. Therefore the test messages make a system change, after registering to receive an event ater the change occured. In this event (sent immediately after the change), the actual assertions take place. Note that the system changes are *really* made to the system, but in a change set that is created in the setUp method, while the previous one is restored in the tearDown method.! ----- Method: ChangeHooksTest>>addSingleEvent: (in category 'Private') ----- addSingleEvent: anEvent capturedEvents isEmpty ifFalse: [self assert: false]. capturedEvents add: anEvent! ----- Method: ChangeHooksTest>>checkEvent:kind:item:itemKind: (in category 'Private') ----- checkEvent: anEvent kind: changeKind item: item itemKind: itemKind self assert: (anEvent perform: ('is' , changeKind) asSymbol). self assert: anEvent item = item. self assert: anEvent itemKind = itemKind! ----- Method: ChangeHooksTest>>checkForOnlySingleEvent (in category 'Private') ----- checkForOnlySingleEvent self assert: capturedEvents size = 1! ----- Method: ChangeHooksTest>>classCommentedEvent: (in category 'Events-Classes') ----- classCommentedEvent: event self addSingleEvent: event. self assert: generatedTestClass comment = self commentStringForTesting. self checkEvent: event kind: #Commented item: generatedTestClass itemKind: AbstractEvent classKind! ----- Method: ChangeHooksTest>>classCreationEvent: (in category 'Events-Classes') ----- classCreationEvent: event | classCreated | self addSingleEvent: event. classCreated := Smalltalk classNamed: self newlyCreatedClassName. self assert: classCreated notNil. self assert: ((Smalltalk organization listAtCategoryNamed: #'System-Change Notification') includes: self newlyCreatedClassName). self checkEvent: event kind: #Added item: classCreated itemKind: AbstractEvent classKind! ----- Method: ChangeHooksTest>>classRecategorizedEvent: (in category 'Events-Classes') ----- classRecategorizedEvent: event self addSingleEvent: event. self checkEvent: event kind: #Recategorized item: generatedTestClass itemKind: AbstractEvent classKind. self assert: event oldCategory = #'System-Change Notification'! ----- Method: ChangeHooksTest>>classRedefinitionEvent: (in category 'Events-Classes') ----- classRedefinitionEvent: event self addSingleEvent: event. self checkEvent: event kind: #Modified item: generatedTestClass itemKind: AbstractEvent classKind.! ----- Method: ChangeHooksTest>>classRemovalEvent: (in category 'Events-Classes') ----- classRemovalEvent: event "This event used to be sent efter the class was removed. This was changed, and therefore this test is useless currently." self addSingleEvent: event. self assert: (Smalltalk classNamed: self generatedTestClassName) isNil. self checkEvent: event kind: #Removed item: self generatedTestClassName itemKind: AbstractEvent classKind! ----- Method: ChangeHooksTest>>classRenameEvent: (in category 'Events-Classes') ----- classRenameEvent: event | renamedClass | self addSingleEvent: event. renamedClass := Smalltalk classNamed: self renamedTestClassName. self assert: renamedClass notNil. self assert: (Smalltalk classNamed: self generatedTestClassName) isNil. self checkEvent: event kind: #Renamed item: renamedClass itemKind: AbstractEvent classKind. self assert: event oldName = self generatedTestClassName! ----- Method: ChangeHooksTest>>classSuperChangedEvent: (in category 'Events-Classes') ----- classSuperChangedEvent: event self addSingleEvent: event. self checkEvent: event kind: #Modified item: generatedTestClass itemKind: AbstractEvent classKind. self assert: generatedTestClass superclass = Model! ----- Method: ChangeHooksTest>>commentStringForTesting (in category 'Private') ----- commentStringForTesting ^'Added this comment as part of the unit test in SystemChangeTest>>testClassCommentedBasicEvents. You should never see this, unless you are debugging the system somewhere in between the tests.'! ----- Method: ChangeHooksTest>>generateTestClass (in category 'Private-Generation') ----- generateTestClass generatedTestClass := Object subclass: self generatedTestClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'System-Change Notification'.! ----- Method: ChangeHooksTest>>generateTestClassX (in category 'Private-Generation') ----- generateTestClassX generatedTestClassX := Object subclass: self generatedTestClassNameX instanceVariableNames: 'x' classVariableNames: '' poolDictionaries: '' category: 'System-Change Notification'.! ----- Method: ChangeHooksTest>>generatedTestClassName (in category 'Private-Generation') ----- generatedTestClassName ^#'AutoGeneratedClassForTestingSystemChanges'! ----- Method: ChangeHooksTest>>generatedTestClassNameX (in category 'Private-Generation') ----- generatedTestClassNameX ^#'AutoGeneratedClassXForTestingSystemChanges'! ----- Method: ChangeHooksTest>>instanceVariableCreationEvent: (in category 'Events-Instance Variables') ----- instanceVariableCreationEvent: event self addSingleEvent: event. self assert: event isModified. self assert: event item = generatedTestClass. self assert: event itemKind = AbstractEvent classKind. self assert: event areInstVarsModified. self deny: event isSuperclassModified. self deny: event areClassVarsModified. self deny: event areSharedPoolsModified. ! ----- Method: ChangeHooksTest>>instanceVariableRemovedEvent: (in category 'Events-Instance Variables') ----- instanceVariableRemovedEvent: event self addSingleEvent: event. self assert: event isModified. self assert: event item = generatedTestClassX. self assert: event itemKind = AbstractEvent classKind. self assert: event areInstVarsModified. self deny: event isSuperclassModified. self deny: event areClassVarsModified. self deny: event areSharedPoolsModified. ! ----- Method: ChangeHooksTest>>methodCreationEvent1: (in category 'Events-Methods') ----- methodCreationEvent1: event | methodCreated | self addSingleEvent: event. self shouldnt: [methodCreated := generatedTestClass >> createdMethodName] raise: Error. self checkEvent: event kind: #Added item: methodCreated itemKind: AbstractEvent methodKind! ----- Method: ChangeHooksTest>>methodCreationEvent2: (in category 'Events-Methods') ----- methodCreationEvent2: event | methodCreated | self addSingleEvent: event. self shouldnt: [methodCreated := generatedTestClass >> createdMethodName] raise: Error. self checkEvent: event kind: #Added item: methodCreated itemKind: AbstractEvent methodKind! ----- Method: ChangeHooksTest>>methodDoItEvent1: (in category 'Events-Expression') ----- methodDoItEvent1: event self addSingleEvent: event. self checkEvent: event kind: #DoIt item: doItExpression itemKind: AbstractEvent expressionKind. self assert: event context isNil.! ----- Method: ChangeHooksTest>>methodRecategorizationEvent: (in category 'Events-Methods') ----- methodRecategorizationEvent: event | methodCreated | self addSingleEvent: event. self shouldnt: [methodCreated := generatedTestClass >> createdMethodName] raise: Error. self assert: ((generatedTestClass organization categoryOfElement: createdMethodName) = #newCategory). self assert: event oldCategory = #testing. self checkEvent: event kind: #Recategorized item: methodCreated itemKind: AbstractEvent methodKind.! ----- Method: ChangeHooksTest>>methodRemovedEvent1: (in category 'Events-Methods') ----- methodRemovedEvent1: event self addSingleEvent: event. self should: [generatedTestClass >> createdMethodName] raise: Error. self checkEvent: event kind: #Removed item: createdMethod itemKind: AbstractEvent methodKind. event itemClass = generatedTestClass. event itemMethod = createdMethodName. self assert: ((generatedTestClass organization categoryOfElement: createdMethodName) isNil).! ----- Method: ChangeHooksTest>>methodRemovedEvent2: (in category 'Events-Methods') ----- methodRemovedEvent2: event self methodRemovedEvent1: event! ----- Method: ChangeHooksTest>>newlyCreatedClassName (in category 'Private-Generation') ----- newlyCreatedClassName ^#'AutoGeneratedClassWhileTestingSystemChanges'! ----- Method: ChangeHooksTest>>rememberEvent: (in category 'Events-General') ----- rememberEvent: event capturedEvents add: event! ----- Method: ChangeHooksTest>>removeGeneratedTestClasses (in category 'Private') ----- removeGeneratedTestClasses "Remove all classes that were possibly generated during testing." | possiblyToRemove | possiblyToRemove := OrderedCollection with: self generatedTestClassName with: self generatedTestClassNameX with: self renamedTestClassName with: self newlyCreatedClassName. possiblyToRemove do: [:name | (Smalltalk hasClassNamed: name) ifTrue: [(Smalltalk at: name) removeFromSystemUnlogged]]! ----- Method: ChangeHooksTest>>renamedTestClassName (in category 'Private-Generation') ----- renamedTestClassName ^#'AutoRenamedClassForTestingSystemChanges'! ----- Method: ChangeHooksTest>>setUp (in category 'Running') ----- setUp previousChangeSet := ChangeSet current. testsChangeSet := ChangeSet new. ChangeSet newChanges: testsChangeSet. capturedEvents := OrderedCollection new. self generateTestClass. self generateTestClassX. super setUp! ----- Method: ChangeHooksTest>>shouldNotBeCalledEvent: (in category 'Events-General') ----- shouldNotBeCalledEvent: anEvent "This event should not be called, so fail the test." self assert: false! ----- Method: ChangeHooksTest>>tearDown (in category 'Running') ----- tearDown super tearDown. self removeGeneratedTestClasses. ChangeSet newChanges: previousChangeSet. ChangesOrganizer removeChangeSet: testsChangeSet. previousChangeSet := nil. testsChangeSet := nil. ! ----- Method: ChangeHooksTest>>testClassCommentedEvent (in category 'Testing-Classes') ----- testClassCommentedEvent self systemChangeNotifier notify: self ofAllSystemChangesUsing: #classCommentedEvent:. generatedTestClass comment: self commentStringForTesting. self checkForOnlySingleEvent! ----- Method: ChangeHooksTest>>testClassCreationEvent (in category 'Testing-Classes') ----- testClassCreationEvent self systemChangeNotifier notify: self ofAllSystemChangesUsing: #classCreationEvent:. Object subclass: self newlyCreatedClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'System-Change Notification'. self checkForOnlySingleEvent! ----- Method: ChangeHooksTest>>testClassRecategorizedEvent1 (in category 'Testing-Classes') ----- testClassRecategorizedEvent1 self systemChangeNotifier notify: self ofAllSystemChangesUsing: #classRecategorizedEvent:. Object subclass: generatedTestClass name instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Collections-Abstract'. self checkForOnlySingleEvent! ----- Method: ChangeHooksTest>>testClassRecategorizedEvent2 (in category 'Testing-Classes') ----- testClassRecategorizedEvent2 self systemChangeNotifier notify: self ofAllSystemChangesUsing: #classRecategorizedEvent:. generatedTestClass category: 'Collections-Abstract'. self checkForOnlySingleEvent! ----- Method: ChangeHooksTest>>testClassRedefinition (in category 'Testing-Classes') ----- testClassRedefinition self systemChangeNotifier notify: self ofAllSystemChangesUsing: #classRedefinitionEvent:. self generateTestClass! ----- Method: ChangeHooksTest>>testClassRemovalEvent (in category 'Testing-Classes') ----- testClassRemovalEvent "This event used to be sent efter the class was removed. This was changed, and therefore this test is useless currently." "Keep it, since I really want to check with the responsible for the ChangeSet, and it is very likely this will be reintroduced afterwards!!" " | createdClass | createdClass := self compileUniqueClass. self systemChangeNotifier notify: self ofAllSystemChangesUsing: #classRemovalEvent:. createdClass removeFromSystem. self checkForOnlySingleEvent "! ----- Method: ChangeHooksTest>>testClassRenamedEvent (in category 'Testing-Classes') ----- testClassRenamedEvent self systemChangeNotifier notify: self ofAllSystemChangesUsing: #classRenameEvent:. generatedTestClass rename: self renamedTestClassName. self checkForOnlySingleEvent! ----- Method: ChangeHooksTest>>testClassSuperChangedEvent (in category 'Testing-Classes') ----- testClassSuperChangedEvent self systemChangeNotifier notify: self ofAllSystemChangesUsing: #classSuperChangedEvent:. Model subclass: generatedTestClass name instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'System-Change Notification'. self checkForOnlySingleEvent! ----- Method: ChangeHooksTest>>testDoItEvent1 (in category 'Testing-Expression') ----- testDoItEvent1 self systemChangeNotifier notify: self ofAllSystemChangesUsing: #methodDoItEvent1:. doItExpression := '1 + 2'. Compiler evaluate: doItExpression logged: true. self checkForOnlySingleEvent! ----- Method: ChangeHooksTest>>testDoItEvent2 (in category 'Testing-Expression') ----- testDoItEvent2 self systemChangeNotifier notify: self ofAllSystemChangesUsing: #shouldNotBeCalledEvent:. doItExpression := '1 + 2'. Compiler evaluate: doItExpression logged: false.! ----- Method: ChangeHooksTest>>testInstanceVariableCreationEvent1 (in category 'Testing-Instance Variables') ----- testInstanceVariableCreationEvent1 self systemChangeNotifier notify: self ofAllSystemChangesUsing: #instanceVariableCreationEvent:. Object subclass: self generatedTestClassName instanceVariableNames: 'x' classVariableNames: '' poolDictionaries: '' category: 'System-Change Notification'. self checkForOnlySingleEvent! ----- Method: ChangeHooksTest>>testInstanceVariableCreationEvent2 (in category 'Testing-Instance Variables') ----- testInstanceVariableCreationEvent2 self systemChangeNotifier notify: self ofAllSystemChangesUsing: #instanceVariableCreationEvent:. generatedTestClass addInstVarName: 'x'. self checkForOnlySingleEvent! ----- Method: ChangeHooksTest>>testInstanceVariableRemovedEvent1 (in category 'Testing-Instance Variables') ----- testInstanceVariableRemovedEvent1 self systemChangeNotifier notify: self ofAllSystemChangesUsing: #instanceVariableRemovedEvent:. Object subclass: generatedTestClassX name instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'System-Change Notification'. self checkForOnlySingleEvent! ----- Method: ChangeHooksTest>>testInstanceVariableRemovedEvent2 (in category 'Testing-Instance Variables') ----- testInstanceVariableRemovedEvent2 self systemChangeNotifier notify: self ofAllSystemChangesUsing: #instanceVariableRemovedEvent:. generatedTestClassX removeInstVarName: 'x'. self checkForOnlySingleEvent! ----- Method: ChangeHooksTest>>testInstanceVariableRenamedSilently (in category 'Testing-Instance Variables') ----- testInstanceVariableRenamedSilently self systemChangeNotifier notify: self ofAllSystemChangesUsing: #shouldNotBeCalledEvent:. generatedTestClassX renameSilentlyInstVar: 'x' to: 'y'! ----- Method: ChangeHooksTest>>testMethodCreationEvent1 (in category 'Testing-Methods') ----- testMethodCreationEvent1 self systemChangeNotifier notify: self ofAllSystemChangesUsing: #methodCreationEvent1:. createdMethodName := #testCreation. generatedTestClass compile: createdMethodName , ' ^1'. self checkForOnlySingleEvent! ----- Method: ChangeHooksTest>>testMethodCreationEvent2 (in category 'Testing-Methods') ----- testMethodCreationEvent2 self systemChangeNotifier notify: self ofAllSystemChangesUsing: #methodCreationEvent2:. createdMethodName := #testCreation. generatedTestClass compile: createdMethodName , ' ^1' classified: #testing. self checkForOnlySingleEvent! ----- Method: ChangeHooksTest>>testMethodRecategorizationEvent (in category 'Testing-Methods') ----- testMethodRecategorizationEvent createdMethodName := #testCreation. generatedTestClass compile: createdMethodName , ' ^1' classified: #testing. self systemChangeNotifier notify: self ofAllSystemChangesUsing: #methodRecategorizationEvent:. generatedTestClass organization classify: createdMethodName under: #newCategory suppressIfDefault: false. self checkForOnlySingleEvent! ----- Method: ChangeHooksTest>>testMethodRemovedEvent1 (in category 'Testing-Methods') ----- testMethodRemovedEvent1 createdMethodName := #testCreation. generatedTestClass compile: createdMethodName , ' ^1'. createdMethod := generatedTestClass >> createdMethodName. self systemChangeNotifier notify: self ofAllSystemChangesUsing: #methodRemovedEvent1:. generatedTestClass removeSelector: createdMethodName. self checkForOnlySingleEvent! ----- Method: ChangeHooksTest>>testMethodRemovedEvent2 (in category 'Testing-Methods') ----- testMethodRemovedEvent2 createdMethodName := #testCreation. generatedTestClass compile: createdMethodName , ' ^1'. createdMethod := generatedTestClass >> createdMethodName. self systemChangeNotifier notify: self ofAllSystemChangesUsing: #methodRemovedEvent2:. Smalltalk removeSelector: (Array with: generatedTestClass name with: createdMethodName). self checkForOnlySingleEvent! SystemChangeTestRoot subclass: #SystemChangeErrorHandling instanceVariableNames: 'capturedEvents' classVariableNames: '' poolDictionaries: '' category: 'SystemChangeNotification-Tests'! !SystemChangeErrorHandling commentStamp: 'rw 4/3/2006 17:21' prior: 0! This class tests the error handing of the notification mechanism to ensure that one client that receives a system change cannot lock up the complete system."! ----- Method: SystemChangeErrorHandling>>handleEventWithError: (in category 'Event Notifications') ----- handleEventWithError: event self error: 'Example of event handling code that throws an error.'! ----- Method: SystemChangeErrorHandling>>handleEventWithHalt: (in category 'Event Notifications') ----- handleEventWithHalt: event self halt: 'Example of event handling code that contains a halt.'! ----- Method: SystemChangeErrorHandling>>setUp (in category 'Running') ----- setUp super setUp. capturedEvents := OrderedCollection new! ----- Method: SystemChangeErrorHandling>>storeEvent1: (in category 'Event Notifications') ----- storeEvent1: anEvent capturedEvents add: anEvent! ----- Method: SystemChangeErrorHandling>>storeEvent2: (in category 'Event Notifications') ----- storeEvent2: anEvent capturedEvents add: anEvent! ----- Method: SystemChangeErrorHandling>>storeEvent3: (in category 'Event Notifications') ----- storeEvent3: anEvent capturedEvents add: anEvent! ----- Method: SystemChangeErrorHandling>>tearDown (in category 'Running') ----- tearDown capturedEvents := nil. super tearDown! ----- Method: SystemChangeErrorHandling>>testErrorOperation (in category 'Testing') ----- testErrorOperation | notifier wasCaptured | notifier := self systemChangeNotifier. wasCaptured := false. notifier notify: self ofSystemChangesOfItem: #class change: #Added using: #storeEvent1:. notifier notify: self ofSystemChangesOfItem: #class change: #Added using: #storeEvent2:. notifier notify: self ofSystemChangesOfItem: #class change: #Added using: #handleEventWithError:. notifier notify: self ofSystemChangesOfItem: #class change: #Added using: #storeEvent3:. [notifier classAdded: self class inCategory: #FooCat] on: Error do: [:exc | wasCaptured := true. self assert: (capturedEvents size = 3)]. self assert: wasCaptured.! ----- Method: SystemChangeErrorHandling>>testHaltOperation (in category 'Testing') ----- testHaltOperation | notifier wasCaptured | notifier := self systemChangeNotifier. wasCaptured := false. notifier notify: self ofAllSystemChangesUsing: #storeEvent1:. notifier notify: self ofAllSystemChangesUsing: #storeEvent2:. notifier notify: self ofAllSystemChangesUsing: #handleEventWithHalt:. notifier notify: self ofAllSystemChangesUsing: #storeEvent3:. [notifier classAdded: self class inCategory: #FooCat] on: Halt do: [:exc | wasCaptured := true. self assert: (capturedEvents size = 3)]. self assert: wasCaptured.! ----- Method: SystemChangeErrorHandling>>testUnhandledEventOperation (in category 'Testing') ----- testUnhandledEventOperation | notifier wasCaptured | notifier := self systemChangeNotifier. wasCaptured := false. notifier notify: self ofSystemChangesOfItem: #class change: #Added using: #storeEvent1:. notifier notify: self ofSystemChangesOfItem: #class change: #Added using: #storeEvent2:. notifier notify: self ofSystemChangesOfItem: #class change: #Added using: #zork:. notifier notify: self ofSystemChangesOfItem: #class change: #Added using: #storeEvent3:. [notifier classAdded: self class inCategory: #FooCat] on: MessageNotUnderstood do: [:exc | wasCaptured := true. self assert: (capturedEvents size = 3)]. self assert: wasCaptured.! SystemChangeTestRoot subclass: #SystemChangeErrorHandlingTest instanceVariableNames: 'capturedEvents' classVariableNames: '' poolDictionaries: '' category: 'SystemChangeNotification-Tests'! SystemChangeTestRoot subclass: #SystemChangeNotifierTest instanceVariableNames: 'capturedEvent notifier' classVariableNames: '' poolDictionaries: '' category: 'SystemChangeNotification-Tests'! !SystemChangeNotifierTest commentStamp: 'rw 4/3/2006 17:19' prior: 0! A SystemChangeNotifierTest is a test class that tests whether the triggering of changes indeed results in the intended changes to be sent to registered object. The basic mechanism for each test is fairly simple: - register the receiver as the one to get the change notifier. - manually trigger a change (so the system is not polluted just to see whether we get the needed event). - the method #event: is invoked and remembers the change event. - the change event is checked to see whether it was the intended one. Instance Variables capturedEvent: Remembers the captured event! ----- Method: SystemChangeNotifierTest>>capturedEvent: (in category 'Private') ----- capturedEvent: eventOrNil "Remember the event being sent." capturedEvent := eventOrNil! ----- Method: SystemChangeNotifierTest>>checkEventForClass:category:change: (in category 'Private') ----- checkEventForClass: aClass category: cat change: changeKind self assert: (capturedEvent perform: ('is' , changeKind) asSymbol). self assert: capturedEvent item = aClass. self assert: capturedEvent itemKind = AbstractEvent classKind. self assert: capturedEvent itemClass = aClass. self assert: capturedEvent itemCategory = cat! ----- Method: SystemChangeNotifierTest>>checkEventForMethod:protocol:change: (in category 'Private') ----- checkEventForMethod: aMethod protocol: prot change: changeKind self assert: (capturedEvent perform: ('is' , changeKind) asSymbol). self assert: capturedEvent item = aMethod. self assert: capturedEvent itemKind = AbstractEvent methodKind. self assert: capturedEvent itemClass = self class. self assert: capturedEvent itemMethod = aMethod. self assert: capturedEvent itemProtocol = prot! ----- Method: SystemChangeNotifierTest>>checkEventForMethod:protocol:change:oldMethod: (in category 'Private') ----- checkEventForMethod: aMethod protocol: prot change: changeKind oldMethod: oldMethod self checkEventForMethod: aMethod protocol: prot change: changeKind. self assert: capturedEvent oldItem == oldMethod ! ----- Method: SystemChangeNotifierTest>>event: (in category 'Event Notifications') ----- event: event "The notification message being sent to me when an event is captured. Remember it." " capturedEvent isNil ifTrue: [ self capturedEvent: event] ifFalse: [self assert: false]" self capturedEvent: event! ----- Method: SystemChangeNotifierTest>>setUp (in category 'Running') ----- setUp super setUp. notifier := SystemChangeNotifier createInstance.! ----- Method: SystemChangeNotifierTest>>systemChangeNotifier (in category 'Private') ----- systemChangeNotifier "The notifier to use. Do not use the one in the system so that the fake events triggered in the tests perturb clients of the system's change notifier (e.g. the changes file then shows fake entries)." ^notifier! ----- Method: SystemChangeNotifierTest>>tearDown (in category 'Running') ----- tearDown super tearDown. self capturedEvent: nil. notifier releaseAll. notifier := nil! ----- Method: SystemChangeNotifierTest>>testClassAddedEvent (in category 'Testing-system triggers') ----- testClassAddedEvent self systemChangeNotifier notify: self ofAllSystemChangesUsing: #event:. self systemChangeNotifier classAdded: self class inCategory: #FooCat. self checkEventForClass: self class category: #FooCat change: #Added! ----- Method: SystemChangeNotifierTest>>testClassAddedEvent2 (in category 'Testing-system triggers') ----- testClassAddedEvent2 self systemChangeNotifier notify: self ofSystemChangesOfItem: #class change: #Added using: #event:. self systemChangeNotifier classAdded: self class inCategory: #FooCat. self checkEventForClass: self class category: #FooCat change: #Added! ----- Method: SystemChangeNotifierTest>>testClassCommentedEvent (in category 'Testing-system triggers') ----- testClassCommentedEvent self systemChangeNotifier notify: self ofAllSystemChangesUsing: #event:. self systemChangeNotifier class: self class category: #FooCat oldComment: '' newComment: '' oldStamp: '' newStamp: '' . self checkEventForClass: self class category: #FooCat change: #Commented! ----- Method: SystemChangeNotifierTest>>testClassRecategorizedEvent (in category 'Testing-system triggers') ----- testClassRecategorizedEvent self systemChangeNotifier notify: self ofAllSystemChangesUsing: #event:. self systemChangeNotifier class: self class recategorizedFrom: #FooCat to: #FooBar. self checkEventForClass: self class category: #FooBar change: #Recategorized. self assert: capturedEvent oldCategory = #FooCat! ----- Method: SystemChangeNotifierTest>>testClassRemovedEvent (in category 'Testing-system triggers') ----- testClassRemovedEvent self systemChangeNotifier notify: self ofAllSystemChangesUsing: #event:. self systemChangeNotifier classRemoved: self class fromCategory: #FooCat. self checkEventForClass: self class category: #FooCat change: #Removed! ----- Method: SystemChangeNotifierTest>>testClassRenamedEvent (in category 'Testing-system triggers') ----- testClassRenamedEvent "self run: #testClassRenamedEvent" self systemChangeNotifier notify: self ofAllSystemChangesUsing: #event:. self systemChangeNotifier classRenamed: self class from: #OldFooClass to: #NewFooClass inCategory: #FooCat. self checkEventForClass: self class category: #FooCat change: #Renamed. " self assert: capturedEvent oldName = #OldFooClass. self assert: capturedEvent newName = #NewFooClass"! ----- Method: SystemChangeNotifierTest>>testDoItEvent (in category 'Testing-system triggers') ----- testDoItEvent self systemChangeNotifier notify: self ofAllSystemChangesUsing: #event:. self systemChangeNotifier evaluated: '1 + 2' context: self. self assert: capturedEvent isDoIt. self assert: capturedEvent item = '1 + 2'. self assert: capturedEvent itemKind = AbstractEvent expressionKind. self assert: capturedEvent itemClass = nil. self assert: capturedEvent itemMethod = nil. self assert: capturedEvent itemProtocol = nil. self assert: capturedEvent itemExpression = '1 + 2'. self assert: capturedEvent context = self.! ----- Method: SystemChangeNotifierTest>>testMethodAddedEvent1 (in category 'Testing-system triggers') ----- testMethodAddedEvent1 self systemChangeNotifier notify: self ofAllSystemChangesUsing: #event:. self systemChangeNotifier methodAdded: self class >> #testMethodAddedEvent1 selector: #testMethodAddedEvent1 inProtocol: #FooCat class: self class. self checkEventForMethod: self class >> #testMethodAddedEvent1 protocol: #FooCat change: #Added! ----- Method: SystemChangeNotifierTest>>testMethodAddedEvent2 (in category 'Testing-system triggers') ----- testMethodAddedEvent2 self systemChangeNotifier notify: self ofAllSystemChangesUsing: #event:. self systemChangeNotifier methodAdded: self class >> #testMethodAddedEvent1 selector: #testMethodAddedEvent1 inClass: self class. self checkEventForMethod: self class >> #testMethodAddedEvent1 protocol: nil change: #Added! ----- Method: SystemChangeNotifierTest>>testMethodAddedEvent3 (in category 'Testing-system triggers') ----- testMethodAddedEvent3 self systemChangeNotifier notify: self ofAllSystemChangesUsing: #event:. self systemChangeNotifier methodChangedFrom: self class >> #testMethodAddedEvent1 to: self class >> #testMethodAddedEvent2 selector: #testMethodAddedEvent2 inClass: self class. self checkEventForMethod: self class >> #testMethodAddedEvent2 protocol: nil change: #Modified oldMethod: self class >> #testMethodAddedEvent1.! ----- Method: SystemChangeNotifierTest>>testMethodRemovedEvent (in category 'Testing-system triggers') ----- testMethodRemovedEvent self systemChangeNotifier notify: self ofAllSystemChangesUsing: #event:. self systemChangeNotifier methodRemoved: self class>> #testMethodRemovedEvent selector: #testMethodRemovedEvent inProtocol: #FooCat class: self class. self checkEventForMethod: self class>> #testMethodRemovedEvent protocol: #FooCat change: #Removed.! ----- Method: SystemChangeTestRoot>>systemChangeNotifier (in category 'Private') ----- systemChangeNotifier "The notifier to use. Use the one for the system." ^SystemChangeNotifier uniqueInstance! ----- Method: SystemChangeTestRoot>>tearDown (in category 'Running') ----- tearDown self unhook. super tearDown! ----- Method: SystemChangeTestRoot>>unhook (in category 'Running') ----- unhook self systemChangeNotifier noMoreNotificationsFor: self!

1 0

DeltaStreams: System-gk.143.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 04 Sep '09

04 Sep '09

A new version of System was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/System-gk.143.mcz ==================== Summary ==================== Name: System-gk.143 Author: gk Time: 4 September 2009, 4:17:14 am UUID: 03c92de2-42e0-4ab2-a14f-d0fea5829526 Ancestors: System-gk.142 Fix to make SystemChangeNotification tests green. I am definitely not sure about this fix. =============== Diff against System-gk.142 =============== Item was added: + ----- Method: CommentedEvent class>>class:category:oldComment:newComment:oldStamp:newStamp: (in category 'accessing') ----- + class: aClass category: aCategory oldComment: oldComment newComment: newComment oldStamp: oldStamp newStamp: newStamp + "For some reason there are senders that want to send the category along, no idea why." + + ^(self class: aClass oldComment: oldComment newComment: newComment oldStamp: oldStamp newStamp: newStamp) + itemCategory: aCategory; yourself! Item was added: + ----- Method: SystemChangeNotifier>>class:category:oldComment:newComment:oldStamp:newStamp: (in category 'system triggers') ----- + class: aClass category: aCategory oldComment: oldComment newComment: newComment oldStamp: oldStamp newStamp: newStamp + "A class was commented in the system in a category. I really do + not know why we would like the category in this case? I added this to make + the tests green." + + self trigger: (CommentedEvent class: aClass category: aCategory oldComment: oldComment newComment: newComment oldStamp: oldStamp newStamp: newStamp)! Item was removed: - ----- Method: CommentedEvent class>>class:oldComment:newComment: (in category 'accessing') ----- - class: aClass oldComment: oldComment newComment: newComment - - ^(self class: aClass) oldComment: oldComment; newComment: newComment; yourself!

1 0

DeltaStreams: DeltaStreams-Tirade-gk.3.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 04 Sep '09

04 Sep '09

A new version of DeltaStreams-Tirade was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Tirade-gk.3.mcz ==================== Summary ==================== Name: DeltaStreams-Tirade-gk.3 Author: gk Time: 4 September 2009, 4:12:52 am UUID: 7d7c5863-0aa8-4b32-9391-704723ecefeb Ancestors: DeltaStreams-Tirade-gk.2 Removed old method. =============== Diff against DeltaStreams-Tirade-gk.2 =============== Item was removed: - ----- Method: DSTiradeReader>>primitivePerformMessage (in category 'processing') ----- - primitivePerformMessage - - ^receiver perform: selector asSymbol withArguments: arguments asArray!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2009