4 	instanceVariableNames:'context'

     4 	instanceVariableNames:'context'

     5 	classVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     6 	poolDictionaries:''

     7 	category:'PetitTests-Tests'

     7 	category:'PetitTests-Tests'

     8 !

     8 !

     9 

    10 

    10 !PPContextTest methodsFor:'as yet unclassified'!

    11 !PPContextTest methodsFor:'as yet unclassified'!

    11 

    12 

    12 context

    13 context

    13 	^ PPContext new

    14 	^ PPContext new

   171 	self assert: (context next: 5) = 'there'.

   172 	self assert: (context next: 5) = 'there'.

   172 	self assert: context position = 8.

   173 	self assert: context position = 8.

   173 	self assert: context atEnd.

   174 	self assert: context atEnd.

   174 ! !

   175 ! !

   175 

   176