[Pkg] DeltaStreams: DeltaStreams-Tests-gk.4.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-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]!