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

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

Name: DeltaStreams-Tests-mtf.5
Author: mtf
Time: 9 March 2009, 5:40:56 pm
UUID: 533acbb1-eacd-4b03-a877-92147fd15fb1
Ancestors: DeltaStreams-Tests-gk.4

removed DSDelta >> from:to:do:, which had been deprecated by scanNames.
moved some inappropriate extension methods elsewhere

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

Item was changed:
  ----- Method: DSDeltaLoggingTest>>testInstVars (in category 'class tests') -----
  testInstVars
  
  	| change |
- 	delta from: '' to: 'c d e' do: [:old :new |
- 		self assert: (old = #()).
- 		self assert: (new = #(c d e))].
- 
  	class addInstVarName: 'bark'; removeInstVarName: 'bark'.
  	self assert: (delta changes size = 2).
  	change := delta changes first.
  	self assert: (change newVars = #(bark)).
  	self assert: (change oldVars = #()).
  	self assert: (change added = #(bark)).
  	self assert: (change removed = #()).
  	self assert: (change moved = #()).
  
  	change := delta changes second.
  	self assert: (change newVars = #()).
  	self assert: (change oldVars = #(bark)).
  	self assert: (change added = #()).
  	self assert: (change removed = #(bark)).
  	self assert: (change moved = #()).
  !

Item was added:
+ ----- Method: DSDelta>>renameClassFrom:to: (in category '*deltastreams-tests') -----
+ renameClassFrom: oldName to: newName
+ 	"A class is being renamed."
+ 
+ 	self addChange: (DSClassNameChange className: oldName to: newName)!

Item was added:
+ ----- Method: DSClassNameChange class>>className:to: (in category '*deltastreams-tests') -----
+ className: aName to: newName
+ 	^(self className: aName) newName: newName; yourself!

Item was changed:
  ----- Method: DSDeltaLoggingTest>>testClassInstVars (in category 'class tests') -----
  testClassInstVars
  
  	| change |
- 	delta from: '' to: 'c d e' do: [:old :new |
- 		self assert: (old = #()).
- 		self assert: (new = #(c d e))].
- 	
  	class class addInstVarName: 'bark'; removeInstVarName: 'bark'.
  	self assert: (delta changes size = 2).
  	change := delta changes first.
  	self assert: change isClassInstVars.
  	self assert: change className == self oldClassAName.
  	self assert: (change newVars = #(bark)).
  	self assert: (change oldVars = #()).
  	self assert: (change added = #(bark)).
  	self assert: (change removed = #()).
  	self assert: (change moved = #()).
  
  	change := delta changes second.
  	self assert: change isClassInstVars.
  	self assert: change className == self oldClassAName.
  	self assert: (change newVars = #()).
  	self assert: (change oldVars = #(bark)).
  	self assert: (change added = #()).
  	self assert: (change removed = #(bark)).
  	self assert: (change moved = #()).
  !

Item was removed:
- ----- Method: DSDeltaLoggingTest>>testAddedRemoved (in category 'as yet unclassified') -----
- testAddedRemoved
- 	delta from: '' to: 'c d e' do: [:old :new |
- 		self assert: (old = #()).
- 		self assert: (new = #(c d e))].
- 
- 	!

Item was removed:
- ----- 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 removed:
- ----- 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])!