equal
deleted
inserted
replaced
|
1 "{ Package: 'stx:goodies/petitparser/compiler/tests/extras' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
|
4 |
|
5 TestCase subclass:#PPCJavaTests |
|
6 instanceVariableNames:'' |
|
7 classVariableNames:'' |
|
8 poolDictionaries:'' |
|
9 category:'PetitCompiler-Extras-Tests-Java' |
|
10 ! |
|
11 |
|
12 !PPCJavaTests methodsFor:'as yet unclassified'! |
|
13 |
|
14 javaWsNode |
|
15 ^ PPCUnknownNode new |
|
16 parser: PPJavaWhitespaceParser new; |
|
17 yourself |
|
18 ! |
|
19 |
|
20 testJavaWS |
|
21 | node1 node2 node visitor | |
|
22 node1 := self javaWsNode. |
|
23 node2 := self javaWsNode. |
|
24 |
|
25 node := PPCSequenceNode new |
|
26 children: { node1 . node2 }. |
|
27 |
|
28 visitor := PPCMergingVisitor new. |
|
29 |
|
30 self assert: (node children first == node children second) not. |
|
31 node := visitor visit: node. |
|
32 self assert: (node children first == node children second). |
|
33 ! ! |
|
34 |