[Pkg] DeltaStreams: DeltaStreams-Deprecated-mtf.2.mcz

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

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

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

Name: DeltaStreams-Deprecated-mtf.2
Author: mtf
Time: 9 March 2009, 7:08:51 pm
UUID: 5708082f-3680-4170-8989-47bd98d142da
Ancestors: DeltaStreams-Deprecated-mtf.1

moved two old tests here. I think the normalize one may have been useful, but not sure

=============== Diff against DeltaStreams-Deprecated-mtf.1 ===============

Item was added:
+ ----- Method: DSDeltaNormalizeTest>>testCreateAndRemove (in category 'as yet unclassified') -----
+ testCreateAndRemove
+ 
+ 	self createClassB; removeTestClasses; createClassB.
+ 	delta stopLogging; normalize.
+ 	self assert: delta changes size = 2.
+ 	self assert: delta changes first isClassDeleted.
+ 	self assert: delta changes second isClassCreated.!

Item was added:
+ DSTestCase subclass: #DSDeltaNormalizeTest
+ 	instanceVariableNames: 'delta'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'DeltaStreams-Deprecated'!

Item was added:
+ DSTestCase subclass: #DSDeltaEditorTest
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'DeltaStreams-Deprecated'!

Item was added:
+ ----- Method: DSDeltaEditorTest>>setUp (in category 'as yet unclassified') -----
+ setUp!

Item was added:
+ ----- Method: DSDelta>>editor (in category '*deltastreams-deprecated') -----
+ editor
+ 	^DSDeltaEditor on: self!

Item was added:
+ ----- Method: DSDeltaNormalizeTest>>setUp (in category 'as yet unclassified') -----
+ setUp
+ 	delta := DSDelta new.
+ 	class := self createClassAWithMethods.
+ 	self createTestPools.
+ 	delta startLogging.!

Item was added:
+ ----- Method: DSDeltaNormalizeTest>>testMoveClassNameChanges (in category 'as yet unclassified(slow)') -----
+ testMoveClassNameChanges
+ 
+ 	| de |
+ 	delta stopLogging.
+ 	de := delta editor.
+ 
+ 	"Make three changes."
+ 	de createClassName: 'A'; comment: 'A comment'; instVars: 'one two'.
+ 	de createClassName: 'Z'; comment: 'Z comment'.
+ 
+ 	de delta renameClassFrom: 'A' to: 'B'.
+ 	de className: 'B'; instVars: 'one two'.
+ 
+ 	de delta renameClassFrom: 'B' to: 'C'.
+ 	de delta renameClassFrom: 'C' to: 'D'.
+ 
+ 	delta moveClassNameChanges.
+ 	self assert: delta changes size = 2.
+ 	self assert: delta changes first isClassDeleted.
+ 	self assert: delta changes second isClassCreated.!

Item was added:
+ ----- Method: DSDeltaEditorTest>>tearDown (in category 'as yet unclassified') -----
+ tearDown
+ .
+ 	self removeTestClasses!

Item was added:
+ ----- Method: DSDeltaEditorTest>>testManualCreationApplyAndRevert (in category 'as yet unclassified') -----
+ testManualCreationApplyAndRevert
+ 
+ 	| de newComment class className |.
+ 	className := #DSTestClassA.
+ 	newComment := 'A class comment for classA.'.
+ 
+ 	de := DSDelta new editor.
+ 
+ 	"Make three changes."
+ 	de createClassName: className.
+ 	de comment: newComment.
+ 	de instVars: 'one two'.
+ 
+ 	self assert: de delta changes size = 3.
+ 	self deny: (Smalltalk hasClassNamed: className).
+ 	de apply. "should create the class"
+ 
+ 	class := Smalltalk classNamed: className.
+ 	self assert: class notNil.
+ 
+ 	self assert: class organization classComment = newComment.
+ 	self assert: class instVarNames asSpaceString = 'one two'.
+ 
+ 	de revert. "should make the class go poof"
+ 
+ 	self deny: (Smalltalk hasClassNamed: className)!

Item was added:
+ ----- Method: DSDeltaNormalizeTest>>tearDown (in category 'as yet unclassified') -----
+ tearDown
+ 	delta stopLogging.
+ 	delta := class := nil.
+ 	self removeTestClasses; removeTestPools!