"{ Encoding: utf8 }"

"{ Package: 'exept:regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#ChangeSetTests

	instanceVariableNames:'classes'

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression-System-Changes'

!

Object subclass:#ExistingPrivateClass

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:ChangeSetTests

!

ReadWriteStream subclass:#NonPositionableReadWriteStream

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:ChangeSetTests

!

!ChangeSetTests methodsFor:'change & update'!

update: aspect with: param from: sender

    aspect == #newClass ifTrue:[

        classes add: param.

    ].

    "Created: / 20-11-2012 / 14:47:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeSetTests methodsFor:'private'!

performTest

    ^Class withoutUpdatingChangesDo:[

        super performTest

    ]

    "Created: / 20-11-2012 / 15:08:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeSetTests methodsFor:'running'!

setUp

    Smalltalk addDependent: self.

    classes := Set new.

    "Created: / 20-11-2012 / 14:46:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

tearDown

    | ns |

    Smalltalk removeDependent: self.

    classes do:[:each|

        (each fullName startsWith: 'Mock') ifTrue:[

            Smalltalk removeClass: each

        ].

    ].

    #(Mocks Mocks2 Mocks3) do:[:nsName|

        (ns := Smalltalk at:nsName) notNil ifTrue:[

            Smalltalk removeClass: ns

        ].

    ].

    "Created: / 20-11-2012 / 14:46:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 06-03-2014 / 10:57:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeSetTests methodsFor:'tests - ChangeSet'!

test_saveToStream_format_nil_01

    | cs output chunks |

    cs := ChangeSet forExistingClass: ChangeSetTests.

    cs := cs select:[:each | each isMethodChange and:[ each selector = #setUp ]].

    output := (String streamContents:[ :s | cs saveToStream: s  format: nil ]) readStream.

    chunks := OrderedCollection streamContents:[ :s |

        [ output atEnd ] whileFalse:[ 

            s nextPut: output nextChunk.

        ].

    ].

    self assert: chunks size == 6.

    self assert: (chunks at: 1) = ('"{ NameSpace: RegressionTests }"', Character cr, Character cr).

    self assert: (chunks at: 2) = ''.

    self assert: (chunks at: 3) = 'ChangeSetTests methodsFor: ''running'''.

    self assert: (chunks at: 4) = (self class compiledMethodAt: #setUp) source.

    self assert: (chunks at: 5) = ''.

    self assert: (chunks at: 6) = ''.

    "Created: / 04-02-2014 / 11:51:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 06-03-2014 / 12:46:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_saveToStream_format_nil_02

    | cs output chunks |

    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:[ 

            s nextPut: output nextChunk.

        ].

    ].

    self assert: chunks size == 6.

    self assert: (chunks at: 1) = ('"{ NameSpace: RegressionTests }"', Character cr, Character cr).

    self assert: (chunks at: 2) = ''.

    self assert: (chunks at: 3) = 'ChangeSetTests::ExistingPrivateClass methodsFor: ''methods'''.

    self assert: (chunks at: 4) = (ChangeSetTests::ExistingPrivateClass compiledMethodAt: #foo) source.

    self assert: (chunks at: 5) = ''.

    self assert: (chunks at: 6) = ''.

    "Created: / 04-02-2014 / 12:08:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 06-03-2014 / 12:45:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeSetTests methodsFor:'tests - ChangeSet::ClassSourceWriter'!

test_ClassSourceWriter_01

    | sourceFileout cs sourceChangeset|

    sourceFileout := String streamContents:[:s|

        AbstractSourceCodeManager fileOutSourceCodeOf:ChangeSet on:s

    ].

    cs := ChangeSet fromStream: sourceFileout readStream.

    sourceChangeset := String streamContents:[:s|

        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].

    '/tmp/sourceChangeset.st' asFilename writingFileDo:[:s|s binary; nextPutAll:  sourceChangeset asByteArray].

    "

    "Created: / 30-04-2013 / 11:28:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (comment): / 01-05-2013 / 08:55:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_ClassSourceWriter_02

    | sourceFileout cs sourceChangeset|

    sourceFileout := String streamContents:[:s|

        AbstractSourceCodeManager fileOutSourceCodeOf:Tools::HierarchicalPackageFilterList on:s

    ].

    cs := ChangeSet fromStream: sourceFileout readStream.

    sourceChangeset := String streamContents:[:s|

        cs saveToStream:s format:#classSource

    ].

    self assert: sourceFileout asByteArray = sourceChangeset asByteArray.

    "

    Tools::TextDiff2Tool openOn: sourceFileout label: 'sourceFileout' and: sourceChangeset label: 'sourceChangeset'

    "

    "Created: / 30-04-2013 / 11:35:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeSetTests methodsFor:'tests - ClassDefinitionChange'!

test_ClassDefinitionChange_01

    | cs |

    cs := ChangeSet fromStream:'

Object subclass:#MockClass

        instanceVariableNames:''''

        classVariableNames:''''

        poolDictionaries:''''

        category:''tests-Regression-Mocks''

' readStream.

    self assert: cs size == 1.

    self assert: cs first className = 'MockClass'.

    self assert: (Smalltalk at: #MockClass) isNil.

    cs apply.

    self assert: (Smalltalk at: #MockClass) notNil.

    "Created: / 20-11-2012 / 14:23:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_ClassDefinitionChange_01_fileIn

    | changefile |

    changefile :='

Object subclass:#MockClass

        instanceVariableNames:''''

        classVariableNames:''''

        poolDictionaries:''''

        category:''tests-Regression-Mocks''

' readStream.

    self assert: (Smalltalk at: #MockClass) isNil.

    changefile readStream fileIn.

    self assert: (Smalltalk at: #MockClass) notNil.

    "Created: / 20-11-2012 / 14:23:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_ClassDefinitionChange_02

    | cs |

    cs := ChangeSet fromStream:'

"{ NameSpace: Mocks }"

Object subclass:#MockClass

        instanceVariableNames:''''

        classVariableNames:''''

        poolDictionaries:''''

        category:''tests-Regression-Mocks''

' readStream.

    self assert: cs size == 1.

    self assert: cs first className = 'MockClass'.

    self assert: cs first fullClassName = 'Mocks::MockClass'.

    self assert: cs first nameSpaceName = 'Mocks'.

    self assert: (Smalltalk at: #'Mocks::MockClass') isNil.

    cs apply.

    self assert: (Smalltalk at: #'Mocks::MockClass') notNil.

    "Created: / 20-11-2012 / 14:50:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_ClassDefinitionChange_02_fileIn

    | changefile |

    changefile :='

"{ NameSpace: Mocks }"

Object subclass:#MockClass

        instanceVariableNames:''''

        classVariableNames:''''

        poolDictionaries:''''

        category:''tests-Regression-Mocks''

' readStream.

    self assert: (Smalltalk at: #'Mocks::MockClass') isNil.

    changefile readStream fileIn.

    self assert: (Smalltalk at: #'Mocks::MockClass') notNil.

    "Created: / 20-11-2012 / 14:50:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_ClassDefinitionChange_03a

    | cs |

    cs := ChangeSet fromStream:'

Object subclass:#MockClass

        instanceVariableNames:''''

        classVariableNames:''''

        poolDictionaries:''''

        category:''tests-Regression-Mocks''

!!

Object subclass:#PrivateClass

        instanceVariableNames:''''

        classVariableNames:''''

        poolDictionaries:''''

        privateIn:MockClass

' readStream.

    self assert: cs size == 2.

    self assert: cs first  className = 'MockClass'.

    self assert: cs first fullClassName = 'MockClass'.

    self assert: cs second className = 'MockClass::PrivateClass'.

    self assert: cs second fullClassName = 'MockClass::PrivateClass'.

    self assert: (Smalltalk at: #'MockClass') isNil.

    cs apply.

    self assert: (Smalltalk at: #'MockClass') notNil.

    self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.

    self assert: (Smalltalk at: #'MockClass::PrivateClass') name == #'MockClass::PrivateClass'.

    self assert: (Smalltalk at: #'MockClass::PrivateClass') isPrivate

    "Created: / 20-11-2012 / 14:54:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 09-05-2013 / 14:41:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_ClassDefinitionChange_03a_fileIn

    | changefile |

    changefile :='

Object subclass:#MockClass

        instanceVariableNames:''''

        classVariableNames:''''

        poolDictionaries:''''

        category:''tests-Regression-Mocks''

!!

Object subclass:#PrivateClass

        instanceVariableNames:''''

        classVariableNames:''''

        poolDictionaries:''''

        privateIn:MockClass

' readStream.

    self assert: (Smalltalk at: #'MockClass') isNil.

    changefile readStream fileIn.

    self assert: (Smalltalk at: #'MockClass') notNil.

    self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.

    self assert: (Smalltalk at: #'MockClass::PrivateClass') name == #'MockClass::PrivateClass'.

    self assert: (Smalltalk at: #'MockClass::PrivateClass') isPrivate

    "Created: / 20-11-2012 / 14:54:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 09-05-2013 / 14:41:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_ClassDefinitionChange_03b

    | cs |

    cs := ChangeSet fromStream:'

"{ NameSpace: Mocks }"

Object subclass:#MockClass

        instanceVariableNames:''''

        classVariableNames:''''

        poolDictionaries:''''

        category:''tests-Regression-Mocks''

!!

Object subclass:#PrivateClass

        instanceVariableNames:''''

        classVariableNames:''''

        poolDictionaries:''''

        privateIn:MockClass

' readStream.

    self assert: cs size == 2.

    self assert: cs first  className = 'MockClass'.

    self assert: cs first  fullClassName = 'Mocks::MockClass'.

    self assert: cs second className = 'MockClass::PrivateClass'.

    self assert: cs second fullClassName = 'Mocks::MockClass::PrivateClass'.

    self assert: cs second nameSpaceName = 'Mocks'.

    self assert: (Smalltalk at: #'Mocks::MockClass') isNil.

    cs apply.

    self assert: (Smalltalk at: #'Mocks::MockClass') notNil.

    self assert: (Smalltalk at: #'Mocks::MockClass') isPrivate not.

    self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.

    self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name == #'Mocks::MockClass::PrivateClass'.

    self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isPrivate

    "Created: / 20-11-2012 / 15:04:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_ClassDefinitionChange_03b_fileIn

    | changefile |

    changefile :='

"{ NameSpace: Mocks }"

Object subclass:#MockClass

        instanceVariableNames:''''

        classVariableNames:''''

        poolDictionaries:''''

        category:''tests-Regression-Mocks''

!!

Object subclass:#PrivateClass

        instanceVariableNames:''''

        classVariableNames:''''

        poolDictionaries:''''

        privateIn:MockClass

' readStream.

    self assert: (Smalltalk at: #'Mocks::MockClass') isNil.

    changefile readStream fileIn.

    self assert: (Smalltalk at: #'Mocks::MockClass') notNil.

    self assert: (Smalltalk at: #'Mocks::MockClass') isPrivate not.

    self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.

    self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') name == #'Mocks::MockClass::PrivateClass'.

    self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') isPrivate

    "Created: / 20-11-2012 / 15:04:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_ClassDefinitionChange_04a

    | cs |

    cs := ChangeSet fromStream:'

Object subclass:#MockClass

        instanceVariableNames:''''

        classVariableNames:''''

        poolDictionaries:''''

        category:''tests-Regression-Mocks''

' readStream.

    Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[

        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

    "Created: / 20-11-2012 / 15:08:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 04-02-2014 / 20:10:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_ClassDefinitionChange_04a_fileIn

    | changefile |

    changefile :='

Object subclass:#MockClass

        instanceVariableNames:''''

        classVariableNames:''''

        poolDictionaries:''''

        category:''tests-Regression-Mocks''

' readStream.

    Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[

        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 "

    self assert: (Smalltalk at: #'MockClass') notNil.

    self assert: (Smalltalk at: #'MockClass') name ==  #'MockClass'.

    self assert: (Smalltalk at: #'Mocks::MockClass') isNil

    "Created: / 20-11-2012 / 15:08:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 04-02-2014 / 20:10:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_ClassDefinitionChange_04b

    | cs |

    cs := ChangeSet fromStream:'

"{ NameSpace: Mocks2 }"

Object subclass:#MockClass

        instanceVariableNames:''''

        classVariableNames:''''

        poolDictionaries:''''

        category:''tests-Regression-Mocks''

' readStream.

    Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[

        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.

    "Created: / 20-11-2012 / 15:14:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 04-02-2014 / 20:09:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!