PetitCommonMark/software/PetitMarkdown/PPCommonMarkInlineTest.class.st

Class {
	#name : 'PPCommonMarkInlineTest',
	#superclass : 'PPCompositeParserTest',
	#category : 'PetitMarkdown-Tests'
}

{ #category : 'support' }
PPCommonMarkInlineTest >> assert: something type: type [
	self assert: (something isKindOf: type).

]

{ #category : 'support' }
PPCommonMarkInlineTest >> parserClass [
	^ PPCommonMarkInlinesParser
]

{ #category : 'support' }
PPCommonMarkInlineTest >> setUp [
	super setUp.
	self parserInstance initialize.
]

{ #category : 'test-paragraph' }
PPCommonMarkInlineTest >> testAmpersand [
	self parse: 'ab'.
	self assert: result first text = 'ab'.
	
	self parse: 'a&b'.
	self assert: result first text = 'a'.
	self assert: result second text = '&'.
	self assert: result third text = 'b'.
	
	self parse: 'a\&b'.
	self assert: result first text = 'a'.
	self assert: result second text = '&'.
	self assert: result third text = 'b'.
	
	self parse: 'a&b'.
	self assert: result first text = 'a'.
	self assert: result second text = '&'.
	self assert: result third text = 'b'.
	
	self parse: 'a\&b'.
	self assert: result first text = 'a'.
	self assert: result second text = '&'.
	self assert: result third text = 'amp;b'.

]

{ #category : 'test-links' }
PPCommonMarkInlineTest >> testAutolink [
	self parse: '<http://foo.bar.baz>' rule: #autolink.
	self assert: result type: PPCMLink.
]

{ #category : 'test-emphasize' }
PPCommonMarkInlineTest >> testEmphasize [
	self parse: '*bar*' rule: #emphasize.
	self assert: result type: PPCMEmphasize.
	self assert: result text = 'bar'.
]

{ #category : 'test-emphasize' }
PPCommonMarkInlineTest >> testEmphasize2 [
	self fail: '\*bar*' rule: #emphasize.
	self fail: '*bar\*' rule: #emphasize.	
]

{ #category : 'tests' }
PPCommonMarkInlineTest >> testEscaped [
	| escaped |
	escaped := self parserInstanceFor: #escaped.
	parser := #any asParser, escaped, 'a' asParser. 
	
	self assert: parser parse: '\a'.
	self assert: parser fail: 'ba'.
	
	escaped := self parserInstanceFor: #escaped.
	parser := #any asParser, #any asParser,  escaped, 'a' asParser. 
	
	self assert: parser parse: 'a\a'.
	self assert: parser fail: '\\a'.	
]

{ #category : 'test-links' }
PPCommonMarkInlineTest >> testLinkDestination [
	self parse: '/url' rule: #linkDestination.
	self assert: result = '/url'.

	self parse: '<my url>' rule: #linkDestination.
	self assert: result = 'my%20url'.

]

{ #category : 'test-links' }
PPCommonMarkInlineTest >> testLinkInLabel [
	parser := self parserInstanceFor: #linkInLabel.

	self assert: parser parse: 'bar [baz](/uri)' end: 4.
	self assert: parser parse: 'foo *[bar [baz](/uri)](/uri)*' end: 10.
]

{ #category : 'test-links' }
PPCommonMarkInlineTest >> testLinkRef [
	parser := self parserInstanceFor: #linkRef.

	self assert: parser fail: '[foo]'.

]

{ #category : 'test-links' }
PPCommonMarkInlineTest >> testLinkRef2 [
	| refDef |
	refDef := PPCMLinkRefDef new
		label: 'foo';
		destination: 'url';
		title: 'title';
		yourself.
	self parserInstance registerLinkRefDef: refDef.
	parser := self parserInstanceFor: #linkRef.

	self assert: parser parse: '[foo]'.

]

{ #category : 'test-paragraph' }
PPCommonMarkInlineTest >> testParagraphBreak [
	self parse: 'foo
bar'.
	self assert: result first type: PPCMText.
	self assert: result first text = 'foo'.
	self assert: result second type: PPCMSoftBreak.
	self assert: result third type: PPCMText.
	self assert: result third text = 'bar'.
]

{ #category : 'test-paragraph' }
PPCommonMarkInlineTest >> testParagraphEscape [
	self parse: 'a *a*'.
	self assert: result size = 2.
	self assert: result second type: PPCMEmphasize.	

	self parse: 'a \*a\*'.
	self assert: result size = 4.
	self assert: result first text = 'a '.
	self assert: result second text = '*'.
	self assert: result third text = 'a'.
	self assert: result fourth text = '*'.	
]

{ #category : 'test-html' }
PPCommonMarkInlineTest >> testRawHtml [
	self parse: '<foo><bar>'.
	
	self assert: result size = 2.
	self assert: result first type: PPCMHtml.
]

{ #category : 'test-emphasize' }
PPCommonMarkInlineTest >> testText [
	self parse: 'foo *bar*'.
	self assert: result size = 2.
	self assert: result first type: PPCMText.
	self assert: result second type: PPCMEmphasize.
]

{ #category : 'test-paragraph' }
PPCommonMarkInlineTest >> testText2 [
	self parse: '*bar*'.
	self assert: result first type: PPCMEmphasize.
	self assert: result first text = 'bar'.
	
	self parse: 'foo*bar*'.
	self assert: result first type: PPCMText.
	self assert: result second type: PPCMEmphasize.
	self assert: result first text = 'foo'.
	self assert: result second text = 'bar'.	
]