hg/stx-goodies-regression: comparison RegressionTests_

equal deleted inserted replaced

-:c3b09cef9f87
+:2351db93aa5b
 "{ Encoding: utf8 }"
-"{ Package: 'exept:regression' }"
+"{ Package: 'stx:goodies/regression' }"
 "{ NameSpace: RegressionTests }"
 ClassAndMethodCompilingTestCase subclass:#ChangeSetTests
 	instanceVariableNames:''
 !ChangeSetTests methodsFor:'private'!
 performTest
 ^Class withoutUpdatingChangesDo:[
-super performTest
+	super performTest
 ]
 "Created: / 20-11-2012 / 15:08:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 cs := ChangeSet forExistingClass: self class.
 cs := cs select:[:each | each isMethodChange and:[ each selector = testSelector ]].
 output := (String streamContents:[ :s | cs saveToStream: s  format: nil ]) readStream.
 chunks := OrderedCollection streamContents:[ :s |
-[ output atEnd ] whileFalse:[
+	[ output atEnd ] whileFalse:[
-s nextPut: output nextChunk.
+	    s nextPut: output nextChunk.
-].
+	].
 ].
 self assert: chunks size == 6.
 self assert: (chunks at: 1) = ('"{ NameSpace: RegressionTests }"', Character cr, Character cr).
 cs := ChangeSet forExistingClass: ChangeSetTests::ExistingPrivateClass.
 cs := cs select:[:each | each isMethodChange and:[ each selector = #foo ]].
 output := (String streamContents:[ :s | cs saveToStream: s  format: nil ]) readStream.
 chunks := OrderedCollection streamContents:[ :s |
-[ output atEnd ] whileFalse:[
+	[ output atEnd ] whileFalse:[
-s nextPut: output nextChunk.
+	    s nextPut: output nextChunk.
-].
+	].
 ].
 self assert: chunks size == 6.
 self assert: (chunks at: 1) = ('"{ NameSpace: RegressionTests }"', Character cr, Character cr).
 test_ClassSourceWriter_01
 | sourceFileout cs sourceChangeset|
 sourceFileout := String streamContents:[:s|
-AbstractSourceCodeManager fileOutSourceCodeOf:ChangeSet on:s
+	AbstractSourceCodeManager fileOutSourceCodeOf:ChangeSet on:s
 ].
 cs := ChangeSet fromStream: sourceFileout readStream.
 sourceChangeset := String streamContents:[:s|
-cs saveToStream:s format:#classSource
+	cs saveToStream:s format:#classSource
 ].
 self assert: sourceFileout asByteArray = sourceChangeset asByteArray.
 "
 Tools::TextDiff2Tool openOn: sourceFileout label: 'sourceFileout' and: sourceChangeset label: 'sourceChangeset'
 '/tmp/sourceFileout.st' asFilename writingFileDo:[:s|s binary; nextPutAll:  sourceFileout asByteArray].
 test_ClassSourceWriter_02
 | sourceFileout cs sourceChangeset|
 sourceFileout := String streamContents:[:s|
-AbstractSourceCodeManager fileOutSourceCodeOf:Tools::HierarchicalPackageFilterList on:s
+	AbstractSourceCodeManager fileOutSourceCodeOf:Tools::HierarchicalPackageFilterList on:s
 ].
 cs := ChangeSet fromStream: sourceFileout readStream.
 sourceChangeset := String streamContents:[:s|
-cs saveToStream:s format:#classSource
+	cs saveToStream:s format:#classSource
 ].
 self assert: sourceFileout asByteArray = sourceChangeset asByteArray.
 "
 Tools::TextDiff2Tool openOn: sourceFileout label: 'sourceFileout' and: sourceChangeset label: 'sourceChangeset'
 "
 | cs |
 cs := ChangeSet fromStream:'
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 ' readStream.
 self assert: cs size == 1.
 self assert: cs first className = 'MockClass'.
 self assert: (Smalltalk at: #MockClass) isNil.
 | changefile |
 changefile :='
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 ' readStream.
 self assert: (Smalltalk at: #MockClass) isNil.
 cs := ChangeSet fromStream:'
 "{ NameSpace: Mocks }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 ' readStream.
 self assert: cs size == 1.
 self assert: cs first className = 'MockClass'.
 self assert: cs first fullClassName = 'Mocks::MockClass'.
 changefile :='
 "{ NameSpace: Mocks }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 ' readStream.
 | cs |
 cs := ChangeSet fromStream:'
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 Object subclass:#PrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:MockClass
+	privateIn:MockClass
 ' readStream.
 self assert: cs size == 2.
 self assert: cs first  className = 'MockClass'.
 | changefile |
 changefile :='
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 Object subclass:#PrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:MockClass
+	privateIn:MockClass
 ' readStream.
 cs := ChangeSet fromStream:'
 "{ NameSpace: Mocks }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 Object subclass:#PrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:MockClass
+	privateIn:MockClass
 ' readStream.
 self assert: cs size == 2.
 self assert: cs first  className = 'MockClass'.
 changefile :='
 "{ NameSpace: Mocks }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 Object subclass:#PrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:MockClass
+	privateIn:MockClass
 ' readStream.
 | cs |
 cs := ChangeSet fromStream:'
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 ' readStream.
 Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
-cs apply.
+	cs apply.
 ].
 "Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
 Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
 namespace "
 self assert: (Smalltalk at: #'MockClass') notNil.
 self assert: (Smalltalk at: #'MockClass') name ==  #'MockClass'.
 self assert: (Smalltalk at: #'Mocks::MockClass') isNil
 | changefile |
 changefile :='
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 ' readStream.
 Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
-changefile readStream fileIn.
+	changefile readStream fileIn.
 ].
 "Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
 Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
 namespace "
 cs := ChangeSet fromStream:'
 "{ NameSpace: Mocks2 }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 ' readStream.
 Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
-cs apply.
+	cs apply.
 ].
 "Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
 Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
 namespace "
 self assert: (Smalltalk at: #'Mocks2::MockClass') notNil.
 self assert: (Smalltalk at: #'Mocks2::MockClass') name ==  #'Mocks2::MockClass'.
 self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
 changefile :='
 "{ NameSpace: Mocks2 }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 ' readStream.
 Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
-changefile readStream fileIn.
+	changefile readStream fileIn.
 ].
 "Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
 Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
 namespace "
 cs := ChangeSet fromStream:'
 "{ NameSpace: Mocks }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 ' readStream.
 Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
-cs apply.
+	cs apply.
 ].
 self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
 self assert: (Smalltalk at: #'Mocks::MockClass') name ==  #'Mocks::MockClass'.
 "Created: / 20-11-2012 / 15:16:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 changefile :='
 "{ NameSpace: Mocks }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 ' readStream.
 Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
-changefile readStream fileIn.
+	changefile readStream fileIn.
 ].
 self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
 self assert: (Smalltalk at: #'Mocks::MockClass') name ==  #'Mocks::MockClass'.
 "Created: / 20-11-2012 / 15:16:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 | cs |
 cs := ChangeSet fromStream:'
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 ' readStream.
 cs first nameSpaceOverride: (NameSpace name: #Mocks).
 cs apply.
 cs := ChangeSet fromStream:'
 "{ NameSpace: Mocks2 }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 ' readStream.
 cs first nameSpaceOverride: (NameSpace name: #Mocks).
 cs apply.
 | cs |
 cs := ChangeSet fromStream:'
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 Object subclass:#PrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:MockClass
+	privateIn:MockClass
 ' readStream.
 Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
-cs apply.
+	cs apply.
 ].
 "Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
 Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
 namespace "
 self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
 self assert: (Smalltalk at: #'MockClass::PrivateClass') name ==  #'MockClass::PrivateClass'.
 self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isNil.
 | changefile |
 changefile :='
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 Object subclass:#PrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:MockClass
+	privateIn:MockClass
 ' readStream.
 Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
-changefile readStream fileIn.
+	changefile readStream fileIn.
 ].
 "Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
 Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
 namespace "
 cs := ChangeSet fromStream:'
 "{ NameSpace: Mocks2 }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 Object subclass:#PrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:MockClass
+	privateIn:MockClass
 ' readStream.
 Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
-cs apply.
+	cs apply.
 ].
 "Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
 Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
 namespace "
 self assert: (Smalltalk at: #'Mocks2::MockClass::PrivateClass') notNil.
 self assert: (Smalltalk at: #'Mocks2::MockClass::PrivateClass') name ==  #'Mocks2::MockClass::PrivateClass'.
 self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isNil.
 changefile :='
 "{ NameSpace: Mocks2 }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 Object subclass:#PrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:MockClass
+	privateIn:MockClass
 ' readStream.
 Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
-changefile readStream fileIn.
+	changefile readStream fileIn.
 ].
 "Responding to a nameSpaceQuerySignal should no longer affect change's namespace.
 Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
 namespace "
 cs := ChangeSet fromStream:'
 "{ NameSpace: Mocks }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 Object subclass:#PrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:MockClass
+	privateIn:MockClass
 ' readStream.
 Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
-cs apply.
+	cs apply.
 ].
 self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
 self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name ==  #'Mocks::MockClass::PrivateClass'.
 "Created: / 20-11-2012 / 15:33:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 changefile :='
 "{ NameSpace: Mocks }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 Object subclass:#PrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:MockClass
+	privateIn:MockClass
 ' readStream.
 Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
-changefile readStream fileIn.
+	changefile readStream fileIn.
 ].
 self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
 self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name ==  #'Mocks::MockClass::PrivateClass'.
 "Created: / 20-11-2012 / 15:33:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 | cs |
 cs := ChangeSet fromStream:'
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 Object subclass:#PrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:MockClass
+	privateIn:MockClass
 ' readStream.
 cs first nameSpaceOverride: (NameSpace name: #Mocks).
 cs := ChangeSet fromStream:'
 "{ NameSpace: Mocks2 }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 Object subclass:#PrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:MockClass
+	privateIn:MockClass
 ' readStream.
 cs first  nameSpaceOverride: (NameSpace name: #Mocks).
 "Test nil superclass"
 cs := ChangeSet fromStream:'
 nil subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 ' readStream.
 cs apply.
 self assert: (Smalltalk at: #MockClass) superclass isNil
 "Test nil superclass"
 changefile :='
 nil subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 ' readStream.
 changefile readStream fileIn.
 self assert: (Smalltalk at: #MockClass) superclass isNil
 "Test nil superclass"
 cs := ChangeSet fromStream:'
 Object subclass:#ExistingPrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:RegressionTests::ChangeSetTests
+	privateIn:RegressionTests::ChangeSetTests
 ' readStream.
 self assert: cs size == 1.
 self assert: cs anElement isClassDefinitionChange.
 cs := ChangeSet fromStream:'
 "{ NameSpace: RegressionTests }"
 Object subclass:#ExistingPrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:ChangeSetTests
+	privateIn:ChangeSetTests
 ' readStream.
 self assert: cs size == 1.
 self assert: cs anElement isClassDefinitionChange.
 cs := ChangeSet fromStream:'
 "{ NameSpace: RegressionTests }"
 ClassAndMethodCompilingTestCase subclass:#ChangeSetTests
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-System-Changes''
+	category:''tests-Regression-System-Changes''
 ' readStream.
 self assert: cs size == 1.
 self assert: cs anElement isClassDefinitionChange.
 cs := ChangeSet fromStream:'
 "{ NameSpace: RegressionTests }"
 TestCase subclass:#ChangeSetTests
-instanceVariableNames:''classes someMoreData''
+	instanceVariableNames:''classes someMoreData''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-System-Changes''
+	category:''tests-Regression-System-Changes''
 ' readStream.
 self assert: cs size == 1.
 self assert: cs anElement isClassDefinitionChange.
 cs := ChangeSet fromStream:'
 "{ NameSpace: RegressionTests }"
 Object subclass:#ExistingPrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:ChangeSetTests
+	privateIn:ChangeSetTests
 ' readStream.
 self assert: cs size == 1.
 self assert: cs anElement isClassDefinitionChange.
 cs := ChangeSet fromStream:'
 "{ NameSpace: RegressionTests }"
 Object subclass:#ExistingPrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''somePool''
+	poolDictionaries:''somePool''
-privateIn:ChangeSetTests
+	privateIn:ChangeSetTests
 ' readStream.
 self assert: cs size == 1.
 self assert: cs anElement isClassDefinitionChange.
 cs := ChangeSet fromStream:'
 "{ NameSpace: RegressionTests }"
 TestCase subclass:#ChangeSetTests2
-instanceVariableNames:''classes someMoreData''
+	instanceVariableNames:''classes someMoreData''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-System-Changes''
+	category:''tests-Regression-System-Changes''
 ' readStream.
 self assert: cs size == 1.
 self assert: cs anElement isClassDefinitionChange.
 cs := ChangeSet fromStream:'
 "{ NameSpace: RegressionTests }"
 Object subclass:#ExistingPrivateClass2
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:ChangeSetTests
+	privateIn:ChangeSetTests
 ' readStream.
 self assert: cs size == 1.
 self assert: cs anElement isClassDefinitionChange.
 test_ClassInitializeChange_01
 | cs |
 Object subclass:#MockClass
-instanceVariableNames:''
+	instanceVariableNames:''
-classVariableNames:'MockVar'
+	classVariableNames:'MockVar'
-poolDictionaries:''
+	poolDictionaries:''
-category:'tests-Regression-Mocks'.
+	category:'tests-Regression-Mocks'.
 (Smalltalk at: #MockClass) class
-compile: 'initialize MockVar := 1234';
+	compile: 'initialize MockVar := 1234';
-compile: 'mockVar ^MockVar'.
+	compile: 'mockVar ^MockVar'.
 cs := ChangeSet fromStream:'
 MockClass initialize!!
 ' readStream.
 test_ClassInitializeChange_02
 | cs |
 Object subclass:#MockClass
-instanceVariableNames:''
+	instanceVariableNames:''
-classVariableNames:'MockVar'
+	classVariableNames:'MockVar'
-poolDictionaries:''
+	poolDictionaries:''
-category:'tests-Regression-Mocks'.
+	category:'tests-Regression-Mocks'.
 Object subclass:#PrivateClass
-instanceVariableNames:''
+	instanceVariableNames:''
-classVariableNames:'MockVar'
+	classVariableNames:'MockVar'
-poolDictionaries:''
+	poolDictionaries:''
-privateIn:(Smalltalk at: #'MockClass').
+	privateIn:(Smalltalk at: #'MockClass').
 (Smalltalk at: #'MockClass::PrivateClass') class
-compile: 'initialize MockVar := 1234';
+	compile: 'initialize MockVar := 1234';
-compile: 'mockVar ^MockVar'.
+	compile: 'mockVar ^MockVar'.
 cs := ChangeSet fromStream:'
 MockClass::PrivateClass initialize!!
 ' readStream.
 test_ClassInitializeChange_03a
 | cs |
 Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
-Object subclass:#MockClass
+	Object subclass:#MockClass
-instanceVariableNames:''
+	    instanceVariableNames:''
-classVariableNames:'MockVar'
+	    classVariableNames:'MockVar'
-poolDictionaries:''
+	    poolDictionaries:''
-category:'tests-Regression-Mocks'.
+	    category:'tests-Regression-Mocks'.
 ].
 (Smalltalk at: #'Mocks::MockClass') class
-compile: 'initialize MockVar := 1234';
+	compile: 'initialize MockVar := 1234';
-compile: 'mockVar ^MockVar'.
+	compile: 'mockVar ^MockVar'.
 cs := ChangeSet fromStream:'
 "{ NameSpace: Mocks }"
 test_ClassInitializeChange_03b
 | cs|
 Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
-Object subclass:#MockClass
+	Object subclass:#MockClass
-instanceVariableNames:''
+	    instanceVariableNames:''
-classVariableNames:'MockVar'
+	    classVariableNames:'MockVar'
-poolDictionaries:''
+	    poolDictionaries:''
-category:'tests-Regression-Mocks'.
+	    category:'tests-Regression-Mocks'.
 ].
 (Smalltalk at: #'Mocks::MockClass') class
-compile: 'initialize MockVar := 1234';
+	compile: 'initialize MockVar := 1234';
-compile: 'mockVar ^MockVar'.
+	compile: 'mockVar ^MockVar'.
 cs := ChangeSet fromStream:'
 "{ NameSpace: Mocks }"
 !!
 !!MockClass methodsFor:''methods''!!
 foo
 !! !!
 MockClass initialize!!
 | cs |
 Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
 Object subclass:#MockClass
-instanceVariableNames:''
+	instanceVariableNames:''
-classVariableNames:'MockVar'
+	classVariableNames:'MockVar'
-poolDictionaries:''
+	poolDictionaries:''
-category:'tests-Regression-Mocks'.
+	category:'tests-Regression-Mocks'.
 Object subclass:#PrivateClass
-instanceVariableNames:''
+	instanceVariableNames:''
-classVariableNames:'MockVar'
+	classVariableNames:'MockVar'
-poolDictionaries:''
+	poolDictionaries:''
-privateIn:(Smalltalk at: #'Mocks::MockClass').
+	privateIn:(Smalltalk at: #'Mocks::MockClass').
 ].
 (Smalltalk at: #'Mocks::MockClass::PrivateClass') class
-compile: 'initialize MockVar := 1234';
+	compile: 'initialize MockVar := 1234';
-compile: 'mockVar ^MockVar'.
+	compile: 'mockVar ^MockVar'.
 cs := ChangeSet fromStream:'
 "{ NameSpace: Mocks }"
 test_ClassInitializeChange_04b
 | cs |
 Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
-Object subclass:#MockClass
+	Object subclass:#MockClass
-instanceVariableNames:''
+	    instanceVariableNames:''
-classVariableNames:'MockVar'
+	    classVariableNames:'MockVar'
-poolDictionaries:''
+	    poolDictionaries:''
-category:'tests-Regression-Mocks'.
+	    category:'tests-Regression-Mocks'.
-Object subclass:#PrivateClass
+	Object subclass:#PrivateClass
-instanceVariableNames:''
+	    instanceVariableNames:''
-classVariableNames:'MockVar'
+	    classVariableNames:'MockVar'
-poolDictionaries:''
+	    poolDictionaries:''
-privateIn:(Smalltalk at: #'Mocks::MockClass').
+	    privateIn:(Smalltalk at: #'Mocks::MockClass').
 ].
 (Smalltalk at: #'Mocks::MockClass::PrivateClass') class
-compile: 'initialize MockVar := 1234';
+	compile: 'initialize MockVar := 1234';
-compile: 'mockVar ^MockVar'.
+	compile: 'mockVar ^MockVar'.
 cs := ChangeSet fromStream:'
 "{ NameSpace: Mocks }"
 !!
 !!MockClass methodsFor:''methods''!!
 foo
 !! !!
 MockClass::PrivateClass initialize!!
 | cs |
 cs := ChangeSet fromStream:'
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 !!MockClass methodsFor:''methods''!!
 foo
 | changefile |
 changefile :='
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 !!MockClass methodsFor:''methods''!!
 foo
 cs := ChangeSet fromStream:'
 "{ NameSpace: Mocks }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 !!MockClass methodsFor:''methods''!!
 foo
 changefile :='
 "{ NameSpace: Mocks }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 !!MockClass methodsFor:''methods''!!
 foo
 test_MethodDefinitionChange_02a
 "Tests whether all method changes have package properly set when reading
 extension container"
 | cs |
 cs := ChangeSet fromStream:'"{ Package: ''stx:libtool'' }"!!
 !!AbstractSyntaxHighlighter class methodsFor:''api highlighting''!!
 | cs |
 cs := ChangeSet fromStream:'
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 Object subclass:#PrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:MockClass
+	privateIn:MockClass
 !!
 !!MockClass::PrivateClass methodsFor:''methods''!!
 foo
 | changefile |
 changefile :='
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 Object subclass:#PrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:MockClass
+	privateIn:MockClass
 !!
 !!MockClass::PrivateClass methodsFor:''methods''!!
 foo
 cs := ChangeSet fromStream:'
 "{ NameSpace: Mocks }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 Object subclass:#PrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:MockClass
+	privateIn:MockClass
 !!
 !!MockClass::PrivateClass methodsFor:''methods''!!
 foo
 changefile :='
 "{ NameSpace: Mocks }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 Object subclass:#PrivateClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-privateIn:MockClass
+	privateIn:MockClass
 !!
 !!MockClass::PrivateClass methodsFor:''methods''!!
 foo
 self assert: (Smalltalk at: #'MockClass') isNil.
 self assert: (Smalltalk at: #'MockClass::PrivateClass') isNil.
 Object subclass:#MockClass
-instanceVariableNames:''
+	instanceVariableNames:''
-classVariableNames:''
+	classVariableNames:''
-poolDictionaries:''
+	poolDictionaries:''
-category:'tests-Regression-System-Changes'.
+	category:'tests-Regression-System-Changes'.
 Object subclass: #PrivateClass
-instanceVariableNames: ''
+	instanceVariableNames: ''
-classVariableNames: ''
+	classVariableNames: ''
-poolDictionaries: ''
+	poolDictionaries: ''
-privateIn: (Smalltalk at: #'MockClass').
+	privateIn: (Smalltalk at: #'MockClass').
 changefile :='
 !!MockClass::PrivateClass methodsFor:''methods''!!
 foo
 !! !!
 ' readStream.
 changefile readStream fileIn.
 self assert: (Smalltalk at: #'MockClass') notNil.
 self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
 self assert: ((Smalltalk at: #'MockClass::PrivateClass') methodDictionary includesKey:#foo)
 self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isNil.
 Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
 Object subclass:#MockClass
-instanceVariableNames:''
+	instanceVariableNames:''
-classVariableNames:''
+	classVariableNames:''
-poolDictionaries:''
+	poolDictionaries:''
-category:'tests-Regression-System-Changes'.
+	category:'tests-Regression-System-Changes'.
 Object subclass: #PrivateClass
-instanceVariableNames: ''
+	instanceVariableNames: ''
-classVariableNames: ''
+	classVariableNames: ''
-poolDictionaries: ''
+	poolDictionaries: ''
-privateIn: (Smalltalk at: #'Mocks::MockClass').
+	privateIn: (Smalltalk at: #'Mocks::MockClass').
 ].
 changefile :='
 "{ NameSpace: Mocks }"
 !!
 !!MockClass::PrivateClass methodsFor:''methods''!!
 foo
 !! !!
 ' readStream.
 changefile readStream fileIn.
 self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
 self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
 self assert: ((Smalltalk at: #'Mocks::MockClass::PrivateClass') methodDictionary includesKey:#foo)
 !!
 !!MockClass2::PrivateClass methodsFor:''methods''!!
 bar
 !! !!
 ' readStream.
 self assert: cs size == 2.
 self assert: cs first className = 'MockClass::PrivateClass'.
 self assert: (Smalltalk at: #'MockClass') isNil.
 self assert: (Smalltalk at: #'MockClass::PrivateClass') isNil.
 Object subclass:#MockClass
-instanceVariableNames:''
+	instanceVariableNames:''
-classVariableNames:''
+	classVariableNames:''
-poolDictionaries:''
+	poolDictionaries:''
-category:'tests-Regression-System-Changes'.
+	category:'tests-Regression-System-Changes'.
 Object subclass: #PrivateClass
-instanceVariableNames: ''
+	instanceVariableNames: ''
-classVariableNames: ''
+	classVariableNames: ''
-poolDictionaries: ''
+	poolDictionaries: ''
-privateIn: (Smalltalk at: #'MockClass').
+	privateIn: (Smalltalk at: #'MockClass').
 Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
 Object subclass:#MockClass2
-instanceVariableNames:''
+	instanceVariableNames:''
-classVariableNames:''
+	classVariableNames:''
-poolDictionaries:''
+	poolDictionaries:''
-category:'tests-Regression-System-Changes'.
+	category:'tests-Regression-System-Changes'.
 Object subclass: #PrivateClass
-instanceVariableNames: ''
+	instanceVariableNames: ''
-classVariableNames: ''
+	classVariableNames: ''
-poolDictionaries: ''
+	poolDictionaries: ''
-privateIn: (Smalltalk at: #'Mocks::MockClass2').
+	privateIn: (Smalltalk at: #'Mocks::MockClass2').
 ].
 changefile :='
 !!MockClass::PrivateClass methodsFor:''methods''!!
 foo
 !!
 !!MockClass2::PrivateClass methodsFor:''methods''!!
 bar
 !! !!
 ' readStream.
 self assert: cs size == 2.
 self assert: cs first className = 'MockClass::PrivateClass'.
 | changefile |
 Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks2') do:[
 Object subclass:#MockClass
-instanceVariableNames:''
+	instanceVariableNames:''
-classVariableNames:''
+	classVariableNames:''
-poolDictionaries:''
+	poolDictionaries:''
-category:'tests-Regression-System-Changes'.
+	category:'tests-Regression-System-Changes'.
 Object subclass: #PrivateClass
-instanceVariableNames: ''
+	instanceVariableNames: ''
-classVariableNames: ''
+	classVariableNames: ''
-poolDictionaries: ''
+	poolDictionaries: ''
-privateIn: (Smalltalk at: #'Mocks2::MockClass').
+	privateIn: (Smalltalk at: #'Mocks2::MockClass').
 ].
 Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
 Object subclass:#MockClass2
-instanceVariableNames:''
+	instanceVariableNames:''
-classVariableNames:''
+	classVariableNames:''
-poolDictionaries:''
+	poolDictionaries:''
-category:'tests-Regression-System-Changes'.
+	category:'tests-Regression-System-Changes'.
 Object subclass: #PrivateClass
-instanceVariableNames: ''
+	instanceVariableNames: ''
-classVariableNames: ''
+	classVariableNames: ''
-poolDictionaries: ''
+	poolDictionaries: ''
-privateIn: (Smalltalk at: #'Mocks::MockClass2').
+	privateIn: (Smalltalk at: #'Mocks::MockClass2').
 ].
 changefile :='
 "{ NameSpace: Mocks2 }"
 !!
 !!MockClass2::PrivateClass methodsFor:''methods''!!
 bar
 !! !!
 ' readStream.
 self assert: cs size == 2.
 self assert: cs first className = 'MockClass::PrivateClass'.
 | changefile |
 Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks2') do:[
 Object subclass:#MockClass
-instanceVariableNames:''
+	instanceVariableNames:''
-classVariableNames:''
+	classVariableNames:''
-poolDictionaries:''
+	poolDictionaries:''
-category:'tests-Regression-System-Changes'.
+	category:'tests-Regression-System-Changes'.
 Object subclass: #PrivateClass
-instanceVariableNames: ''
+	instanceVariableNames: ''
-classVariableNames: ''
+	classVariableNames: ''
-poolDictionaries: ''
+	poolDictionaries: ''
-privateIn: (Smalltalk at: #'Mocks2::MockClass').
+	privateIn: (Smalltalk at: #'Mocks2::MockClass').
 ].
 Object subclass:#MockClass2
-instanceVariableNames:''
+	instanceVariableNames:''
-classVariableNames:''
+	classVariableNames:''
-poolDictionaries:''
+	poolDictionaries:''
-category:'tests-Regression-System-Changes'.
+	category:'tests-Regression-System-Changes'.
 Object subclass: #PrivateClass
-instanceVariableNames: ''
+	instanceVariableNames: ''
-classVariableNames: ''
+	classVariableNames: ''
-poolDictionaries: ''
+	poolDictionaries: ''
-privateIn: (Smalltalk at: #'MockClass2').
+	privateIn: (Smalltalk at: #'MockClass2').
 changefile :='
 "{ NameSpace: Mocks2 }"
 !!
 cs := ChangeSet fromStream:'
 "{ Package: ''mocks:ChangeSetTests'' }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 !!MockClass methodsFor:''methods''!!
 foo
 changefile :='
 "{ Package: ''mocks:ChangeSetTests'' }"
 Object subclass:#MockClass
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-Mocks''
+	category:''tests-Regression-Mocks''
 !!
 !!MockClass methodsFor:''methods''!!
 foo
 self assert: (Smalltalk at: #'MockClass') isNil.
 self assert: (Smalltalk at: #'MockClass::PrivateClass') isNil.
 Object subclass:#MockClass
-instanceVariableNames:''
+	instanceVariableNames:''
-classVariableNames:''
+	classVariableNames:''
-poolDictionaries:''
+	poolDictionaries:''
-category:'tests-Regression-System-Changes'.
+	category:'tests-Regression-System-Changes'.
 Object subclass: #PrivateClass
-instanceVariableNames: ''
+	instanceVariableNames: ''
-classVariableNames: ''
+	classVariableNames: ''
-poolDictionaries: ''
+	poolDictionaries: ''
-privateIn: (Smalltalk at: #'MockClass').
+	privateIn: (Smalltalk at: #'MockClass').
 changefile :='
 "{ Package: ''mocks:ChangeSetTests'' }"
 foo
 !! !!
 ' readStream.
 changefile readStream fileIn.
 self assert: (Smalltalk at: #'MockClass') notNil.
 self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
 self assert: ((Smalltalk at: #'MockClass::PrivateClass') methodDictionary includesKey:#foo).
 self assert: ((Smalltalk at: #'MockClass::PrivateClass') methodDictionary at: #foo) package = 'mocks:ChangeSetTests'.
 !
 test_MethodDefinitionChange_jextension_01a
 "Tests Java extensios - used by stx:libjava (see stx/libjava/java/extensions/**/*.st"
 | cs |
 cs := ChangeSet fromStream:'
 !!(Java classForName:''java.lang.Long'') class methodsFor:''queries''!!
 javaWrap: object
-|inst|
+	|inst|
 inst := self basicNew.
 inst perform: #''<init>(J)V'' with: object with: nil.
-^ inst.
+	^ inst.
 !! !!
 ' readStream.
 self assert: cs size == 1.
 !
 test_MethodDefinitionChange_jextension_01b
 "Tests Java extensios - used by stx:libjava (see stx/libjava/java/extensions/**/*.st"
 | cs |
 cs := ChangeSet fromStream:'
 !!(Java classForName:''java.lang.Long'') methodsFor:''queries''!!
 javaWrap: object
-|inst|
+	|inst|
 inst := self basicNew.
 inst perform: #''<init>(J)V'' with: object with: nil.
-^ inst.
+	^ inst.
 !! !!
 ' readStream.
 self assert: cs size == 1.
 cs := ChangeSet fromStream:'"{ Encoding: utf8 }" !!
 ''---- timestamp jv@sao 05-10-2013 01:57:54 ----''!!
 "{ Package: ''some:funny/package'' }"
 Object subclass:#Mock1
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''* Mocks *''
+	category:''* Mocks *''
 !!
 !!Object methodsFor:''* mocks * ''!!
 someMethod
 ^ 1
 !! !!
 ' readStream.
 self assert: cs size == 3.
 self assert: cs second package = 'some:funny/package'.
 self assert: cs third package isNil.
 cs := ChangeSet fromStream:'"{ Encoding: utf8 }" !!
 ''---- timestamp jv@sao 05-10-2013 01:57:54 ----''!!
 "{ Package: ''some:funny/package'' }"
 !!
 Object subclass:#Mock1
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''* Mocks *''
+	category:''* Mocks *''
 !!
 !!Object methodsFor:''* mocks * ''!!
 someMethod
 ^ 1
 !! !!
 ' readStream.
 self assert: cs size == 3.
 self assert: cs second package = 'some:funny/package'.
 self assert: cs third package = 'some:funny/package'.
 | cs |
 cs := ChangeSet fromStream:'""{ Encoding: utf8 }"
 ''From Smalltalk/X, Version:6.2.4.0 on 05-08-2014 at 10:57:51''                   !!
-"{ Package: ''exept:regression'' }"
+"{ Package: ''stx:goodies/regression'' }"
 "{ NameSpace: RegressionTests }"
 ClassAndMethodCompilingTestCase subclass:#ChangeSetTests
-instanceVariableNames:''''
+	instanceVariableNames:''''
-classVariableNames:''''
+	classVariableNames:''''
-poolDictionaries:''''
+	poolDictionaries:''''
-category:''tests-Regression-System-Changes''
+	category:''tests-Regression-System-Changes''
 !!
 !!ChangeSetTests methodsFor:''private''!!
 performTest
 ^Class withoutUpdatingChangesDo:[
-super performTest
+	super performTest
 ]
 !! !!' readStream.
 self assert: cs size == 2.
-self assert: cs first  package = 'exept:regression'.
+self assert: cs first  package = 'stx:goodies/regression'.
-self assert: cs second package = 'exept:regression'.
+self assert: cs second package = 'stx:goodies/regression'.
 "Created: / 05-08-2014 / 10:59:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 test_misc_package_03a
 "skip count bytes/characters, return the receiver.
 Re-redefined since PositionableStream redefined it."
 "don't know how to unread ..."
 numberToSkip < 0 ifTrue:[
-PositionError raiseRequest.
+	PositionError raiseRequest.
-^ self
+	^ self
 ].
 numberToSkip timesRepeat:[self next].
 "Modified: / 30.7.1999 / 12:42:12 / cg"
 ! !

changeset 1447	2351db93aa5b
parent 1432	994715ad03bc
child 1500	d406a10b2965