equal
deleted
inserted
replaced
6 instanceVariableNames:'node result visitor' |
6 instanceVariableNames:'node result visitor' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitCompiler-Tests-Visitors' |
9 category:'PetitCompiler-Tests-Visitors' |
10 ! |
10 ! |
|
11 |
11 |
12 |
12 !PPCTokenDetectorTest methodsFor:'as yet unclassified'! |
13 !PPCTokenDetectorTest methodsFor:'as yet unclassified'! |
13 |
14 |
14 assert: object type: class |
15 assert: object type: class |
15 self assert: object class == class |
16 self assert: object class == class |
213 self assert: result child type: PPCCharacterNode. |
214 self assert: result child type: PPCCharacterNode. |
214 self assert: result child = characterNode. |
215 self assert: result child = characterNode. |
215 self assert: result whitespace type: PPCSentinelNode. |
216 self assert: result whitespace type: PPCSentinelNode. |
216 ! ! |
217 ! ! |
217 |
218 |
|
219 !PPCTokenDetectorTest class methodsFor:'documentation'! |
|
220 |
|
221 version_HG |
|
222 |
|
223 ^ '$Changeset: <not expanded> $' |
|
224 ! ! |
|
225 |