6 	instanceVariableNames:'guard compiler node tokenNode'

     6 	instanceVariableNames:'guard compiler node tokenNode'

     7 	classVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Tests-Guards'

     9 	category:'PetitCompiler-Tests-Guards'

    10 !

    10 !

    11 

    12 

    12 !PPCTokenGuardTest methodsFor:'as yet unclassified'!

    13 !PPCTokenGuardTest methodsFor:'as yet unclassified'!

    13 

    14 

    14 setUp

    15 setUp

    15     super setUp.

    16     super setUp.

    34     guard := PPCTokenGuard on: node.

    35     guard := PPCTokenGuard on: node.

    35     

    36     

    36     self assert: guard makesSense not.

    37     self assert: guard makesSense not.

    37 ! !

    38 ! !

    38 

    39