diff -r 9b86bc3001da -r 4be0b0537d80 PPCompositeParserTest.st --- a/PPCompositeParserTest.st Thu Jul 05 09:23:44 2018 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,90 +0,0 @@ -"{ Package: 'stx:goodies/petitparser' }" - -PPAbstractParseTest subclass:#PPCompositeParserTest - instanceVariableNames:'parser result' - classVariableNames:'' - poolDictionaries:'' - category:'PetitTests-Core' -! - - -!PPCompositeParserTest class methodsFor:'accessing'! - -resources - ^ Array with: PPParserResource -! ! - -!PPCompositeParserTest class methodsFor:'testing'! - -isAbstract - ^ self name = #PPCompositeParserTest -! ! - -!PPCompositeParserTest methodsFor:'accessing'! - -parserClass - self subclassResponsibility -! - -parserInstance - ^ PPParserResource current parserAt: self parserClass -! ! - -!PPCompositeParserTest methodsFor:'parsing'! - -fail: aString rule: aSymbol - | production | - production := self parserInstance - productionAt: aSymbol. - result := production end - parse: aString. - self - assert: result isPetitFailure - description: 'Able to parse ' , aString printString. - ^ result -! - -parse: aString - ^ self parse: aString rule: #start -! - -parse: aString rule: aSymbol - | production | - production := self parserInstance. - aSymbol = #start - ifFalse: [ production := production productionAt: aSymbol ]. - result := production parse: aString. - self - deny: result isPetitFailure - description: 'Unable to parse ' , aString printString - resumable: true. - ^ result -! ! - -!PPCompositeParserTest methodsFor:'running'! - -setUp - super setUp. - parser := self parserInstance -! - -tearDown - super tearDown. - parser := result := nil -! ! - -!PPCompositeParserTest methodsFor:'utilities'! - -assert: aCollection is: anObject - self parse: aCollection. - self - assert: result = anObject - description: 'Got: ' , result printString , '; Expected: ' , anObject printString - resumable: true -! ! - -!PPCompositeParserTest class methodsFor:'documentation'! - -version_SVN - ^ '$Id: PPCompositeParserTest.st,v 1.2 2012-01-13 11:22:50 cg Exp $' -! !