4 	instanceVariableNames:'memento'

     4 	instanceVariableNames:'memento'

     5 	classVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     6 	poolDictionaries:''

     7 	category:'PetitTests-Tests'

     7 	category:'PetitTests-Tests'

     8 !

     8 !

     9 

    10 

    10 !PPContextMementoTest methodsFor:'accessing'!

    11 !PPContextMementoTest methodsFor:'accessing'!

    11 

    12 

    12 memento

    13 memento

    13 	^ PPContextMemento new

    14 	^ PPContextMemento new

   113 	self assert: (retval == c) not.

   114 	self assert: (retval == c) not.

   114 	self assert: retval = c.

   115 	self assert: retval = c.

   115 	self assert: (memento hasProperty: #foo).	

   116 	self assert: (memento hasProperty: #foo).	

   116 ! !

   117 ! !

   117 

   118