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

"{ NameSpace: Smalltalk }"

TestCase subclass:#PPCTokenGuardTest
	instanceVariableNames:'guard compiler node tokenNode'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Tests-Guards'
!

!PPCTokenGuardTest methodsFor:'as yet unclassified'!

setUp
    super setUp.
    compiler := PPCMockCompiler new.
!

testMakesSense
    tokenNode := PPCTokenNode new
        child: 'foo' asParser asCompilerTree.
    node := PPCPlusNode new
        child: tokenNode;
        yourself.	
    guard := PPCTokenGuard on: node.
    
    self assert: guard makesSense.
!

testMakesSense2
    node := PPCPlusNode new
        child: ('foo' asParser asCompilerTree);
        yourself.	
    guard := PPCTokenGuard on: node.
    
    self assert: guard makesSense not.
! !