"{ 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
!
!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|
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>"
! !
!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_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_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_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_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.
].
self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
self assert: (Smalltalk at: #'Mocks::MockClass') name == #'Mocks::MockClass'.
"Created: / 20-11-2012 / 15:08:53 / 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.
].
self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
self assert: (Smalltalk at: #'Mocks::MockClass') name == #'Mocks::MockClass'.
"Created: / 20-11-2012 / 15:14:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_ClassDefinitionChange_04c
| cs |
cs := ChangeSet fromStream:'
"{ NameSpace: Mocks }"
Object subclass:#MockClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
category:''tests-Regression-Mocks''
' readStream.
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
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>"
!
test_ClassDefinitionChange_04d
| cs |
cs := ChangeSet fromStream:'
Object subclass:#MockClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
category:''tests-Regression-Mocks''
' readStream.
cs first nameSpaceOverride: (NameSpace name: #Mocks).
cs apply.
self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
self assert: (Smalltalk at: #'Mocks::MockClass') name == #'Mocks::MockClass'.
"Created: / 20-11-2012 / 15:21:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_ClassDefinitionChange_04e
| cs |
cs := ChangeSet fromStream:'
"{ NameSpace: Mocks2 }"
Object subclass:#MockClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
category:''tests-Regression-Mocks''
' readStream.
cs first nameSpaceOverride: (NameSpace name: #Mocks).
cs apply.
self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
self assert: (Smalltalk at: #'Mocks::MockClass') name == #'Mocks::MockClass'.
"Created: / 20-11-2012 / 15:22:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_ClassDefinitionChange_05a
| cs |
cs := ChangeSet fromStream:'
Object subclass:#MockClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
privateIn:MockClass
' readStream.
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
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:25:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_ClassDefinitionChange_05b
| cs |
cs := ChangeSet fromStream:'
"{ NameSpace: Mocks2 }"
Object subclass:#MockClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
privateIn:MockClass
' readStream.
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
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:26:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_ClassDefinitionChange_05c
| 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.
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
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>"
!
test_ClassDefinitionChange_05d
| cs |
cs := ChangeSet fromStream:'
Object subclass:#MockClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
privateIn:MockClass
' readStream.
cs first nameSpaceOverride: (NameSpace name: #Mocks).
cs second nameSpaceOverride: (NameSpace name: #Mocks).
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:26:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_ClassDefinitionChange_05e
| cs |
cs := ChangeSet fromStream:'
"{ NameSpace: Mocks2 }"
Object subclass:#MockClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
privateIn:MockClass
' readStream.
cs first nameSpaceOverride: (NameSpace name: #Mocks).
cs second nameSpaceOverride: (NameSpace name: #Mocks).
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:26:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_ClassDefinitionChange_06a
| cs |
"Test nil superclass"
cs := ChangeSet fromStream:'
nil subclass:#MockClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
category:''tests-Regression-Mocks''
' readStream.
cs apply.
self assert: (Smalltalk at: #MockClass) superclass isNil
"Created: / 10-06-2013 / 16:48:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_ClassDefinitionChange_07a
| cs |
"Test nil superclass"
cs := ChangeSet fromStream:'
Object subclass:#ExistingPrivateClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
privateIn:RegressionTests::ChangeSetTests
' readStream.
self assert: cs size == 1.
self assert: cs anElement isClassDefinitionChange.
self assert: cs anElement changeClass == ExistingPrivateClass.
"Created: / 12-11-2013 / 17:53:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_ClassDefinitionChange_07b
| cs |
"Test nil superclass"
cs := ChangeSet fromStream:'
"{ NameSpace: RegressionTests }"
Object subclass:#ExistingPrivateClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
privateIn:ChangeSetTests
' readStream.
self assert: cs size == 1.
self assert: cs anElement isClassDefinitionChange.
self assert: cs anElement changeClass == ExistingPrivateClass.
"Created: / 12-11-2013 / 17:54:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_ClassDefinitionChange_08a
| cs |
"Test nil superclass"
cs := ChangeSet fromStream:'
"{ NameSpace: RegressionTests }"
TestCase subclass:#ChangeSetTests
instanceVariableNames:''classes''
classVariableNames:''''
poolDictionaries:''''
category:''tests-Regression-System-Changes''
' readStream.
self assert: cs size == 1.
self assert: cs anElement isClassDefinitionChange.
self assert: cs anElement changeClass == ChangeSetTests.
self assert: cs anElement delta == #'='
"Created: / 13-11-2013 / 17:41:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_ClassDefinitionChange_08b
| cs |
"Test nil superclass"
cs := ChangeSet fromStream:'
"{ NameSpace: RegressionTests }"
TestCase subclass:#ChangeSetTests
instanceVariableNames:''classes someMoreData''
classVariableNames:''''
poolDictionaries:''''
category:''tests-Regression-System-Changes''
' readStream.
self assert: cs size == 1.
self assert: cs anElement isClassDefinitionChange.
self assert: cs anElement delta == #'~'
"Created: / 13-11-2013 / 17:43:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_ClassDefinitionChange_08c
| cs |
"Test nil superclass"
cs := ChangeSet fromStream:'
"{ NameSpace: RegressionTests }"
Object subclass:#ExistingPrivateClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
privateIn:ChangeSetTests
' readStream.
self assert: cs size == 1.
self assert: cs anElement isClassDefinitionChange.
self assert: cs anElement delta == #'='
"Created: / 13-11-2013 / 17:44:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_ClassDefinitionChange_08d
| cs |
"Test nil superclass"
cs := ChangeSet fromStream:'
"{ NameSpace: RegressionTests }"
Object subclass:#ExistingPrivateClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''somePool''
privateIn:ChangeSetTests
' readStream.
self assert: cs size == 1.
self assert: cs anElement isClassDefinitionChange.
self assert: cs anElement delta == #'~'
"Created: / 13-11-2013 / 17:44:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_ClassDefinitionChange_08e
| cs |
"Test nil superclass"
cs := ChangeSet fromStream:'
"{ NameSpace: RegressionTests }"
TestCase subclass:#ChangeSetTests2
instanceVariableNames:''classes someMoreData''
classVariableNames:''''
poolDictionaries:''''
category:''tests-Regression-System-Changes''
' readStream.
self assert: cs size == 1.
self assert: cs anElement isClassDefinitionChange.
self assert: cs anElement delta == #'+'
"Created: / 13-11-2013 / 17:44:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_ClassDefinitionChange_08f
| cs |
"Test nil superclass"
cs := ChangeSet fromStream:'
"{ NameSpace: RegressionTests }"
Object subclass:#ExistingPrivateClass2
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
privateIn:ChangeSetTests
' readStream.
self assert: cs size == 1.
self assert: cs anElement isClassDefinitionChange.
self assert: cs anElement delta == #'+'
"Created: / 13-11-2013 / 17:44:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!ChangeSetTests methodsFor:'tests - MethodDefinitionChange'!
test_MethodDefinitionChange_01
| cs |
cs := ChangeSet fromStream:'
Object subclass:#MockClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
category:''tests-Regression-Mocks''
!!
!!MockClass methodsFor:''methods''!!
foo
!! !!
' readStream.
self assert: cs size == 2.
self assert: cs second className = 'MockClass'.
self assert: cs second fullClassName = 'MockClass'.
self assert: (Smalltalk at: #MockClass) isNil.
cs apply.
self assert: (Smalltalk at: #MockClass) notNil.
self assert:((Smalltalk at: #MockClass) methodDictionary includesKey: #foo)
"Created: / 01-05-2013 / 09:40:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_MethodDefinitionChange_02
| cs |
cs := ChangeSet fromStream:'
"{ NameSpace: Mocks }"
Object subclass:#MockClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
category:''tests-Regression-Mocks''
!!
!!MockClass methodsFor:''methods''!!
foo
!! !!
' readStream.
self assert: cs size == 2.
self assert: cs second className = 'MockClass'.
self assert: cs second fullClassName = 'Mocks::MockClass'.
self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
cs apply.
self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
self assert:((Smalltalk at: #'Mocks::MockClass') methodDictionary includesKey: #foo)
"Created: / 01-05-2013 / 09:42:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
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''!!
formatExpression:aString in:aClass elementsInto:elementsCollection
^self formatExpression:aString in:aClass
!! !!
!!AbstractSyntax class methodsFor:''xxx highlighting''!!
xxx:aString in:aClass elementsInto:elementsCollection
^self formatExpression:aString in:aClass
!! !!
' readStream.
self assert: cs size = 2.
self assert: cs first package = 'stx:libtool'.
self assert: cs second package = 'stx:libtool'.
"Created: / 29-01-2013 / 19:05:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 30-01-2013 / 10:09:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_MethodDefinitionChange_03a
| cs |
cs := ChangeSet fromStream:'
Object subclass:#MockClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
instanceVariableNames:''''
classVariableNames:''''
poolDictionaries:''''
privateIn:MockClass
!!
!!MockClass::PrivateClass methodsFor:''methods''!!
foo
!! !!
' readStream.
self assert: cs size == 3.
self assert: cs third className = 'MockClass::PrivateClass'.
self assert: cs third fullClassName = 'MockClass::PrivateClass'.
self assert: (Smalltalk at: #'MockClass') isNil.
cs apply.
self assert:((Smalltalk at: #'MockClass::PrivateClass') methodDictionary includesKey: #foo)
"Created: / 01-05-2013 / 09:50:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 09-05-2013 / 15:18:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
test_MethodDefinitionChange_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
!!
!!MockClass::PrivateClass methodsFor:''methods''!!
foo
!! !!
' readStream.
self assert: cs size == 3.
self assert: cs third className = 'MockClass::PrivateClass'.
self assert: cs third fullClassName = 'Mocks::MockClass::PrivateClass'.
self assert: (Smalltalk at: #'Mocks::MockClass') isNil.
cs apply.
self assert:((Smalltalk at: #'Mocks::MockClass::PrivateClass') methodDictionary includesKey: #foo)
"Created: / 01-05-2013 / 09:52:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
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 := self basicNew.
inst perform: #''<init>(J)V'' with: object with: nil.
^ inst.
!! !!
' readStream.
self assert: cs size == 1.
"Created: / 01-05-2013 / 17:38:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
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 := self basicNew.
inst perform: #''<init>(J)V'' with: object with: nil.
^ inst.
!! !!
' readStream.
self assert: cs size == 1.
"Created: / 01-05-2013 / 17:38:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!ChangeSetTests methodsFor:'tests - utf8'!
test_reading_utf8_01
"
Test reading of changeset with non-ASCII/non-ISO8859-1 chars
"
| file cs |
file := (Smalltalk getPackageDirectoryForPackage: self class package) / 'testData' / 'packages' / 'p1utf8' / 'ProjectDefinitionTestsP1UTF8Bar.st'.
self assert: file exists.
cs := ChangeSet fromFile: file.
self assert: cs size == 4.
self assert: (cs second source size = 127).
self assert: (cs second source includesString: 'Příliš žluťoučký kůň úpěl ďábelské ódy').
"Created: / 26-03-2013 / 09:54:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!ChangeSetTests class methodsFor:'documentation'!
version
^ '$Header$'
!
version_CVS
^ '$Header$'
! !