--- a/compiler/tests/PPCMergingVisitorTest.st Mon Aug 17 12:13:16 2015 +0100
+++ b/compiler/tests/PPCMergingVisitorTest.st Mon Aug 24 15:34:14 2015 +0100
@@ -12,12 +12,6 @@
!PPCMergingVisitorTest methodsFor:'as yet unclassified'!
-javaWsNode
- ^ PPCUnknownNode new
- parser: PPJavaWhitespaceParser new;
- yourself
-!
-
nilNode
^ PPCNilNode new
!
@@ -26,18 +20,6 @@
visitor := PPCMergingVisitor new
!
-testJavaWS
- node1 := self javaWsNode.
- node2 := self javaWsNode.
-
- node := PPCSequenceNode new
- children: { node1 . node2 }.
-
- self assert: (node children first == node children second) not.
- node := visitor visit: node.
- self assert: (node children first == node children second).
-!
-
testNilNode
node1 := self nilNode.
node2 := self nilNode.