author | Claus Gittinger <cg@exept.de> |
Tue, 26 Mar 2019 18:29:08 +0100 | |
changeset 2171 | 7e1468f91656 |
parent 1447 | 2351db93aa5b |
child 1500 | d406a10b2965 |
permissions | -rw-r--r-- |
1447 | 1 |
"{ Package: 'stx:goodies/regression' }" |
114 | 2 |
|
158 | 3 |
"{ NameSpace: RegressionTests }" |
4 |
||
114 | 5 |
TestCase subclass:#DeepCopyTests |
6 |
instanceVariableNames:'' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
181 | 9 |
category:'tests-Regression' |
114 | 10 |
! |
11 |
||
12 |
!DeepCopyTests class methodsFor:'documentation'! |
|
13 |
||
14 |
documentation |
|
15 |
" |
|
16 |
documentation to be added. |
|
17 |
||
18 |
[author:] |
|
1447 | 19 |
(james@miraculix) |
114 | 20 |
|
21 |
[see also:] |
|
22 |
||
23 |
[instance variables:] |
|
24 |
||
25 |
[class variables:] |
|
26 |
" |
|
27 |
! |
|
28 |
||
29 |
history |
|
30 |
"Created: / 25.10.2001 / 11:32:08 / james" |
|
31 |
! ! |
|
32 |
||
963
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
33 |
!DeepCopyTests methodsFor:'helpers'! |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
34 |
|
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
35 |
makeBlock |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
36 |
"although you cannot copy lock closures in st/x, it should at least not crash the system..." |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
37 |
|
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
38 |
^ self makeBlockHelper:[ 0 ]. |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
39 |
|
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
40 |
" |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
41 |
self new makeBlock |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
42 |
" |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
43 |
|
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
44 |
"Created: / 02-08-2013 / 17:30:04 / cg" |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
45 |
! |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
46 |
|
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
47 |
makeBlockHelper:blockIn |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
48 |
"although you cannot copy lock closures in st/x, it should at least not crash the system..." |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
49 |
|
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
50 |
^ #(1 2 3) at:4 ifAbsent:[^ blockIn ] |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
51 |
|
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
52 |
"Created: / 02-08-2013 / 17:30:28 / cg" |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
53 |
! ! |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
54 |
|
114 | 55 |
!DeepCopyTests methodsFor:'tests'! |
56 |
||
963
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
57 |
testBlockCopy1 |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
58 |
"although you cannot copy lock closures in st/x, it should at least not crash the system..." |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
59 |
|
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
60 |
|original copy| |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
61 |
|
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
62 |
original := self makeBlock. |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
63 |
copy := original deepCopy |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
64 |
|
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
65 |
" |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
66 |
self basicNew testBlockCopy1 |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
67 |
" |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
68 |
|
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
69 |
"Created: / 02-08-2013 / 17:29:46 / cg" |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
70 |
! |
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
71 |
|
114 | 72 |
testCopyTwoLevel |
73 |
|original copy elL1 elL2 elL3 copyOfElL1| |
|
74 |
||
75 |
original := Array new:3. |
|
76 |
original at:1 put:1234. |
|
77 |
original at:2 put:'hello'. |
|
78 |
original at:3 put:(elL1 := Array new:3). |
|
79 |
||
80 |
elL1 at:1 put:1234. |
|
81 |
elL1 at:2 put:'hello'. |
|
82 |
elL1 at:3 put:(elL2 := Array new:3). |
|
83 |
||
84 |
elL2 at:1 put:1234. |
|
85 |
elL2 at:2 put:'hello'. |
|
86 |
elL2 at:3 put:(elL3 := Array new:3). |
|
87 |
||
88 |
elL3 at:1 put:1234. |
|
89 |
elL3 at:2 put:'hello'. |
|
90 |
elL3 at:3 put:(Array new:3). |
|
91 |
||
92 |
copy := original copyTwoLevel. |
|
93 |
self assert:( (original at:2) ~~ (copy at:2) ). |
|
94 |
self assert:( (original at:3) ~~ (copy at:3) ). |
|
95 |
||
96 |
copyOfElL1 := copy at:3. |
|
97 |
self assert:( (elL1 at:2) == (copyOfElL1 at:2) ). |
|
98 |
self assert:( (elL1 at:3) == (copyOfElL1 at:3) ). |
|
99 |
||
100 |
" |
|
101 |
self basicNew testCopyTwoLevel |
|
102 |
" |
|
103 |
! |
|
104 |
||
105 |
testToLevel2 |
|
106 |
|original copy elL1 elL2 elL3 copyOfElL1| |
|
107 |
||
108 |
original := Array new:3. |
|
109 |
original at:1 put:1234. |
|
110 |
original at:2 put:'hello'. |
|
111 |
original at:3 put:(elL1 := Array new:3). |
|
112 |
||
113 |
elL1 at:1 put:1234. |
|
114 |
elL1 at:2 put:'hello'. |
|
115 |
elL1 at:3 put:(elL2 := Array new:3). |
|
116 |
||
117 |
elL2 at:1 put:1234. |
|
118 |
elL2 at:2 put:'hello'. |
|
119 |
elL2 at:3 put:(elL3 := Array new:3). |
|
120 |
||
121 |
elL3 at:1 put:1234. |
|
122 |
elL3 at:2 put:'hello'. |
|
123 |
elL3 at:3 put:(Array new:3). |
|
124 |
||
125 |
copy := original copyToLevel:2. |
|
126 |
self assert:( (original at:2) ~~ (copy at:2) ). |
|
127 |
self assert:( (original at:3) ~~ (copy at:3) ). |
|
128 |
||
129 |
copyOfElL1 := copy at:3. |
|
130 |
self assert:( (elL1 at:2) == (copyOfElL1 at:2) ). |
|
131 |
self assert:( (elL1 at:3) == (copyOfElL1 at:3) ). |
|
132 |
||
133 |
" |
|
134 |
self basicNew testToLevel2 |
|
135 |
" |
|
136 |
! |
|
137 |
||
138 |
testToLevel3 |
|
139 |
|original copy elL1 elL2 elL3 copyOfElL1 copyOfElL2| |
|
140 |
||
141 |
original := Array new:3. |
|
142 |
original at:1 put:1234. |
|
143 |
original at:2 put:'hello'. |
|
144 |
original at:3 put:(elL1 := Array new:3). |
|
145 |
||
146 |
elL1 at:1 put:1234. |
|
147 |
elL1 at:2 put:'hello'. |
|
148 |
elL1 at:3 put:(elL2 := Array new:3). |
|
149 |
||
150 |
elL2 at:1 put:1234. |
|
151 |
elL2 at:2 put:'hello'. |
|
152 |
elL2 at:3 put:(elL3 := Array new:3). |
|
153 |
||
154 |
elL3 at:1 put:1234. |
|
155 |
elL3 at:2 put:'hello'. |
|
156 |
elL3 at:3 put:(Array new:3). |
|
157 |
||
158 |
copy := original copyToLevel:3. |
|
159 |
self assert:( (original at:2) ~~ (copy at:2) ). |
|
160 |
self assert:( (original at:3) ~~ (copy at:3) ). |
|
161 |
||
162 |
copyOfElL1 := copy at:3. |
|
163 |
self assert:( (elL1 at:2) ~~ (copyOfElL1 at:2) ). |
|
164 |
self assert:( (elL1 at:3) ~~ (copyOfElL1 at:3) ). |
|
165 |
||
166 |
copyOfElL2 := copyOfElL1 at:3. |
|
167 |
self assert:( (elL2 at:2) == (copyOfElL2 at:2) ). |
|
168 |
self assert:( (elL2 at:3) == (copyOfElL2 at:3) ). |
|
169 |
||
170 |
" |
|
171 |
self basicNew testToLevel3 |
|
172 |
" |
|
173 |
! ! |
|
174 |
||
175 |
!DeepCopyTests class methodsFor:'documentation'! |
|
176 |
||
177 |
version |
|
178 |
^ '$Header$' |
|
179 |
! ! |
|
963
50736877d51d
class: RegressionTests::DeepCopyTests
Claus Gittinger <cg@exept.de>
parents:
181
diff
changeset
|
180 |