Class {
	#name : 'PPLimitParserTest',
	#superclass : 'PPParserTest',
	#instVars : [
		'parser'
	],
	#category : 'PetitMarkdown-Tests'
}

{ #category : 'as yet unclassified' }
PPLimitParserTest >> testLimit [
	| limiter foo |
	limiter := #any asParser max: 3.
	foo := 'foo' asParser.
	parser := foo limitedBy: limiter.
	
	self assert: parser parse: 'foo'.
]

{ #category : 'as yet unclassified' }
PPLimitParserTest >> testLimit2 [
	| limiter foo |
	limiter := #any asParser max: 2.
	foo := 'foo' asParser.
	parser := foo limitedBy: limiter.
	
	self assert: parser fail: 'foo'.
]