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!
packages@lists.squeakfoundation.org