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

{ #category : 'as yet unclassified' }
PPPreceedsParserTest >> testLiteral [
	| foo |
	foo := 'foo' asParser.
	parser := foo, (foo preceeds: 3).
	
	self assert: parser parse: 'foo'.
]

{ #category : 'as yet unclassified' }
PPPreceedsParserTest >> testLiteral2 [
	| foo |
	foo := 'foo' asParser.
	parser := foo, (foo preceeds: 2).
	
	self assert: parser fail: 'foo'.
]

{ #category : 'as yet unclassified' }
PPPreceedsParserTest >> testLiteral3 [
	| foo bar |
	foo := 'foo' asParser.
	bar := 'bar' asParser.
	parser := foo, (bar preceeds: 3).
	
	self assert: parser fail: 'foo'.
]