TiddlyWikiPharo/repository/TiddlyWiki/WikiTextGrammarTest.class.st

26 lines
491 B
Smalltalk

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
]