20 " |
20 " |
21 |
21 |
22 | pool class | |
22 | pool class | |
23 |
23 |
24 pool := SharedPool subclass: #MockSharedPool1 |
24 pool := SharedPool subclass: #MockSharedPool1 |
25 instanceVariableNames: '' |
25 instanceVariableNames: '' |
26 classVariableNames: 'PoolVar1 PoolVar2' |
26 classVariableNames: 'PoolVar1 PoolVar2' |
27 poolDictionaries: '' |
27 poolDictionaries: '' |
28 category: 'System-Compiler-Mocks'. |
28 category: 'System-Compiler-Mocks'. |
29 |
29 |
30 class := Object subclass: #MockClass |
30 class := Object subclass: #MockClass |
31 instanceVariableNames: '' |
31 instanceVariableNames: '' |
32 classVariableNames: '' |
32 classVariableNames: '' |
33 poolDictionaries: 'MockSharedPool1' |
33 poolDictionaries: 'MockSharedPool1' |
34 category: 'System-Compiler-Mocks'. |
34 category: 'System-Compiler-Mocks'. |
35 |
35 |
36 self assert: class sharedPoolNames asArray = #(MockSharedPool1). |
36 self assert: class sharedPoolNames asArray = #(MockSharedPool1). |
37 |
37 |
38 class := Object subclass: #MockClass |
38 class := Object subclass: #MockClass |
39 instanceVariableNames: '' |
39 instanceVariableNames: '' |
40 classVariableNames: '' |
40 classVariableNames: '' |
41 poolDictionaries: '' |
41 poolDictionaries: '' |
42 category: 'System-Compiler-Mocks'. |
42 category: 'System-Compiler-Mocks'. |
43 |
43 |
44 self assert: class sharedPoolNames isEmpty. |
44 self assert: class sharedPoolNames isEmpty. |
45 |
45 |
46 "Created: / 07-02-2013 / 18:00:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
46 "Created: / 07-02-2013 / 18:00:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
47 "Modified: / 13-05-2014 / 11:06:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
47 "Modified: / 13-05-2014 / 11:06:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
57 " |
57 " |
58 |
58 |
59 | pool class | |
59 | pool class | |
60 |
60 |
61 pool := SharedPool subclass: #MockSharedPool1 |
61 pool := SharedPool subclass: #MockSharedPool1 |
62 instanceVariableNames: '' |
62 instanceVariableNames: '' |
63 classVariableNames: 'PoolVar1 PoolVar2' |
63 classVariableNames: 'PoolVar1 PoolVar2' |
64 poolDictionaries: '' |
64 poolDictionaries: '' |
65 category: '* Mocks *'. |
65 category: '* Mocks *'. |
66 |
66 |
67 class := Object subclass: #MockClassA |
67 class := Object subclass: #MockClassA |
68 instanceVariableNames: '' |
68 instanceVariableNames: '' |
69 classVariableNames: '' |
69 classVariableNames: '' |
70 poolDictionaries: '' |
70 poolDictionaries: '' |
71 category: '* Mocks *'. |
71 category: '* Mocks *'. |
72 |
72 |
73 class := Object subclass: #MockClassX |
73 class := Object subclass: #MockClassX |
74 instanceVariableNames: '' |
74 instanceVariableNames: '' |
75 classVariableNames: '' |
75 classVariableNames: '' |
76 poolDictionaries: '' |
76 poolDictionaries: '' |
77 category: '* Mocks *'. |
77 category: '* Mocks *'. |
78 |
78 |
79 class := (Smalltalk at:#MockClassX) subclass: #MockClassY |
79 class := (Smalltalk at:#MockClassX) subclass: #MockClassY |
80 instanceVariableNames: '' |
80 instanceVariableNames: '' |
81 classVariableNames: '' |
81 classVariableNames: '' |
82 poolDictionaries: 'MockSharedPool1' |
82 poolDictionaries: 'MockSharedPool1' |
83 category: '* Mocks *'. |
83 category: '* Mocks *'. |
84 |
84 |
85 self assert: (Smalltalk at:#MockClassX) superclass == Object. |
85 self assert: (Smalltalk at:#MockClassX) superclass == Object. |
86 self assert: (Smalltalk at:#MockClassY) sharedPoolNames asArray = #(MockSharedPool1). |
86 self assert: (Smalltalk at:#MockClassY) sharedPoolNames asArray = #(MockSharedPool1). |
87 |
87 |
88 class := (Smalltalk at:#MockClassA) subclass: #MockClassX |
88 class := (Smalltalk at:#MockClassA) subclass: #MockClassX |
89 instanceVariableNames: '' |
89 instanceVariableNames: '' |
90 classVariableNames: '' |
90 classVariableNames: '' |
91 poolDictionaries: '' |
91 poolDictionaries: '' |
92 category: '* Mocks *'. |
92 category: '* Mocks *'. |
93 |
93 |
94 |
94 |
95 self assert: (Smalltalk at:#MockClassY) superclass == (Smalltalk at:#MockClassX). |
95 self assert: (Smalltalk at:#MockClassY) superclass == (Smalltalk at:#MockClassX). |
96 self assert: (Smalltalk at:#MockClassX) superclass == (Smalltalk at:#MockClassA). |
96 self assert: (Smalltalk at:#MockClassX) superclass == (Smalltalk at:#MockClassA). |
97 self assert: (Smalltalk at:#MockClassY) sharedPoolNames asArray = #(MockSharedPool1). |
97 self assert: (Smalltalk at:#MockClassY) sharedPoolNames asArray = #(MockSharedPool1). |