equal
deleted
inserted
replaced
10 ! |
10 ! |
11 |
11 |
12 |
12 |
13 !PPCMergingVisitorTest methodsFor:'as yet unclassified'! |
13 !PPCMergingVisitorTest methodsFor:'as yet unclassified'! |
14 |
14 |
15 javaWsNode |
|
16 ^ PPCUnknownNode new |
|
17 parser: PPJavaWhitespaceParser new; |
|
18 yourself |
|
19 ! |
|
20 |
|
21 nilNode |
15 nilNode |
22 ^ PPCNilNode new |
16 ^ PPCNilNode new |
23 ! |
17 ! |
24 |
18 |
25 setUp |
19 setUp |
26 visitor := PPCMergingVisitor new |
20 visitor := PPCMergingVisitor new |
27 ! |
|
28 |
|
29 testJavaWS |
|
30 node1 := self javaWsNode. |
|
31 node2 := self javaWsNode. |
|
32 |
|
33 node := PPCSequenceNode new |
|
34 children: { node1 . node2 }. |
|
35 |
|
36 self assert: (node children first == node children second) not. |
|
37 node := visitor visit: node. |
|
38 self assert: (node children first == node children second). |
|
39 ! |
21 ! |
40 |
22 |
41 testNilNode |
23 testNilNode |
42 node1 := self nilNode. |
24 node1 := self nilNode. |
43 node2 := self nilNode. |
25 node2 := self nilNode. |