--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/tests/extras/PPCLRPNode.st	Mon Aug 17 12:13:16 2015 +0100
@@ -0,0 +1,63 @@
+"{ Package: 'stx:goodies/petitparser/compiler/tests/extras' }"
+
+"{ NameSpace: Smalltalk }"
+
+Object subclass:#PPCLRPNode
+	instanceVariableNames:'start stop nameRange'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Extras-Tests-LRP'
+!
+
+!PPCLRPNode methodsFor:'accessing'!
+
+nameRange
+    nameRange ifNil: [self halt: 'Error in setting up range info for styling.' ].
+    ^ nameRange
+!
+
+nameRange: anObject
+    nameRange := anObject
+!
+
+start
+    ^ start
+!
+
+start: anObject
+    start := anObject
+!
+
+start: aNumber stop: anotherNumber
+    
+    start := aNumber.
+    stop := anotherNumber.
+!
+
+stop
+    ^ stop
+!
+
+stop: anObject
+    stop := anObject
+! !
+
+!PPCLRPNode methodsFor:'error handing'!
+
+onErrorNode: aBlock parser: aPPCLRPParser
+    "do nothing"
+! !
+
+!PPCLRPNode methodsFor:'testing'!
+
+isError
+
+    ^false.
+! !
+
+!PPCLRPNode methodsFor:'visiting'!
+
+acceptVisitor: aPPCLRPNodeVisitor
+    aPPCLRPNodeVisitor visitAnyNode: self.
+! !
+