[Pkg] DeltaStreams: DeltaStreams-Tests-mtf.3.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of DeltaStreams-Tests was added to project DeltaStreams:
http://www.squeaksource.com/DeltaStreams/DeltaStreams-Tests-mtf.3.mcz

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

Name: DeltaStreams-Tests-mtf.3
Author: mtf
Time: 9 March 2009, 2:04:24 pm
UUID: b5ed6d43-493d-4ecb-8441-456074a69d1b
Ancestors: DeltaStreams-Tests-mtf.2

moved some old query methods to the tests package, where their only user is

=============== Diff against DeltaStreams-Tests-mtf.2 ===============

Item was added:
+ ----- Method: DSDelta>>classSuperclassChanges (in category '*deltastreams-tests') -----
+ classSuperclassChanges
+ 	^changes select: [:change | change isClassSuperclass]!

Item was added:
+ ----- Method: DSDelta>>classCommentChanges (in category '*deltastreams-tests') -----
+ classCommentChanges
+ 	^changes select: [:change | change isClassComment]!

Item was added:
+ ----- Method: DSDelta>>classGroupNamed: (in category '*deltastreams-tests') -----
+ classGroupNamed: aClassName
+ 	"Answers all the changes to the class with this name"
+ 
+ 	^ self classGroupFor: (DSBasicClassChange className: aClassName)!

Item was added:
+ ----- Method: DSDelta>>classRemovedChanges (in category '*deltastreams-tests') -----
+ classRemovedChanges
+ 	^changes select: [:change | change isClassRemoved]!

Item was added:
+ ----- Method: DSDelta>>classNameChanges (in category '*deltastreams-tests') -----
+ classNameChanges
+ 	^changes select: [:change | change isClassName]!

Item was added:
+ ----- Method: DSDelta>>classInstVarsChanges (in category '*deltastreams-tests') -----
+ classInstVarsChanges
+ 	^changes select: [:change | change isClassInstVars]!

Item was added:
+ ----- Method: DSDelta>>classGroupFor: (in category '*deltastreams-tests') -----
+ classGroupFor: protoChange
+ 	"Answers all the changes to the same class as protoChange. Returns the list in reverse order from the delta"
+ 
+ 	protoChange isClassChange ifFalse: [^ Array new].
+ 	^ (self withClassName: protoChange className reverseSelect: [:change :className |
+ 		change inClassGroupFor: protoChange withClassName: className])!