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

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

Name: DeltaStreams-Tests-gk.9
Author: gk
Time: 11 March 2009, 2:39:18 pm
UUID: fe827045-9798-40e1-bce4-8acff8e18a97
Ancestors: DeltaStreams-Tests-gk.8

Fix of temp overriding ivar "class"
Fixed some classify tests. Deprecated perhaps.

=============== Diff against DeltaStreams-Tests-gk.8 ===============

Item was changed:
  ----- Method: DSDeltaClassifyTest>>testClassifierAcrossRename (in category 'as yet unclassified') -----
  testClassifierAcrossRename
+ 	| classified classChanges |
- 	| class classified classChanges |
  	delta startLogging.
  	class := self createClassAWithMethods.
+ 	class rename: self newClassAName.
- 	class := class rename: self newClassAName.
  	self createMethodBIn: class.
  	delta stopLogging.
+ 	
+ 	classified := DSChangeCategorizer forClassesAndMethods withAll: delta compositeChange.
- 	classified := DSChangeCategorizer forClassesAndMethods withAll: delta.
  	self assert: classified dictionary size = 1.
  	classChanges := classified at: self newClassAName.
  	self assert: classChanges methodChanges dictionary size = 2.
  	self 
  		assert: (classChanges methodChanges dictionary includesKey: self selectorA).
  	self 
  		assert: (classChanges methodChanges dictionary includesKey: self selectorB).
  	self assert: classChanges classMethodChanges dictionary size = 1.
  	self assert: (classChanges classMethodChanges dictionary 
  				includesKey: self selectorA)!

Item was changed:
  ----- Method: DSDeltaClassifyTest>>testClassifierForClasses (in category 'as yet unclassified') -----
  testClassifierForClasses
  	| classified classChanges |
  	delta startLogging.
+ 	class := self createClassAWithMethods.
- 	self createClassAWithMethods.
  	self createClassB.
  	delta stopLogging.
+ 	classified := DSChangeCategorizer forClassesAndMethods withAll: delta compositeChange.
- 	classified := DSChangeCategorizer forClassesAndMethods withAll: delta.
  	self assert: classified dictionary size = 2.
  	classChanges := classified at: self oldClassAName.
  	self assert: classChanges methodChanges dictionary size = 1.
  	self 
  		assert: (classChanges methodChanges dictionary includesKey: self selectorA).
  	self assert: classChanges classMethodChanges dictionary size = 1.
  	self assert: (classChanges classMethodChanges dictionary 
  				includesKey: self selectorA).
  	classChanges := classified at: self classBName.
  	self assert: classChanges methodChanges dictionary size = 0.
  	self assert: classChanges classMethodChanges dictionary size = 0!

Item was changed:
  ----- Method: DSTestCase>>createClassAWithMethods (in category 'private') -----
  createClassAWithMethods
+ 	| c |
+ 	c := self createClassA.
+ 	self createMethodAIn: c.
+ 	self createMethodAIn: c class.
+ 	^ c!
- 	| class |
- 	class := self createClassA.
- 	self createMethodAIn: class.
- 	self createMethodAIn: class class.
- 	^ class!