112 |
112 |
113 self assert: parser parse: 'ab'. |
113 self assert: parser parse: 'ab'. |
114 self assert: parser parse: ' ab'. |
114 self assert: parser parse: ' ab'. |
115 ! ! |
115 ! ! |
116 |
116 |
117 !PPCCompilerTest methodsFor:'tests - ids'! |
|
118 |
|
119 testId1 |
|
120 node := PPCNode new |
|
121 name: 'foo'. |
|
122 compiler := PPCCompiler new. |
|
123 |
|
124 id := compiler idFor: node. |
|
125 |
|
126 self assert: compiler ids size = 1. |
|
127 self assert: id = 'foo'. |
|
128 ! |
|
129 |
|
130 testId2 |
|
131 node1 := PPCNode new |
|
132 name: 'foo'. |
|
133 |
|
134 node2 := PPCNode new |
|
135 name: 'foo'. |
|
136 compiler := PPCCompiler new. |
|
137 |
|
138 id1 := compiler idFor: node1. |
|
139 self assert: compiler ids size = 1. |
|
140 self assert: id1 = 'foo'. |
|
141 |
|
142 id2 := compiler idFor: node2. |
|
143 self assert: compiler ids size = 2. |
|
144 self assert: id2 = 'foo_1'. |
|
145 |
|
146 self assert: (id1 = id2) not. |
|
147 ! |
|
148 |
|
149 testId3 |
|
150 node1 := PPCNode new |
|
151 name: 'foo'. |
|
152 |
|
153 node2 := node1. |
|
154 compiler := PPCCompiler new. |
|
155 |
|
156 id1 := compiler idFor: node1. |
|
157 self assert: compiler ids size = 1. |
|
158 self assert: id1 = 'foo'. |
|
159 |
|
160 id2 := compiler idFor: node2. |
|
161 self assert: compiler ids size = 1. |
|
162 self assert: id2 = 'foo'. |
|
163 |
|
164 self assert: (id1 == id2). |
|
165 ! |
|
166 |
|
167 testId4 |
|
168 node1 := PPCNode new |
|
169 name: 'foo+='. |
|
170 |
|
171 node2 := PPCNode new |
|
172 name: 'foo+='. |
|
173 compiler := PPCCompiler new. |
|
174 |
|
175 id1 := compiler idFor: node1. |
|
176 self assert: compiler ids size = 1. |
|
177 self assert: id1 = 'foo'. |
|
178 |
|
179 id2 := compiler idFor: node2. |
|
180 self assert: compiler ids size = 2. |
|
181 self assert: id2 = 'foo_1'. |
|
182 |
|
183 self assert: (id1 = id2) not. |
|
184 ! |
|
185 |
|
186 testId5 |
|
187 node1 := PPCNode new |
|
188 name: 'foo_bar'. |
|
189 |
|
190 compiler := PPCCompiler new. |
|
191 |
|
192 id1 := compiler idFor: node1. |
|
193 self assert: compiler ids size = 1. |
|
194 self assert: id1 = 'foo_bar'. |
|
195 ! ! |
|
196 |
|
197 !PPCCompilerTest class methodsFor:'documentation'! |
117 !PPCCompilerTest class methodsFor:'documentation'! |
198 |
118 |
199 version_HG |
119 version_HG |
200 |
120 |
201 ^ '$Changeset: <not expanded> $' |
121 ^ '$Changeset: <not expanded> $' |