tests/PPParserResource.st
author sr
Wed, 04 Jul 2018 15:30:19 +0200
changeset 611 38338f2de417
parent 581 4bce53337088
permissions -rw-r--r--
build order was wrong

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

"{ NameSpace: Smalltalk }"

TestResource subclass:#PPParserResource
	instanceVariableNames:'parsers'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitTests-Tests'
!


!PPParserResource methodsFor:'accessing'!

parserAt: aParserClass
	"Answer a cached instance of aParserClass."
	
	^ parsers at: aParserClass name ifAbsentPut: [ aParserClass new ]
! !

!PPParserResource methodsFor:'running'!

setUp
	super setUp.
	parsers := Dictionary new
! !

!PPParserResource class methodsFor:'documentation'!

version
    ^ '$Header$'
!

version_CVS
    ^ '$Header$'
! !