Class {
	#name : 'WikiTextGrammarTest',
	#superclass : 'PP2CompositeNodeTest',
	#category : 'TiddlyWiki-Model'
}

{ #category : 'accessing' }
WikiTextGrammarTest >> parserClass [
	^ WikiTextGrammar
]

{ #category : 'accessing' }
WikiTextGrammarTest >> testDocument [
	| input |
	input := WikiText new sample.
	self parse: input rule: #document.
	self assert: result size equals: 2
]

{ #category : 'accessing' }
WikiTextGrammarTest >> testLink [
	self
		parse: '[[Just testing]]'
		rule: #link
]