--- a/RegressionTests__ChangeSetTests.st Wed Jun 29 13:00:17 2016 +0000
+++ b/RegressionTests__ChangeSetTests.st Wed Jun 29 15:55:29 2016 +0200
@@ -1,6 +1,6 @@
"{ Encoding: utf8 }"
-"{ Package: 'exept:regression' }"
+"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
@@ -30,7 +30,7 @@
performTest
^Class withoutUpdatingChangesDo:[
- super performTest
+ super performTest
]
"Created: / 20-11-2012 / 15:08:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -45,9 +45,9 @@
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:[
- s nextPut: output nextChunk.
- ].
+ [ output atEnd ] whileFalse:[
+ s nextPut: output nextChunk.
+ ].
].
self assert: chunks size == 6.
@@ -70,9 +70,9 @@
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.
- ].
+ [ output atEnd ] whileFalse:[
+ s nextPut: output nextChunk.
+ ].
].
self assert: chunks size == 6.
@@ -94,13 +94,13 @@
| 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.
"
@@ -117,13 +117,13 @@
| 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.
"
@@ -141,10 +141,10 @@
cs := ChangeSet fromStream:'
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
self assert: cs size == 1.
@@ -162,10 +162,10 @@
changefile :='
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
@@ -185,10 +185,10 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
self assert: cs size == 1.
@@ -210,10 +210,10 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
@@ -233,18 +233,18 @@
cs := ChangeSet fromStream:'
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
@@ -270,18 +270,18 @@
changefile :='
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
@@ -309,18 +309,18 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
@@ -349,18 +349,18 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
@@ -387,17 +387,17 @@
cs := ChangeSet fromStream:'
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ 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
+ Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
namespace "
self assert: (Smalltalk at: #'MockClass') notNil.
@@ -414,14 +414,14 @@
changefile :='
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ 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
@@ -443,17 +443,17 @@
"{ NameSpace: Mocks2 }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ 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
+ Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
namespace "
self assert: (Smalltalk at: #'Mocks2::MockClass') notNil.
@@ -472,14 +472,14 @@
"{ NameSpace: Mocks2 }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ 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
@@ -501,14 +501,14 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ 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'.
@@ -524,14 +524,14 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ 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'.
@@ -545,10 +545,10 @@
cs := ChangeSet fromStream:'
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
cs first nameSpaceOverride: (NameSpace name: #Mocks).
@@ -568,10 +568,10 @@
"{ NameSpace: Mocks2 }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
cs first nameSpaceOverride: (NameSpace name: #Mocks).
@@ -589,26 +589,26 @@
cs := ChangeSet fromStream:'
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ 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
+ Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
namespace "
self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
@@ -625,23 +625,23 @@
changefile :='
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ 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
@@ -663,26 +663,26 @@
"{ NameSpace: Mocks2 }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ 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
+ Use #nameSpaceOverride: or #applyWithNameSpaceOverride: to apply a change in given
namespace "
self assert: (Smalltalk at: #'Mocks2::MockClass::PrivateClass') notNil.
@@ -701,23 +701,23 @@
"{ NameSpace: Mocks2 }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ 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
@@ -739,23 +739,23 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ 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'.
@@ -771,23 +771,23 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ 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'.
@@ -801,17 +801,17 @@
cs := ChangeSet fromStream:'
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
@@ -834,17 +834,17 @@
"{ NameSpace: Mocks2 }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
' readStream.
@@ -866,10 +866,10 @@
cs := ChangeSet fromStream:'
nil subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
cs apply.
@@ -886,10 +886,10 @@
changefile :='
nil subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
' readStream.
changefile readStream fileIn.
@@ -906,10 +906,10 @@
cs := ChangeSet fromStream:'
Object subclass:#ExistingPrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:RegressionTests::ChangeSetTests
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:RegressionTests::ChangeSetTests
' readStream.
@@ -929,10 +929,10 @@
"{ NameSpace: RegressionTests }"
Object subclass:#ExistingPrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:ChangeSetTests
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:ChangeSetTests
' readStream.
@@ -952,10 +952,10 @@
"{ NameSpace: RegressionTests }"
ClassAndMethodCompilingTestCase subclass:#ChangeSetTests
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-System-Changes''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-System-Changes''
' readStream.
@@ -977,10 +977,10 @@
"{ NameSpace: RegressionTests }"
TestCase subclass:#ChangeSetTests
- instanceVariableNames:''classes someMoreData''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-System-Changes''
+ instanceVariableNames:''classes someMoreData''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-System-Changes''
' readStream.
@@ -1000,10 +1000,10 @@
"{ NameSpace: RegressionTests }"
Object subclass:#ExistingPrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:ChangeSetTests
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:ChangeSetTests
' readStream.
@@ -1023,10 +1023,10 @@
"{ NameSpace: RegressionTests }"
Object subclass:#ExistingPrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''somePool''
- privateIn:ChangeSetTests
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''somePool''
+ privateIn:ChangeSetTests
' readStream.
@@ -1046,10 +1046,10 @@
"{ NameSpace: RegressionTests }"
TestCase subclass:#ChangeSetTests2
- instanceVariableNames:''classes someMoreData''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-System-Changes''
+ instanceVariableNames:''classes someMoreData''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-System-Changes''
' readStream.
@@ -1069,10 +1069,10 @@
"{ NameSpace: RegressionTests }"
Object subclass:#ExistingPrivateClass2
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:ChangeSetTests
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:ChangeSetTests
' readStream.
@@ -1090,13 +1090,13 @@
| cs |
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- category:'tests-Regression-Mocks'.
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ category:'tests-Regression-Mocks'.
(Smalltalk at: #MockClass) class
- compile: 'initialize MockVar := 1234';
- compile: 'mockVar ^MockVar'.
+ compile: 'initialize MockVar := 1234';
+ compile: 'mockVar ^MockVar'.
cs := ChangeSet fromStream:'
MockClass initialize!!
@@ -1119,20 +1119,20 @@
| cs |
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- category:'tests-Regression-Mocks'.
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ category:'tests-Regression-Mocks'.
Object subclass:#PrivateClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- privateIn:(Smalltalk at: #'MockClass').
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ privateIn:(Smalltalk at: #'MockClass').
(Smalltalk at: #'MockClass::PrivateClass') class
- compile: 'initialize MockVar := 1234';
- compile: 'mockVar ^MockVar'.
+ compile: 'initialize MockVar := 1234';
+ compile: 'mockVar ^MockVar'.
cs := ChangeSet fromStream:'
MockClass::PrivateClass initialize!!
@@ -1155,15 +1155,15 @@
| cs |
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- category:'tests-Regression-Mocks'.
+ Object subclass:#MockClass
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ category:'tests-Regression-Mocks'.
].
(Smalltalk at: #'Mocks::MockClass') class
- compile: 'initialize MockVar := 1234';
- compile: 'mockVar ^MockVar'.
+ compile: 'initialize MockVar := 1234';
+ compile: 'mockVar ^MockVar'.
cs := ChangeSet fromStream:'
@@ -1190,15 +1190,15 @@
| cs|
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- category:'tests-Regression-Mocks'.
+ Object subclass:#MockClass
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ category:'tests-Regression-Mocks'.
].
(Smalltalk at: #'Mocks::MockClass') class
- compile: 'initialize MockVar := 1234';
- compile: 'mockVar ^MockVar'.
+ compile: 'initialize MockVar := 1234';
+ compile: 'mockVar ^MockVar'.
cs := ChangeSet fromStream:'
@@ -1207,7 +1207,7 @@
!!
!!MockClass methodsFor:''methods''!!
-foo
+foo
!! !!
@@ -1233,21 +1233,21 @@
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- category:'tests-Regression-Mocks'.
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ category:'tests-Regression-Mocks'.
Object subclass:#PrivateClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- privateIn:(Smalltalk at: #'Mocks::MockClass').
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ privateIn:(Smalltalk at: #'Mocks::MockClass').
].
(Smalltalk at: #'Mocks::MockClass::PrivateClass') class
- compile: 'initialize MockVar := 1234';
- compile: 'mockVar ^MockVar'.
+ compile: 'initialize MockVar := 1234';
+ compile: 'mockVar ^MockVar'.
cs := ChangeSet fromStream:'
@@ -1274,21 +1274,21 @@
| cs |
Class nameSpaceQuerySignal answer: (NameSpace name: #Mocks) do:[
- Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- category:'tests-Regression-Mocks'.
-
- Object subclass:#PrivateClass
- instanceVariableNames:''
- classVariableNames:'MockVar'
- poolDictionaries:''
- privateIn:(Smalltalk at: #'Mocks::MockClass').
+ Object subclass:#MockClass
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ category:'tests-Regression-Mocks'.
+
+ Object subclass:#PrivateClass
+ instanceVariableNames:''
+ classVariableNames:'MockVar'
+ poolDictionaries:''
+ privateIn:(Smalltalk at: #'Mocks::MockClass').
].
(Smalltalk at: #'Mocks::MockClass::PrivateClass') class
- compile: 'initialize MockVar := 1234';
- compile: 'mockVar ^MockVar'.
+ compile: 'initialize MockVar := 1234';
+ compile: 'mockVar ^MockVar'.
cs := ChangeSet fromStream:'
@@ -1297,7 +1297,7 @@
!!
!!MockClass methodsFor:''methods''!!
-foo
+foo
!! !!
@@ -1347,10 +1347,10 @@
cs := ChangeSet fromStream:'
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
!!MockClass methodsFor:''methods''!!
@@ -1378,10 +1378,10 @@
changefile :='
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
!!MockClass methodsFor:''methods''!!
@@ -1409,10 +1409,10 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
!!MockClass methodsFor:''methods''!!
@@ -1442,10 +1442,10 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
!!MockClass methodsFor:''methods''!!
@@ -1469,7 +1469,7 @@
"Tests whether all method changes have package properly set when reading
extension container"
- | cs |
+ | cs |
cs := ChangeSet fromStream:'"{ Package: ''stx:libtool'' }"!!
@@ -1505,17 +1505,17 @@
cs := ChangeSet fromStream:'
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
!!
!!MockClass::PrivateClass methodsFor:''methods''!!
@@ -1542,17 +1542,17 @@
changefile :='
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
!!
!!MockClass::PrivateClass methodsFor:''methods''!!
@@ -1581,17 +1581,17 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
!!
!!MockClass::PrivateClass methodsFor:''methods''!!
@@ -1620,17 +1620,17 @@
"{ NameSpace: Mocks }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
Object subclass:#PrivateClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- privateIn:MockClass
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ privateIn:MockClass
!!
!!MockClass::PrivateClass methodsFor:''methods''!!
@@ -1679,16 +1679,16 @@
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'MockClass').
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'MockClass').
changefile :='
@@ -1698,7 +1698,7 @@
!! !!
' readStream.
- changefile readStream fileIn.
+ changefile readStream fileIn.
self assert: (Smalltalk at: #'MockClass') notNil.
self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
@@ -1740,30 +1740,30 @@
Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'Mocks::MockClass').
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'Mocks::MockClass').
].
changefile :='
"{ NameSpace: Mocks }"
-!!
+!!
!!MockClass::PrivateClass methodsFor:''methods''!!
foo
!! !!
' readStream.
- changefile readStream fileIn.
+ changefile readStream fileIn.
self assert: (Smalltalk at: #'Mocks::MockClass') notNil.
self assert: (Smalltalk at: #'Mocks::MockClass::PrivateClass') notNil.
@@ -1790,7 +1790,7 @@
bar
-!! !!
+!! !!
' readStream.
@@ -1812,31 +1812,31 @@
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'MockClass').
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'MockClass').
Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
Object subclass:#MockClass2
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'Mocks::MockClass2').
- ].
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'Mocks::MockClass2').
+ ].
changefile :='
!!MockClass::PrivateClass methodsFor:''methods''!!
@@ -1887,7 +1887,7 @@
bar
-!! !!
+!! !!
' readStream.
@@ -1907,33 +1907,33 @@
Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks2') do:[
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'Mocks2::MockClass').
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'Mocks2::MockClass').
].
Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks') do:[
Object subclass:#MockClass2
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'Mocks::MockClass2').
- ].
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'Mocks::MockClass2').
+ ].
changefile :='
@@ -1989,7 +1989,7 @@
bar
-!! !!
+!! !!
' readStream.
@@ -2009,31 +2009,31 @@
Class nameSpaceQuerySignal answer: (NameSpace name: #'Mocks2') do:[
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'Mocks2::MockClass').
- ].
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'Mocks2::MockClass').
+ ].
Object subclass:#MockClass2
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'MockClass2').
-
-
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'MockClass2').
+
+
changefile :='
"{ NameSpace: Mocks2 }"
@@ -2075,10 +2075,10 @@
"{ Package: ''mocks:ChangeSetTests'' }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
!!MockClass methodsFor:''methods''!!
@@ -2111,10 +2111,10 @@
"{ Package: ''mocks:ChangeSetTests'' }"
Object subclass:#MockClass
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-Mocks''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''tests-Regression-Mocks''
!!
!!MockClass methodsFor:''methods''!!
@@ -2166,16 +2166,16 @@
Object subclass:#MockClass
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression-System-Changes'.
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression-System-Changes'.
Object subclass: #PrivateClass
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- privateIn: (Smalltalk at: #'MockClass').
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ privateIn: (Smalltalk at: #'MockClass').
changefile :='
@@ -2188,7 +2188,7 @@
!! !!
' readStream.
- changefile readStream fileIn.
+ changefile readStream fileIn.
self assert: (Smalltalk at: #'MockClass') notNil.
self assert: (Smalltalk at: #'MockClass::PrivateClass') notNil.
@@ -2201,16 +2201,16 @@
test_MethodDefinitionChange_jextension_01a
"Tests Java extensios - used by stx:libjava (see stx/libjava/java/extensions/**/*.st"
- | cs |
+ | 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.
@@ -2222,16 +2222,16 @@
test_MethodDefinitionChange_jextension_01b
"Tests Java extensios - used by stx:libjava (see stx/libjava/java/extensions/**/*.st"
- | cs |
+ | 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.
@@ -2257,19 +2257,19 @@
"{ Package: ''some:funny/package'' }"
Object subclass:#Mock1
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''* Mocks *''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''* Mocks *''
!!
!!Object methodsFor:''* mocks * ''!!
-someMethod
+someMethod
^ 1
!! !!
-' readStream.
+' readStream.
self assert: cs size == 3.
self assert: cs second package = 'some:funny/package'.
@@ -2291,19 +2291,19 @@
"{ Package: ''some:funny/package'' }"
!!
Object subclass:#Mock1
- instanceVariableNames:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''* Mocks *''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ category:''* Mocks *''
!!
!!Object methodsFor:''* mocks * ''!!
-someMethod
+someMethod
^ 1
!! !!
-' readStream.
+' readStream.
self assert: cs size == 3.
self assert: cs second package = 'some:funny/package'.
@@ -2321,29 +2321,29 @@
''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:''''
- classVariableNames:''''
- poolDictionaries:''''
- category:''tests-Regression-System-Changes''
+ instanceVariableNames:''''
+ classVariableNames:''''
+ poolDictionaries:''''
+ 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 second package = 'exept:regression'.
+ self assert: cs first package = 'stx:goodies/regression'.
+ self assert: cs second package = 'stx:goodies/regression'.
"Created: / 05-08-2014 / 10:59:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
@@ -2481,8 +2481,8 @@
"don't know how to unread ..."
numberToSkip < 0 ifTrue:[
- PositionError raiseRequest.
- ^ self
+ PositionError raiseRequest.
+ ^ self
].
numberToSkip timesRepeat:[self next].