compiler/tests/PPCGuardTest.st
changeset 401 538267cab6ec
parent 392 9b297f0d949c
child 414 0eaf09920532
equal deleted inserted replaced
400:49dc52d760c8 401:538267cab6ec
     4 	instanceVariableNames:'guard compiler'
     4 	instanceVariableNames:'guard compiler'
     5 	classVariableNames:''
     5 	classVariableNames:''
     6 	poolDictionaries:''
     6 	poolDictionaries:''
     7 	category:'PetitCompiler-Tests-Core'
     7 	category:'PetitCompiler-Tests-Core'
     8 !
     8 !
       
     9 
     9 
    10 
    10 !PPCGuardTest methodsFor:'as yet unclassified'!
    11 !PPCGuardTest methodsFor:'as yet unclassified'!
    11 
    12 
    12 setUp
    13 setUp
    13 	super setUp.
    14 	super setUp.
   121 
   122 
   122 	guard := PPCGuard new initializeFor: ($a asParser, (#letter asParser / #digit asParser)).
   123 	guard := PPCGuard new initializeFor: ($a asParser, (#letter asParser / #digit asParser)).
   123 	self assert: guard testSingleCharacter.
   124 	self assert: guard testSingleCharacter.
   124 ! !
   125 ! !
   125 
   126 
       
   127 !PPCGuardTest class methodsFor:'documentation'!
       
   128 
       
   129 version_HG
       
   130 
       
   131     ^ '$Changeset: <not expanded> $'
       
   132 ! !
       
   133