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

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

Name: DeltaStreams-Tests-gk.10
Author: gk
Time: 29 June 2009, 11:28:09 pm
UUID: e836501d-499b-43ba-8588-380885335f30
Ancestors: DeltaStreams-Tests-gk.9

- DSDelta>>compositeChange renamed to changes
- Tirade tests added

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

Item was changed:
  DSTestCase subclass: #DSDeltaLoggingTest
  	instanceVariableNames: 'delta'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'DeltaStreams-Tests'!
  
+ !DSDeltaLoggingTest commentStamp: 'gk 3/11/2009 23:39' prior: 0!
+ Perform various operations on test classes with a logging delta - then verify that it contains the proper changes.!
- !DSDeltaLoggingTest commentStamp: '<historical>' prior: 0!
- Testing change logging with a DSDelta.!

Item was changed:
  DSDeltaCreationTest subclass: #DSDeltaCopyTest
  	instanceVariableNames: ''
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'DeltaStreams-Tests'!
+ 
+ !DSDeltaCopyTest commentStamp: 'gk 3/11/2009 23:38' prior: 0!
+ Tests basically copying of different kinds of changes.!

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

Item was added:
+ ----- Method: DSDeltaTiradeFileOutTest>>transformChange: (in category 'as yet unclassified') -----
+ transformChange: aChange
+ 	writer nextPut: aChange.
+ 	reader reset.
+ 	^reader next!

Item was changed:
  ----- Method: DSDeltaClassifyTest>>testClassifierAcrossRename (in category 'as yet unclassified') -----
  testClassifierAcrossRename
  	| classified classChanges |
  	delta startLogging.
  	class := self createClassAWithMethods.
  	class rename: self newClassAName.
  	self createMethodBIn: class.
  	delta stopLogging.
  	
+ 	classified := DSChangeCategorizer forClassesAndMethods withAll: delta changes.
- 	classified := DSChangeCategorizer forClassesAndMethods withAll: delta compositeChange.
  	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 createClassB.
  	delta stopLogging.
+ 	classified := DSChangeCategorizer forClassesAndMethods withAll: delta changes.
- 	classified := DSChangeCategorizer forClassesAndMethods withAll: delta compositeChange.
  	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:
  DSTestCase subclass: #DSDeltaRevertTest
  	instanceVariableNames: 'delta'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'DeltaStreams-Tests'!
+ 
+ !DSDeltaRevertTest commentStamp: 'gk 3/11/2009 23:40' prior: 0!
+ Perform various operations on test classes with a logging delta, then revert the delta and verify that we are back where we started with no change.!

Item was added:
+ ----- Method: DSDeltaTiradeTest>>testEmptyDelta (in category 'as yet unclassified') -----
+ testEmptyDelta
+ 
+ 	| delta same |
+ 	delta := DSDelta new.
+ 	writer nextPut: delta.
+ 	reader reset.
+ 
+ 	same := reader next.
+ 	self assert: same = delta.
+ 	self assert: delta timeStamp = same timeStamp.
+ 	self assert: delta properties = (same properties).
+ 	self assert: delta uuid = same uuid!

Item was added:
+ ----- Method: DSDeltaTiradeTest>>setUp (in category 'as yet unclassified') -----
+ setUp
+ 	| stream |
+ 	super setUp.
+ 	stream := RWBinaryOrTextStream on: String new.
+ 	reader := DSTiradeReader on: stream.
+ 	writer := DSTiradeWriter on: stream.!

Item was added:
+ DSDeltaCreationTest subclass: #DSDeltaTiradeFileOutTest
+ 	instanceVariableNames: 'writer reader'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'DeltaStreams-Tests'!

Item was added:
+ ----- Method: DSDeltaTiradeFileOutTest>>setUp (in category 'as yet unclassified') -----
+ setUp
+ 	| stream |
+ 	super setUp.
+ 	stream := RWBinaryOrTextStream on: String new.
+ 	reader := DSTiradeReader on: stream.
+ 	writer := DSTiradeWriter on: stream.!

Item was added:
+ DSDeltaCreationTest subclass: #DSDeltaTiradeTest
+ 	instanceVariableNames: 'writer reader'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'DeltaStreams-Tests'!

Item was added:
+ ----- Method: DSDeltaTiradeTest>>tearDown (in category 'as yet unclassified') -----
+ tearDown
+ 	reader := writer := nil.
+ 	super tearDown!

Item was added:
+ ----- Method: DSDeltaTiradeTest>>transformChange: (in category 'as yet unclassified') -----
+ transformChange: aChange
+ 	aChange entryWriters do: [:ea | ea writeOn: writer].
+ 	reader reset.
+ 	reader build.
+ 	^ reader builtObject!

Item was added:
+ ----- Method: DSDeltaTiradeFileOutTest>>tearDown (in category 'as yet unclassified') -----
+ tearDown
+ 	reader := writer := nil.
+ 	super tearDown!