compiler/tests/PPCMergingVisitorTest.st
changeset 524 f6f68d32de73
parent 452 9f4558b3be66
--- 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.