TiddlyWikiPharo/repository/TiddlyWiki/WikiTextGrammarTest.class.st

26 lines
496 B
Smalltalk
Raw Normal View History

Class {
#name : 'WikiTextGrammarTest',
#superclass : 'PP2CompositeNodeTest',
#category : 'TiddlyWiki-Model'
}
{ #category : 'accessing' }
WikiTextGrammarTest >> parserClass [
^ WikiTextGrammar
]
{ #category : 'accessing' }
2021-08-16 14:46:14 +00:00
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
]