"{ Package: 'stx:goodies/petitparser/compiler/tests' }"

"{ NameSpace: Smalltalk }"

TestCase subclass:#PPCMergingVisitorTest

	instanceVariableNames:'node result visitor node1 node2'

	classVariableNames:''

	poolDictionaries:''

	category:'PetitCompiler-Tests-Visitors'

!

!PPCMergingVisitorTest methodsFor:'as yet unclassified'!

javaWsNode

	^ PPCUnknownNode new

		parser: PPJavaWhitespaceParser new;

		yourself

!

nilNode

	^ PPCNilNode new

!

setUp

	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.

	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).

!

testNilNode2

	node1 := self nilNode

		name: #foo;

		yourself.

	node2 := self nilNode

		name: #bar;

		yourself.

	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) not.

! !

!PPCMergingVisitorTest class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !