[Pkg] DeltaStreams: DeltaStreams-Tests-gk.4.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Mon Mar 9 20:32:49 UTC 2009
A new version of DeltaStreams-Tests was added to project DeltaStreams:
http://www.squeaksource.com/DeltaStreams/DeltaStreams-Tests-gk.4.mcz
==================== Summary ====================
Name: DeltaStreams-Tests-gk.4
Author: gk
Time: 9 March 2009, 9:32:45 pm
UUID: aaf3cc55-d795-4c67-bbc0-529f86479f55
Ancestors: DeltaStreams-Tests-mtf.3
Bug fixes.
=============== Diff against DeltaStreams-Tests-mtf.3 ===============
Item was changed:
----- Method: DSDelta>>classSuperclassChanges (in category '*deltastreams-tests') -----
classSuperclassChanges
+ ^self changes select: [:change | change isClassSuperclass]!
- ^changes select: [:change | change isClassSuperclass]!
Item was changed:
----- Method: DSDelta>>classCommentChanges (in category '*deltastreams-tests') -----
classCommentChanges
+ ^self changes select: [:change | change isClassComment]!
- ^changes select: [:change | change isClassComment]!
Item was changed:
----- Method: DSDelta>>classRemovedChanges (in category '*deltastreams-tests') -----
classRemovedChanges
+ ^self changes select: [:change | change isClassRemoved]!
- ^changes select: [:change | change isClassRemoved]!
Item was changed:
----- Method: DSDeltaLoggingTest>>testClassComment (in category 'class tests') -----
testClassComment
| old new |
old := class organization classComment.
new := old, 'NEW'.
class classComment: new.
self assert: (delta classCommentChanges size = 1).
self assert: (delta classCommentChanges first oldComment = old).
self assert: (delta classCommentChanges first newComment = new)!
Item was changed:
----- Method: DSDelta>>classNameChanges (in category '*deltastreams-tests') -----
classNameChanges
+ ^self changes select: [:change | change isClassName]!
- ^changes select: [:change | change isClassName]!
Item was changed:
----- Method: DSDelta>>classInstVarsChanges (in category '*deltastreams-tests') -----
classInstVarsChanges
+ ^self changes select: [:change | change isClassInstVars]!
- ^changes select: [:change | change isClassInstVars]!
More information about the Packages
mailing list