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

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

     2 

     4 

     3 TestCase subclass:#PPContextMementoTest

     5 TestCase subclass:#PPContextMementoTest

     4 	instanceVariableNames:'memento'

     6 	instanceVariableNames:'memento'

     5 	classVariableNames:''

     7 	classVariableNames:''

     6 	poolDictionaries:''

     8 	poolDictionaries:''

    15 ! !

    17 ! !

    16 

    18 

    17 !PPContextMementoTest methodsFor:'running'!

    19 !PPContextMementoTest methodsFor:'running'!

    18 

    20 

    19 setUp

    21 setUp

    20 	memento := self memento.

    23 	memento := self memento.

    21 ! !

    24 ! !

    22 

    25 

    23 !PPContextMementoTest methodsFor:'tests'!

    26 !PPContextMementoTest methodsFor:'tests'!

    24 

    27