Class {
	#name : #PPCommonMarkSpecTest,
	#superclass : #PPCompositeParserTest,
	#instVars : [
		'expected',
		'input',
		'ast',
		'blockParser',
		'blockAst',
		'blockVisitor',
		'htmlVisitor'
	],
	#category : #'PetitMarkdown-Tests'
}

{ #category : #'as yet unclassified' }
PPCommonMarkSpecTest >> assertExample [
	|  |
	"Create block structure"
	blockAst := blockParser parse: input.
	
	"Parse inlines of block"
	ast := blockAst accept: blockVisitor.

	"Generate HTML"
	result := ast accept: htmlVisitor.
	self assert: expected = result.
	
	"
	(TextDiffBuilder from: expected to: result) buildDisplayPatch.
	"
	
	
]

{ #category : #'as yet unclassified' }
PPCommonMarkSpecTest >> setUp [
	blockVisitor := CMBlockVisitor new.
	htmlVisitor := CMHTMLVisitor new.
	blockParser := PPCommonMarkBlockParser new.
]

{ #category : #'tab expansion' }
PPCommonMarkSpecTest >> testExample001 [
	input := String tab, 'foo', String tab, 'baz', String tab, String tab, 'bim'.
	expected := '<pre><code>foo baz     bim
</code></pre>'.

	true ifTrue: [ ^ self flag: 'tabstops not yet supported' ].
	self assertExample.
]

{ #category : #'tab expansion' }
PPCommonMarkSpecTest >> testExample002 [
	input := 'a', String tab, 'a', String cr, '    ὐ', String tab, 'a'.
	expected := '<pre><code>a   a
ὐ   a
</code></pre>'.

	true ifTrue: [ ^ self flag: 'tabstops not yet supported' ].
	self assertExample.
]

{ #category : #precedence }
PPCommonMarkSpecTest >> testExample003 [
	input := '- `one
- two`'.
	expected := '<ul>
<li>`one</li>
<li>two`</li>
</ul>'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample004 [
	input := '***
---
___'.
	expected := '<hr />
<hr />
<hr />'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample004a [
	input := '***'.
	expected := '<hr />'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample005 [
	input := '+++'.
	expected := '<p>+++</p>'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample006 [
	input := '==='.
	expected := '<p>===</p>'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample007 [
	input := '--
**
__'.
	expected := '<p>--
**
__</p>'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample008 [
	input := ' ***
  ***
   ***
'.
	expected := '<hr />
<hr />
<hr />'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample009 [
	input := '    ***'.
	expected := '<pre><code>***
</code></pre>'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample010 [
	input := 'Foo
    ***'.
	expected := '<p>Foo
***</p>'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample011 [
	input := '_____________________________________'.
	expected := '<hr />'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample012 [
	input := ' - - -'.
	expected := '<hr />'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample013 [
	input := ' **  * ** * ** * **'.
	expected := '<hr />'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample014 [
	input := '-     -      -      -'.
	expected := '<hr />'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample015 [
	input := '- - - -    '.
	expected := '<hr />'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample016 [
	input := '_ _ _ _ a

a------

---a---
'.
	expected := '<p>_ _ _ _ a</p>
<p>a------</p>
<p>---a---</p>'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample017 [
	input := ' *-*'.
	expected := '<em>-</em>'.

	self flag: 'updated:'.
	expected := '<p><em>-</em></p>'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample018 [
	input := '- foo
***
- bar'.
	expected := '<ul>
<li>foo</li>
</ul>
<hr />
<ul>
<li>bar</li>
</ul>'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample019 [
	input := 'Foo
***
bar'.
	expected := '<p>Foo</p>
<hr />
<p>bar</p>'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample020 [
	input := 'Foo
---
bar'.
	expected := '<h2>Foo</h2>
<p>bar</p>'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample021 [
	input := '* Foo
* * *
* Bar'.

	expected := '<ul>
<li>Foo</li>
</ul>
<hr />
<ul>
<li>Bar</li>
</ul>'.

	self assertExample.
]

{ #category : #'horizontal rules' }
PPCommonMarkSpecTest >> testExample022 [
	input := '- Foo
- * * *'.

	expected := '<ul>
<li>Foo</li>
<li>
<hr />
</li>
</ul>'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample023 [
	input := '# foo
## foo
### foo
#### foo
##### foo
###### foo'.

	expected := '<h1>foo</h1>
<h2>foo</h2>
<h3>foo</h3>
<h4>foo</h4>
<h5>foo</h5>
<h6>foo</h6>'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample024 [
	input := '####### foo'.

	expected := '<p>####### foo</p>'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample025 [
	input := '#5 bolt'.

	expected := '<p>#5 bolt</p>'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample026 [
	input := '\## foo'.

	expected := '<p>## foo</p>'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample027 [
	input := '# foo *bar* \*baz\*'.

	expected := '<h1>foo <em>bar</em> *baz*</h1>'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample028 [
	input := '#                  foo                    '.

	expected := '<h1>foo</h1>'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample029 [
	input := ' ### foo
  ## foo
   # foo'.

	expected := '<h3>foo</h3>
<h2>foo</h2>
<h1>foo</h1>'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample030 [
	input := '    # foo'.

	expected := '<pre><code># foo
</code></pre>'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample031 [
	input := 'foo
    # bar'.

	expected := '<p>foo
# bar</p>'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample032 [
	input := '## foo ##
  ###   bar    ###'.

	expected := '<h2>foo</h2>
<h3>bar</h3>'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample033 [
	input := '# foo ##################################
##### foo ##'.

	expected := '<h1>foo</h1>
<h5>foo</h5>'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample034 [
	input := '### foo ###     '.

	expected := '<h3>foo</h3>'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample035 [
	input := '### foo ### b'.

	expected := '<h3>foo ### b</h3>'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample036 [
	input := '# foo#'.

	expected := '<h1>foo#</h1>'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample037 [
	input := '### foo \###
## foo #\##
# foo \#'.

	expected := '<h3>foo ###</h3>
<h2>foo ###</h2>
<h1>foo #</h1>'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample038 [
	input := '****
## foo
****'.

	expected := '<hr />
<h2>foo</h2>
<hr />'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample039 [
	input := 'Foo bar
# baz
Bar foo'.

	expected := '<p>Foo bar</p>
<h1>baz</h1>
<p>Bar foo</p>'.

	self assertExample.
]

{ #category : #'ATX Headers' }
PPCommonMarkSpecTest >> testExample040 [
	input := '## 
#
### ###'.

	expected := '<h2></h2>
<h1></h1>
<h3></h3>'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample041 [
	input := 'Foo *bar*
=========

Foo *bar*
---------'.

	expected := '<h1>Foo <em>bar</em></h1>
<h2>Foo <em>bar</em></h2>'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample042 [
	input := 'Foo
-------------------------

Foo
='.

	expected := '<h2>Foo</h2>
<h1>Foo</h1>'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample043 [
	input := '   Foo
---

  Foo
-----

  Foo
  ==='.

	expected := '<h2>Foo</h2>
<h2>Foo</h2>
<h1>Foo</h1>'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample044 [
	input := '    Foo
    ---

    Foo
---'.

	expected := '<pre><code>Foo
---

Foo
</code></pre>
<hr />'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample045 [
	input := 'Foo
   ----      '.

	expected := '<h2>Foo</h2>'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample046 [
	input := 'Foo
    ---'.

	expected := '<p>Foo
---</p>'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample047 [
	input := 'Foo
= =

Foo
--- -
'.

	expected := '<p>Foo
= =</p>
<p>Foo</p>
<hr />'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample048 [
	input := 'Foo  
-----'.

	expected := '<h2>Foo</h2>'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample049 [
	input := 'Foo\
----'.

	expected := '<h2>Foo\</h2>'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample050 [
	input := '`Foo
----
`

<a title="a lot
---
of dashes"/>'.

	expected := '<h2>`Foo</h2>
<p>`</p>
<h2>&lt;a title=&quot;a lot</h2>
<p>of dashes&quot;/&gt;</p>'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample051 [
	input := '> Foo
---'.

	expected := '<blockquote>
<p>Foo</p>
</blockquote>
<hr />'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample052 [
	input := '- Foo
---'.

	expected := '<ul>
<li>Foo</li>
</ul>
<hr />'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample053 [
	input := 'Foo
Bar
---

Foo
Bar
==='.

	expected := '<p>Foo
Bar</p>
<hr />
<p>Foo
Bar
===</p>'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample054 [
	input := '---
Foo
---
Bar
---
Baz'.

	expected := '<hr />
<h2>Foo</h2>
<h2>Bar</h2>
<p>Baz</p>'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample055 [
	input := '
===='.

	expected := '<p>====</p>'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample056 [
	input := '---
---'.

	expected := '<hr />
<hr />'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample057 [
	input := '- foo
-----'.

	expected := '<ul>
<li>foo</li>
</ul>
<hr />'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample058 [
	input := '    foo
---'.

	expected := '<pre><code>foo
</code></pre>
<hr />'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample059 [
	input := '> foo
-----'.

	expected := '<blockquote>
<p>foo</p>
</blockquote>
<hr />'.

	self assertExample.
]

{ #category : #'setext headears' }
PPCommonMarkSpecTest >> testExample060 [
	input := '\> foo
------'.

	expected := '<h2>&gt; foo</h2>'.

	self assertExample.
]

{ #category : #'indented code blocks' }
PPCommonMarkSpecTest >> testExample061 [
	input := '    a simple
      indented code block'.

	expected := '<pre><code>a simple
  indented code block
</code></pre>'.

	self assertExample.
]

{ #category : #'indented code blocks' }
PPCommonMarkSpecTest >> testExample062 [
	input := '    <a/>
    *hi*

    - one'.

	expected := '<pre><code>&lt;a/&gt;
*hi*

- one
</code></pre>'.

	self assertExample.
]

{ #category : #'indented code blocks' }
PPCommonMarkSpecTest >> testExample063 [
	input := '    chunk1

    chunk2
  
 
 
    chunk3'.

	expected := '<pre><code>chunk1

chunk2



chunk3
</code></pre>'.

	self assertExample.
]

{ #category : #'indented code blocks' }
PPCommonMarkSpecTest >> testExample064 [
	input := '    chunk1
      
      chunk2'.

	expected := '<pre><code>chunk1
  
  chunk2
</code></pre>'.

	self assertExample.
]

{ #category : #'indented code blocks' }
PPCommonMarkSpecTest >> testExample065 [
	input := 'Foo
    bar'.

	expected := '<p>Foo
bar</p>'.

	self assertExample.
]

{ #category : #'indented code blocks' }
PPCommonMarkSpecTest >> testExample066 [
	input := '    foo
bar'.

	expected := '<pre><code>foo
</code></pre>
<p>bar</p>'.

	self assertExample.
]

{ #category : #'indented code blocks' }
PPCommonMarkSpecTest >> testExample067 [
	input := '# Header
    foo
Header
------
    foo
----'.

	expected := '<h1>Header</h1>
<pre><code>foo
</code></pre>
<h2>Header</h2>
<pre><code>foo
</code></pre>
<hr />'.

	self assertExample.
]

{ #category : #'indented code blocks' }
PPCommonMarkSpecTest >> testExample068 [
	input := '        foo
    bar'.

	expected := '<pre><code>    foo
bar
</code></pre>'.

	self assertExample.
]

{ #category : #'indented code blocks' }
PPCommonMarkSpecTest >> testExample069 [
	input := '
    
    foo
    '.

	expected := '<pre><code>foo
</code></pre>'.

	self assertExample.
]

{ #category : #'indented code blocks' }
PPCommonMarkSpecTest >> testExample070 [
	input := '    foo  
'.

	expected := '<pre><code>foo  
</code></pre>'.

	self assertExample.
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample071 [
	input := '```
<
 >
```'.

	expected := '<pre><code>&lt;
 &gt;
</code></pre>'.

	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample072 [
	input := '~~~
<
 >
~~~'.

	expected := '<pre><code>&lt;
 &gt;
</code></pre>'.

	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample073 [
	input := '```
aaa
~~~
```'.

	expected := '<pre><code>aaa
~~~
</code></pre>'.

	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample074 [
	input := '~~~
aaa
```
~~~'.

	expected := '<pre><code>aaa
```
</code></pre>'.

	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample075 [
	input := '````
aaa
```
``````'.

	expected := '<pre><code>aaa
```
</code></pre>'.

	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample076 [
	input := '~~~~
aaa
~~~
~~~~'.

	expected := '<pre><code>aaa
~~~
</code></pre>'.

	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample077 [
	input := '```'.

	expected := '<pre><code></code></pre>'.

	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample078 [
	input := '

`````

```
aaa
'.

	expected := '<pre><code>
```
aaa
</code></pre>'.

	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample079 [
	input := '```

  
```
'.

	expected := '<pre><code>
  
</code></pre>'.

	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample080 [
	input := '```
```'.

	expected := '<pre><code></code></pre>'.

	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample081 [
	input := ' ```
 aaa
aaa
```'.

	expected := '<pre><code>aaa
aaa
</code></pre>'.

	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample082 [
	input := '  ```
aaa
  aaa
aaa
  ```'.

	expected := '<pre><code>aaa
aaa
aaa
</code></pre>'.

	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample083 [
	input := '   ```
   aaa
    aaa
  aaa
   ```'.

	expected := '<pre><code>aaa
 aaa
aaa
</code></pre>'.

	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample084 [
	input := '    ```
    aaa
    ```'.

	expected := '<pre><code>```
aaa
```
</code></pre>'.

	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample085 [
	input := '```
aaa
  ```'.

	expected := '<pre><code>aaa
</code></pre>'.

	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample086 [
	input := '   ```
aaa
  ```'.

	expected := '<pre><code>aaa
</code></pre>'.

	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample087 [
	input := '```
aaa
    ```'.

	expected := '<pre><code>aaa
    ```
</code></pre>'.

	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample088 [
	input := '``` ```
aaa'.

	expected := '<p><code></code>
aaa</p>'.
	
	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample089 [
	input := '~~~~~~
aaa
~~~ ~~'.

	expected := '<pre><code>aaa
~~~ ~~
</code></pre>'.
	
	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample090 [
	input := 'foo
```
bar
```
baz'.

	expected := '<p>foo</p>
<pre><code>bar
</code></pre>
<p>baz</p>'.
	
	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample091 [
	input := 'foo
---
~~~
bar
~~~
# baz'.

	expected := '<h2>foo</h2>
<pre><code>bar
</code></pre>
<h1>baz</h1>'.
	
	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample092 [
	input := '```ruby
def foo(x)
  return 3
end
```'.

	expected := '<pre><code class="language-ruby">def foo(x)
  return 3
end
</code></pre>'.
	
	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample093 [
	input := '~~~~    ruby startline=3 $%@#$
def foo(x)
  return 3
end
~~~~~~~'.

	expected := '<pre><code class="language-ruby">def foo(x)
  return 3
end
</code></pre>'.
	
	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample094 [
	input := '````;
````'.

	expected := '<pre><code class="language-;"></code></pre>'.
	
	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample095 [
	input := '``` aa ```
foo'.

	expected := '<p><code>aa</code>
foo</p>'.
	
	self assertExample. 
]

{ #category : #'fenced code blocks' }
PPCommonMarkSpecTest >> testExample096 [
	input := '```
``` aaa
```'.

	expected := '<pre><code>``` aaa
</code></pre>'.
	
	self assertExample. 
]

{ #category : #'html blocks' }
PPCommonMarkSpecTest >> testExample097 [
	input := '<table>
  <tr>
    <td>
           hi
    </td>
  </tr>
</table>

okay.'.

	expected := '<table>
  <tr>
    <td>
           hi
    </td>
  </tr>
</table>
<p>okay.</p>'.
	
	self assertExample. 
]

{ #category : #'html blocks' }
PPCommonMarkSpecTest >> testExample098 [
	input := ' <div>
  *hello*
         <foo><a>
'.

	expected := ' <div>
  *hello*
         <foo><a>'.
	
	self assertExample. 
]

{ #category : #'html blocks' }
PPCommonMarkSpecTest >> testExample099 [
	input := '<DIV CLASS="foo">

*Markdown*

</DIV>'.

	expected := '<DIV CLASS="foo">
<p><em>Markdown</em></p>
</DIV>'.
	
	self assertExample. 
]

{ #category : #'html blocks' }
PPCommonMarkSpecTest >> testExample100 [
	input := '<div></div>
``` c
int x = 33;
```'.

	expected := '<div></div>
``` c
int x = 33;
```'.
	
	self assertExample. 
]

{ #category : #'html blocks' }
PPCommonMarkSpecTest >> testExample101 [
	input := '<!-- Foo
bar
   baz -->'.

	expected := '<!-- Foo
bar
   baz -->'.
	
	self assertExample. 
]

{ #category : #'html blocks' }
PPCommonMarkSpecTest >> testExample102 [
	input := '<?php
  echo ''>'';
?>'.

	expected := '<?php
  echo ''>'';
?>'.
	
	self assertExample. 
]

{ #category : #'html blocks' }
PPCommonMarkSpecTest >> testExample103 [
	input := '<![CDATA[
function matchwo(a,b)
{
if (a < b && a < 0) then
  {
  return 1;
  }
else
  {
  return 0;
  }
}
]]>'.

	expected := '<![CDATA[
function matchwo(a,b)
{
if (a < b && a < 0) then
  {
  return 1;
  }
else
  {
  return 0;
  }
}
]]>'.
	
	self assertExample. 
]

{ #category : #'html blocks' }
PPCommonMarkSpecTest >> testExample104 [
	input := '  <!-- foo -->

    <!-- foo -->'.

	expected := '  <!-- foo -->
<pre><code>&lt;!-- foo --&gt;
</code></pre>'.
	
	self assertExample. 
]

{ #category : #'html blocks' }
PPCommonMarkSpecTest >> testExample105 [
	input := 'Foo
<div>
bar
</div>'.

	expected := '<p>Foo</p>
<div>
bar
</div>'.
	
	self assertExample. 
]

{ #category : #'html blocks' }
PPCommonMarkSpecTest >> testExample106 [
	input := '<div>
bar
</div>
*foo*'.

	expected := '<div>
bar
</div>
*foo*'.
	
	self assertExample. 
]

{ #category : #'html blocks' }
PPCommonMarkSpecTest >> testExample107 [
	input := '<div class
foo'.

	expected := '<div class
foo'.
	
	self assertExample. 
]

{ #category : #'html blocks' }
PPCommonMarkSpecTest >> testExample108 [
	input := '<div>

*Emphasized* text.

</div>'.

	expected := '<div>
<p><em>Emphasized</em> text.</p>
</div>'.
	
	self assertExample. 
]

{ #category : #'html blocks' }
PPCommonMarkSpecTest >> testExample109 [
	input := '<div>
*Emphasized* text.
</div>'.

	expected := '<div>
*Emphasized* text.
</div>'.
	
	self assertExample. 
]

{ #category : #'html blocks' }
PPCommonMarkSpecTest >> testExample110 [
	input := '<table>

<tr>

<td>
Hi
</td>

</tr>

</table>'.

	expected := '<table>
<tr>
<td>
Hi
</td>
</tr>
</table>'.
	
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample111 [
	input := '[foo]: /url "title"

[foo]'.

	expected := '<p><a href="/url" title="title">foo</a></p>'.
	
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample112 [
	input := '   [foo]: 
      /url  
           ''the title''  

[foo]'.

	expected := '<p><a href="/url" title="the title">foo</a></p>'.
	
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample113 [
	input := '[Foo*bar\]]:my_(url) ''title (with parens)''

[Foo*bar\]]'.

	expected := '<p><a href="my_(url)" title="title (with parens)">Foo*bar]</a></p>'.
	
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample114 [
	input := '[Foo bar]:
<my url>
''title''

[Foo bar]'.

	expected := '<p><a href="my%20url" title="title">Foo bar</a></p>'.
	
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample115 [
	input := '[foo]: /url ''
title
line1
line2
''

[foo]'.

	expected := '<p><a href="/url" title="
title
line1
line2
">foo</a></p>'.
	
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample116 [
	input := '[foo]: /url ''title

with blank line''

[foo]'.

	expected := '<p>[foo]: /url ''title</p>
<p>with blank line''</p>
<p>[foo]</p>'.
	
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample117 [
	input := '[foo]:
/url

[foo]'.

	expected := '<p><a href="/url">foo</a></p>'.
	
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample118 [
	input := '[foo]:

[foo]'.

	expected := '<p>[foo]:</p>
<p>[foo]</p>'.
	
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample119 [
	input := '[foo]

[foo]: url'.

	expected := '[foo]

[foo]: url'.
	
	true ifTrue: [ ^ self flag: 'links before definitions not yet supported' ].
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample120 [
	input := '[foo]: first
[foo]: second

[foo]'.

	expected := '<p><a href="first">foo</a></p>'.
	
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample121 [
	input := '[FOO]: /url

[Foo]'.

	expected := '<p><a href="/url">Foo</a></p>'.
	
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample122 [
	input := '[ΑΓΩ]: /φου

[αγω]'.

	expected := '<p><a href="/%CF%86%CE%BF%CF%85">αγω</a></p>'.
	true ifTrue: [ ^ self flag: 'escaping not yet supported...' ].
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample122a [
	input := '[ΑΓΩ]: /foo

[αγω]'.

	expected := '<p><a href="/foo">αγω</a></p>'.
	
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample123 [
	input := '[foo]: /url'.

	expected := ''.
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample124 [
	input := '[
foo
]: /url
bar'.

	expected := '<p>bar</p>'.
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample125 [
	input := '[foo]: /url "title" ok'.

	expected := '<p>[foo]: /url &quot;title&quot; ok</p>'.
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample126 [
	input := '    [foo]: /url "title"

[foo]'.

	expected := '<pre><code>[foo]: /url &quot;title&quot;
</code></pre>
<p>[foo]</p>'.
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample127 [
	input := '```
[foo]: /url
```

[foo]
'.

	expected := '<pre><code>[foo]: /url
</code></pre>
<p>[foo]</p>'.
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample128 [
	input := 'Foo
[bar]: /baz

[bar]'.

	expected := '<p>Foo
[bar]: /baz</p>
<p>[bar]</p>'.
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample129 [
	input := '# [Foo]
[foo]: /url
> bar'.

	expected := '<h1><a href="/url">Foo</a></h1>
<blockquote>
<p>bar</p>
</blockquote>'.
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample129a [
	input := '[foo]: /url
# [Foo]
> bar'.

	expected := '<h1><a href="/url">Foo</a></h1>
<blockquote>
<p>bar</p>
</blockquote>'.
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample130 [
	input := '[foo]: /foo-url "foo"
[bar]: /bar-url
  "bar"
[baz]: /baz-url

[foo],
[bar],
[baz]'.

	expected := '<p><a href="/foo-url" title="foo">foo</a>,
<a href="/bar-url" title="bar">bar</a>,
<a href="/baz-url">baz</a></p>'.
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample131 [
	input := '[foo]

> [foo]: /url'.

	expected := '<p><a href="/url">foo</a></p>
<blockquote>
</blockquote>'.
	self assertExample. 
]

{ #category : #'link references' }
PPCommonMarkSpecTest >> testExample131a [
	input := '> [foo]: /url
[foo]'.

	expected := '<blockquote>
</blockquote>
<p><a href="/url">foo</a></p>'.
	self assertExample. 
]

{ #category : #paragraphs }
PPCommonMarkSpecTest >> testExample132 [
	input := 'aaa

bbb'.

	expected := '<p>aaa</p>
<p>bbb</p>'.
	self assertExample. 
]

{ #category : #paragraphs }
PPCommonMarkSpecTest >> testExample133 [
	input := 'aaa
bbb

ccc
ddd'.

	expected := '<p>aaa
bbb</p>
<p>ccc
ddd</p>'.
	self assertExample. 
]

{ #category : #paragraphs }
PPCommonMarkSpecTest >> testExample134 [
	input := 'aaa


bbb'.

	expected := '<p>aaa</p>
<p>bbb</p>'.
	self assertExample. 
]

{ #category : #paragraphs }
PPCommonMarkSpecTest >> testExample135 [
	input := '  aaa
 bbb'.

	expected := '<p>aaa
bbb</p>'.
	self assertExample. 
]

{ #category : #paragraphs }
PPCommonMarkSpecTest >> testExample136 [
	input := 'aaa
             bbb
                                       ccc'.

	expected := '<p>aaa
bbb
ccc</p>'.
	self assertExample. 
]

{ #category : #paragraphs }
PPCommonMarkSpecTest >> testExample137 [
	input := '   aaa
bbb'.

	expected := '<p>aaa
bbb</p>'.
	self assertExample. 
]

{ #category : #paragraphs }
PPCommonMarkSpecTest >> testExample138 [
	input := '    aaa
bbb'.

	expected := '<pre><code>aaa
</code></pre>
<p>bbb</p>'.

	self assertExample. 
]

{ #category : #paragraphs }
PPCommonMarkSpecTest >> testExample139 [
	input := 'aaa     
bbb     '.

	expected := '<p>aaa<br />
bbb</p>'.

	self assertExample. 
]

{ #category : #'blank lines' }
PPCommonMarkSpecTest >> testExample140 [
	input := '  

aaa
  

# aaa

  
'.

	expected := '<p>aaa</p>
<h1>aaa</h1>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample141 [
	input := '> # Foo
> bar
> baz'.

	expected := '<blockquote>
<h1>Foo</h1>
<p>bar
baz</p>
</blockquote>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample142 [
	input := '># Foo
>bar
> baz'.

	expected := '<blockquote>
<h1>Foo</h1>
<p>bar
baz</p>
</blockquote>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample143 [
	input := '   > # Foo
   > bar
 > baz'.

	expected := '<blockquote>
<h1>Foo</h1>
<p>bar
baz</p>
</blockquote>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample144 [
	input := '    > # Foo
    > bar
    > baz'.

	expected := '<pre><code>&gt; # Foo
&gt; bar
&gt; baz
</code></pre>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample145 [
	input := '> # Foo
> bar
baz'.

	expected := '<blockquote>
<h1>Foo</h1>
<p>bar
baz</p>
</blockquote>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample146 [
	input := '> bar
baz
> foo'.

	expected := '<blockquote>
<p>bar
baz
foo</p>
</blockquote>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample147 [
	input := '> foo
---'.

	expected := '<blockquote>
<p>foo</p>
</blockquote>
<hr />'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample148 [
	input := '> - foo
- bar'.

	expected := '<blockquote>
<ul>
<li>foo</li>
</ul>
</blockquote>
<ul>
<li>bar</li>
</ul>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample149 [
	input := '>     foo
    bar'.

	expected := '<blockquote>
<pre><code>foo
</code></pre>
</blockquote>
<pre><code>bar
</code></pre>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample150 [
	input := '> ```
foo
```'.

	expected := '<blockquote>
<pre><code></code></pre>
</blockquote>
<p>foo</p>
<pre><code></code></pre>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample151 [
	input := '>'.

	expected := '<blockquote>
</blockquote>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample152 [
	input := '>
>  
> '.

	expected := '<blockquote>
</blockquote>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample153 [
	input := '>
> foo
>  '.

	expected := '<blockquote>
<p>foo</p>
</blockquote>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample154 [
	input := '> foo

> bar'.

	expected := '<blockquote>
<p>foo</p>
</blockquote>
<blockquote>
<p>bar</p>
</blockquote>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample155 [
	input := '> foo
> bar'.

	expected := '<blockquote>
<p>foo
bar</p>
</blockquote>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample156 [
	input := '> foo
>
> bar'.

	expected := '<blockquote>
<p>foo</p>
<p>bar</p>
</blockquote>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample157 [
	input := 'foo
> bar'.

	expected := '<p>foo</p>
<blockquote>
<p>bar</p>
</blockquote>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample158 [
	input := '> aaa
***
> bbb'.

	expected := '<blockquote>
<p>aaa</p>
</blockquote>
<hr />
<blockquote>
<p>bbb</p>
</blockquote>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample159 [
	input := '> bar
baz'.

	expected := '<blockquote>
<p>bar
baz</p>
</blockquote>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample160 [
	input := '> bar

baz'.

	expected := '<blockquote>
<p>bar</p>
</blockquote>
<p>baz</p>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample161 [
	input := '> bar
>
baz'.

	expected := '<blockquote>
<p>bar</p>
</blockquote>
<p>baz</p>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample162 [
	input := '> > > foo
bar'.

	expected := '<blockquote>
<blockquote>
<blockquote>
<p>foo
bar</p>
</blockquote>
</blockquote>
</blockquote>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample163 [
	input := '>>> foo
> bar
>>baz'.

	expected := '<blockquote>
<blockquote>
<blockquote>
<p>foo
bar
baz</p>
</blockquote>
</blockquote>
</blockquote>'.

	self assertExample. 
]

{ #category : #'block quotes' }
PPCommonMarkSpecTest >> testExample164 [
	input := '>     code

>    not code'.

	expected := '<blockquote>
<pre><code>code
</code></pre>
</blockquote>
<blockquote>
<p>not code</p>
</blockquote>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample165 [
	input := 'A paragraph
with two lines.

    indented code

> A block quote.'.

	expected := '<p>A paragraph
with two lines.</p>
<pre><code>indented code
</code></pre>
<blockquote>
<p>A block quote.</p>
</blockquote>'.
	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample166 [
	input := '1.  A paragraph
    with two lines.

        indented code

    > A block quote.'.

	expected := '<ol>
<li>
<p>A paragraph
with two lines.</p>
<pre><code>indented code
</code></pre>
<blockquote>
<p>A block quote.</p>
</blockquote>
</li>
</ol>'.
	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample167 [
	input := '- one

 two'.

	expected := '<ul>
<li>one</li>
</ul>
<p>two</p>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample168 [
	input := '- one

  two'.

	expected := '<ul>
<li>
<p>one</p>
<p>two</p>
</li>
</ul>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample169 [
	input := ' -    one

     two'.

	expected := '<ul>
<li>one</li>
</ul>
<pre><code> two
</code></pre>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample170 [
	input := ' -    one

      two'.

	expected := '<ul>
<li>
<p>one</p>
<p>two</p>
</li>
</ul>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample171 [
	input := '   > > 1.  one
>>
>>     two'.

	expected := '<blockquote>
<blockquote>
<ol>
<li>
<p>one</p>
<p>two</p>
</li>
</ol>
</blockquote>
</blockquote>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample172 [
	input := '>>- one
>>
  >  > two'.

	expected := '<blockquote>
<blockquote>
<ul>
<li>one</li>
</ul>
<p>two</p>
</blockquote>
</blockquote>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample173 [
	input := '-one

2.two'.

	expected := '<p>-one</p>
<p>2.two</p>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample174 [
	input := '- foo

  bar

- foo


  bar

- ```
  foo


  bar
  ```

- baz

  + ```
    foo


    bar
    ```'.

	expected := '<ul>
<li>
<p>foo</p>
<p>bar</p>
</li>
<li>
<p>foo</p>
</li>
</ul>
<p>bar</p>
<ul>
<li>
<pre><code>foo


bar
</code></pre>
</li>
<li>
<p>baz</p>
<ul>
<li>
<pre><code>foo


bar
</code></pre>
</li>
</ul>
</li>
</ul>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample175 [
	input := '1.  foo

    ```
    bar
    ```

    baz

    > bam'.

	expected := '<ol>
<li>
<p>foo</p>
<pre><code>bar
</code></pre>
<p>baz</p>
<blockquote>
<p>bam</p>
</blockquote>
</li>
</ol>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample176 [
	input := '- foo

      bar'.

	expected := '<ul>
<li>
<p>foo</p>
<pre><code>bar
</code></pre>
</li>
</ul>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample177 [
	input := '

  10.  foo

           bar'.

	expected := '<ol start="10">
<li>
<p>foo</p>
<pre><code>bar
</code></pre>
</li>
</ol>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample178 [
	input := '    indented code

paragraph

    more code'.

	expected := '<pre><code>indented code
</code></pre>
<p>paragraph</p>
<pre><code>more code
</code></pre>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample179 [
	input := '1.     indented code

   paragraph

       more code'.

	expected := '<ol>
<li>
<pre><code>indented code
</code></pre>
<p>paragraph</p>
<pre><code>more code
</code></pre>
</li>
</ol>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample180 [
	input := '1.      indented code

   paragraph

       more code'.

	expected := '<ol>
<li>
<pre><code> indented code
</code></pre>
<p>paragraph</p>
<pre><code>more code
</code></pre>
</li>
</ol>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample181 [
	input := '   foo

bar'.

	expected := '<p>foo</p>
<p>bar</p>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample182 [
	input := '-    foo

  bar'.

	expected := '<ul>
<li>foo</li>
</ul>
<p>bar</p>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample183 [
	input := '-  foo

   bar'.

	expected := '<ul>
<li>
<p>foo</p>
<p>bar</p>
</li>
</ul>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample184 [
	input := '-
  foo
-
  ```
  bar
  ```
-
      baz'.

	expected := '<ul>
<li>foo</li>
<li>
<pre><code>bar
</code></pre>
</li>
<li>
<pre><code>baz
</code></pre>
</li>
</ul>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample185 [
	input := '- foo
-
- bar'.

	expected := '<ul>
<li>foo</li>
<li></li>
<li>bar</li>
</ul>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample186 [
	input := '- foo
-   
- bar'.

	expected := '<ul>
<li>foo</li>
<li></li>
<li>bar</li>
</ul>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample187 [
	input := '1. foo
2.
3. bar'.

	expected := '<ol>
<li>foo</li>
<li></li>
<li>bar</li>
</ol>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample188 [
	input := '*'.

	expected := '<ul>
<li></li>
</ul>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample189 [
	input := ' 1.  A paragraph
     with two lines.

         indented code

     > A block quote.'.

	expected := '<ol>
<li>
<p>A paragraph
with two lines.</p>
<pre><code>indented code
</code></pre>
<blockquote>
<p>A block quote.</p>
</blockquote>
</li>
</ol>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample190 [
	input := '  1.  A paragraph
      with two lines.

          indented code

      > A block quote.'.

	expected := '<ol>
<li>
<p>A paragraph
with two lines.</p>
<pre><code>indented code
</code></pre>
<blockquote>
<p>A block quote.</p>
</blockquote>
</li>
</ol>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample191 [
	input := '   1.  A paragraph
       with two lines.

           indented code

       > A block quote.'.

	expected := '<ol>
<li>
<p>A paragraph
with two lines.</p>
<pre><code>indented code
</code></pre>
<blockquote>
<p>A block quote.</p>
</blockquote>
</li>
</ol>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample192 [
	input := '    1.  A paragraph
        with two lines.

            indented code

        > A block quote.'.

	expected := '<pre><code>1.  A paragraph
    with two lines.

        indented code

    &gt; A block quote.
</code></pre>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample193 [
	input := '  1.  A paragraph
with two lines.

          indented code

      > A block quote.'.

	expected := '<ol>
<li>
<p>A paragraph
with two lines.</p>
<pre><code>indented code
</code></pre>
<blockquote>
<p>A block quote.</p>
</blockquote>
</li>
</ol>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample194 [
	input := '  1.  A paragraph
    with two lines.'.

	expected := '<ol>
<li>A paragraph
with two lines.</li>
</ol>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample195 [
	input := '> 1. > Blockquote
continued here.'.

	expected := '<blockquote>
<ol>
<li>
<blockquote>
<p>Blockquote
continued here.</p>
</blockquote>
</li>
</ol>
</blockquote>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample196 [
	input := '> 1. > Blockquote
> continued here.'.

	expected := '<blockquote>
<ol>
<li>
<blockquote>
<p>Blockquote
continued here.</p>
</blockquote>
</li>
</ol>
</blockquote>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample197 [
	input := '- foo
  - bar
    - baz'.

	expected := '<ul>
<li>foo
<ul>
<li>bar
<ul>
<li>baz</li>
</ul>
</li>
</ul>
</li>
</ul>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample198 [
	input := '- foo
 - bar
  - baz'.

	expected := '<ul>
<li>foo</li>
<li>bar</li>
<li>baz</li>
</ul>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample199 [
	input := '10) foo
    - bar'.

	expected := '<ol start="10">
<li>foo
<ul>
<li>bar</li>
</ul>
</li>
</ol>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample200 [
	input := '10) foo
   - bar'.

	expected := '<ol start="10">
<li>foo</li>
</ol>
<ul>
<li>bar</li>
</ul>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample201 [
	input := '- - foo'.

	expected := '<ul>
<li>
<ul>
<li>foo</li>
</ul>
</li>
</ul>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample202 [
	input := '1. - 2. foo'.

	expected := '<ol>
<li>
<ul>
<li>
<ol start="2">
<li>foo</li>
</ol>
</li>
</ul>
</li>
</ol>'.

	self assertExample. 
]

{ #category : #'list items' }
PPCommonMarkSpecTest >> testExample203 [
	input := '- # Foo
- Bar
  ---
  baz'.

	expected := '<ul>
<li>
<h1>Foo</h1>
</li>
<li>
<h2>Bar</h2>baz</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample204 [
	input := '- foo
- bar
+ baz'.

	expected := '<ul>
<li>foo</li>
<li>bar</li>
</ul>
<ul>
<li>baz</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample205 [
	input := '1. foo
2. bar
3) baz'.

	expected := '<ol>
<li>foo</li>
<li>bar</li>
</ol>
<ol start="3">
<li>baz</li>
</ol>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample206 [
	input := 'Foo
- bar
- baz'.

	expected := '<p>Foo</p>
<ul>
<li>bar</li>
<li>baz</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample207 [
	input := 'The number of windows in my house is
14.  The number of doors is 6.'.

	expected := '<p>The number of windows in my house is</p>
<ol start="14">
<li>The number of doors is 6.</li>
</ol>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample208 [
	input := '- foo

- bar


- baz'.

	expected := '<ul>
<li>
<p>foo</p>
</li>
<li>
<p>bar</p>
</li>
</ul>
<ul>
<li>baz</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample209 [
	input := '- foo


  bar
- baz'.

	expected := '<ul>
<li>foo</li>
</ul>
<p>bar</p>
<ul>
<li>baz</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample210 [
	input := '- foo
  - bar
    - baz


      bim'.

	expected := '<ul>
<li>foo
<ul>
<li>bar
<ul>
<li>baz</li>
</ul>
</li>
</ul>
</li>
</ul>
<pre><code>  bim
</code></pre>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample211 [
	input := '- foo
- bar


- baz
- bim'.

	expected := '<ul>
<li>foo</li>
<li>bar</li>
</ul>
<ul>
<li>baz</li>
<li>bim</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample212 [
	input := '-   foo

    notcode

-   foo


    code'.

	expected := '<ul>
<li>
<p>foo</p>
<p>notcode</p>
</li>
<li>
<p>foo</p>
</li>
</ul>
<pre><code>code
</code></pre>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample213 [
	input := '- a
 - b
  - c
   - d
  - e
 - f
- g
'.

	expected := '<ul>
<li>a</li>
<li>b</li>
<li>c</li>
<li>d</li>
<li>e</li>
<li>f</li>
<li>g</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample214 [
	input := '- a
- b

- c'.

	expected := '<ul>
<li>
<p>a</p>
</li>
<li>
<p>b</p>
</li>
<li>
<p>c</p>
</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample215 [
	input := '* a
*

* c'.

	expected := '<ul>
<li>
<p>a</p>
</li>
<li></li>
<li>
<p>c</p>
</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample216 [
	input := '- a
- b

  c
- d'.

	expected := '<ul>
<li>
<p>a</p>
</li>
<li>
<p>b</p>
<p>c</p>
</li>
<li>
<p>d</p>
</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample217 [
	input := '

- a
- b

  [ref]: /url
- d'.

	expected := '<ul>
<li>
<p>a</p>
</li>
<li>
<p>b</p>
</li>
<li>
<p>d</p>
</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample218 [
	input := '- a
- ```
  b


  ```
- c'.

	expected := '<ul>
<li>a</li>
<li>
<pre><code>b


</code></pre>
</li>
<li>c</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample219 [
	input := '- a
  - b

    c
- d'.

	expected := '<ul>
<li>a
<ul>
<li>
<p>b</p>
<p>c</p>
</li>
</ul>
</li>
<li>d</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample220 [
	input := '* a
  > b
  >
* c'.

	expected := '<ul>
<li>a
<blockquote>
<p>b</p>
</blockquote>
</li>
<li>c</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample221 [
	input := '- a
  > b
  ```
  c
  ```
- d'.

	expected := '<ul>
<li>a
<blockquote>
<p>b</p>
</blockquote>
<pre><code>c
</code></pre>
</li>
<li>d</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample222 [
	input := '- a'.

	expected := '<ul>
<li>a</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample223 [
	input := '- a
  - b'.

	expected := '<ul>
<li>a
<ul>
<li>b</li>
</ul>
</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample224 [
	input := '1. ```
   foo
   ```

   bar'.

	expected := '<ol>
<li>
<pre><code>foo
</code></pre>
<p>bar</p>
</li>
</ol>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample225 [
	input := '* foo
  * bar

  baz'.

	expected := '<ul>
<li>
<p>foo</p>
<ul>
<li>bar</li>
</ul>
<p>baz</p>
</li>
</ul>'.

	self assertExample. 
]

{ #category : #lists }
PPCommonMarkSpecTest >> testExample226 [
	input := '- a
  - b
  - c

- d
  - e
  - f'.

	expected := '<ul>
<li>
<p>a</p>
<ul>
<li>b</li>
<li>c</li>
</ul>
</li>
<li>
<p>d</p>
<ul>
<li>e</li>
<li>f</li>
</ul>
</li>
</ul>'.

	self assertExample. 
]

{ #category : #'backslash escapes' }
PPCommonMarkSpecTest >> testExample227 [
	input := '`hi`lo`'.

	expected := '<p><code>hi</code>lo`</p>'.

	self assertExample. 
]

{ #category : #'backslash escapes' }
PPCommonMarkSpecTest >> testExample228 [
	input := '\!\"\#\$\%\&\''\(\)\*\+\,\-\.\/\:\;\<\=\>\?\@\[\\\]\^\_\`\{\|\}\~'.

	expected := '<p>!&quot;#$%&amp;''()*+,-./:;&lt;=&gt;?@[\]^_`{|}~</p>'.

	self assertExample. 
]

{ #category : #'backslash escapes' }
PPCommonMarkSpecTest >> testExample229 [
	input := '\A\a\ \3\φ\«'.

	expected := '<p>\A\a\ \3\φ\«</p>'.

	self assertExample. 
]

{ #category : #'backslash escapes' }
PPCommonMarkSpecTest >> testExample230 [
	input := '\*not emphasized*
\<br/> not a tag
\[not a link](/foo)
\`not code`
1\. not a list
\* not a list
\# not a header
\[foo]: /url "not a reference"'.

	expected := '<p>*not emphasized*
&lt;br/&gt; not a tag
[not a link](/foo)
`not code`
1. not a list
* not a list
# not a header
[foo]: /url &quot;not a reference&quot;</p>'.

	self assertExample. 
]

{ #category : #'backslash escapes' }
PPCommonMarkSpecTest >> testExample231 [
	input := '\\*emphasis*'.

	expected := '<p>\<em>emphasis</em></p>'.

	self assertExample. 
]

{ #category : #'backslash escapes' }
PPCommonMarkSpecTest >> testExample232 [
	input := 'foo\
bar'.

	expected := '<p>foo<br />
bar</p>'.

	self assertExample. 
]

{ #category : #'backslash escapes' }
PPCommonMarkSpecTest >> testExample233 [
	input := '`` \[\` ``'.

	expected := '<p><code>\[\`</code></p>'.

	self assertExample. 
]

{ #category : #'backslash escapes' }
PPCommonMarkSpecTest >> testExample234 [
	input := '    \[\]'.

	expected := '<pre><code>\[\]
</code></pre>'.

	self assertExample. 
]

{ #category : #'backslash escapes' }
PPCommonMarkSpecTest >> testExample235 [
	input := '~~~
\[\]
~~~'.

	expected := '<pre><code>\[\]
</code></pre>'.

	self assertExample. 
]

{ #category : #'backslash escapes' }
PPCommonMarkSpecTest >> testExample236 [
	input := '<http://example.com?find=\*>'.

	expected := '<p><a href="http://example.com?find=%5C*">http://example.com?find=\*</a></p>'.

	self assertExample. 
]

{ #category : #'backslash escapes' }
PPCommonMarkSpecTest >> testExample237 [
	input := '<a href="/bar\/)">'.

	expected := '<p><a href="/bar\/)"></p>'.

	self assertExample. 
]

{ #category : #'backslash escapes' }
PPCommonMarkSpecTest >> testExample238 [
	input := '[foo](/bar\* "ti\*tle")'.

	expected := '<p><a href="/bar*" title="ti*tle">foo</a></p>'.

	self assertExample. 
]

{ #category : #'backslash escapes' }
PPCommonMarkSpecTest >> testExample239 [
	input := '[foo]

[foo]: /bar\* "ti\*tle"'.

	expected := '<p><a href="/bar*" title="ti*tle">foo</a></p>'.

	self assertExample. 
]

{ #category : #'backslash escapes' }
PPCommonMarkSpecTest >> testExample239a [
	input := '[foo]: /bar\* "ti\*tle"

[foo]'.

	expected := '<p><a href="/bar*" title="ti*tle">foo</a></p>'.

	self assertExample. 
]

{ #category : #'backslash escapes' }
PPCommonMarkSpecTest >> testExample240 [
	input := '``` foo\+bar
foo
```'.

	expected := '<pre><code class="language-foo+bar">foo
</code></pre>'.

	self assertExample. 
]

{ #category : #entitites }
PPCommonMarkSpecTest >> testExample241 [
	input := '&nbsp; &amp; &copy; &AElig; &Dcaron;'.
	expected := '<p>  &amp; © Æ Ď</p>'.

	self assertExample. 
]

{ #category : #entitites }
PPCommonMarkSpecTest >> testExample242 [
	input := '&#35; &#1234; &#992;'.
	expected := '<p># Ӓ Ϡ</p>'.

	self assertExample. 
]

{ #category : #entitites }
PPCommonMarkSpecTest >> testExample243 [
	input := '&#x22; &#xD06; &#xcab;'.
	expected := '<p>&quot; ആ ಫ</p>'.

	self assertExample. 
]

{ #category : #entitites }
PPCommonMarkSpecTest >> testExample244 [
	input := '&nbsp &x; &#; &#x; &ThisIsWayTooLongToBeAnEntityIsntIt; &hi?;'.

	expected := '<p>&amp;nbsp &amp;x; &amp;#; &amp;#x; &amp;ThisIsWayTooLongToBeAnEntityIsntIt; &amp;hi?;</p>'.

	self assertExample. 
]

{ #category : #entitites }
PPCommonMarkSpecTest >> testExample245 [
	input := '&copy'.

	expected := '<p>&amp;copy</p>'.

	self assertExample. 
]

{ #category : #entitites }
PPCommonMarkSpecTest >> testExample246 [
	input := '&MadeUpEntity;'.

	expected := '<p>&amp;MadeUpEntity;</p>'.

	self assertExample. 
]

{ #category : #entitites }
PPCommonMarkSpecTest >> testExample247 [
	input := '<a href="&ouml;&ouml;.html">'.

	expected := '<p><a href="&ouml;&ouml;.html"></p>'.

	self assertExample. 
]

{ #category : #entitites }
PPCommonMarkSpecTest >> testExample248 [
	input := '[foo](/f&ouml;&ouml; "f&ouml;&ouml;")'.

	expected := '<p><a href="/f%C3%B6%C3%B6" title="föö">foo</a></p>'.

	self assertExample. 
]

{ #category : #entitites }
PPCommonMarkSpecTest >> testExample249 [
	input := '[foo]

[foo]: /f&ouml;&ouml; "f&ouml;&ouml;"'.

	expected := '<p><a href="/f%C3%B6%C3%B6" title="föö">foo</a></p>'.

	self assertExample. 
]

{ #category : #entitites }
PPCommonMarkSpecTest >> testExample249a [
	input := '[foo]: /f&ouml;&ouml; "f&ouml;&ouml;"

[foo]'.

	expected := '<p><a href="/f%C3%B6%C3%B6" title="föö">foo</a></p>'.

	self assertExample. 
]

{ #category : #entitites }
PPCommonMarkSpecTest >> testExample250 [
	input := '``` f&ouml;&ouml;
foo
```'.

	expected := '<pre><code class="language-föö">foo
</code></pre>'.

	self assertExample. 
]

{ #category : #entitites }
PPCommonMarkSpecTest >> testExample251 [
	input := '`f&ouml;&ouml;`'.

	expected := '<p><code>f&amp;ouml;&amp;ouml;</code></p>'.

	self assertExample. 
]

{ #category : #entitites }
PPCommonMarkSpecTest >> testExample252 [
	input := '    f&ouml;f&ouml;'.

	expected := '<pre><code>f&amp;ouml;f&amp;ouml;
</code></pre>'.

	self assertExample. 
]

{ #category : #'code spans' }
PPCommonMarkSpecTest >> testExample253 [
	input := '`foo`'.

	expected := '<p><code>foo</code></p>'.

	self assertExample. 
]

{ #category : #'code spans' }
PPCommonMarkSpecTest >> testExample254 [
	input := '`` foo ` bar  ``'.

	expected := '<p><code>foo ` bar</code></p>'.

	self assertExample. 
]

{ #category : #'code spans' }
PPCommonMarkSpecTest >> testExample255 [
	input := '` `` `'.

	expected := '<p><code>``</code></p>'.

	self assertExample. 
]

{ #category : #'code spans' }
PPCommonMarkSpecTest >> testExample256 [
	input := '``
foo
``'.

	expected := '<p><code>foo</code></p>'.

	self assertExample. 
]

{ #category : #'code spans' }
PPCommonMarkSpecTest >> testExample257 [
	input := '`foo   bar
  baz`'.

	expected := '<p><code>foo bar baz</code></p>'.

	self assertExample. 
]

{ #category : #'code spans' }
PPCommonMarkSpecTest >> testExample258 [
	input := '`foo `` bar`'.

	expected := '<p><code>foo `` bar</code></p>'.

	self assertExample. 
]

{ #category : #'code spans' }
PPCommonMarkSpecTest >> testExample259 [
	input := '`foo\`bar`'.

	expected := '<p><code>foo\</code>bar`</p>'.

	self assertExample. 
]

{ #category : #'code spans' }
PPCommonMarkSpecTest >> testExample260 [
	input := '*foo`*`'.

	expected := '<p>*foo<code>*</code></p>'.

	self assertExample. 
]

{ #category : #'code spans' }
PPCommonMarkSpecTest >> testExample261 [
	input := '[not a `link](/foo`)'.

	expected := '<p>[not a <code>link](/foo</code>)</p>'.

	self assertExample. 
]

{ #category : #'code spans' }
PPCommonMarkSpecTest >> testExample262 [
	input := '`<a href="`">`'.

	expected := '<p><code>&lt;a href=&quot;</code>&quot;&gt;`</p>'.

	self assertExample. 
]

{ #category : #'code spans' }
PPCommonMarkSpecTest >> testExample263 [
	input := '<a href="`">`'.

	expected := '<p><a href="`">`</p>'.

	self assertExample. 
]

{ #category : #'code spans' }
PPCommonMarkSpecTest >> testExample264 [

	input := '`<http://foo.bar.`baz>`'.

	expected := '<p><code>&lt;http://foo.bar.</code>baz&gt;`</p>'.

	self assertExample. 
]

{ #category : #'code spans' }
PPCommonMarkSpecTest >> testExample265 [

	input := '<http://foo.bar.`baz>`'.

	expected := '<p><a href="http://foo.bar.%60baz">http://foo.bar.`baz</a>`</p>'.

	self assertExample. 
]

{ #category : #'code spans' }
PPCommonMarkSpecTest >> testExample266 [

	input := '```foo``'.

	expected := '<p>```foo``</p>'.

	self assertExample. 
]

{ #category : #'code spans' }
PPCommonMarkSpecTest >> testExample267 [

	input := '`foo'.

	expected := '<p>`foo</p>'.

	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample268 [

	input := '*foo bar*'.

	expected := '<p><em>foo bar</em></p>'.

	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample269 [

	input := 'a * foo bar*'.

	expected := '<p>a * foo bar*</p>'.

	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample270 [

	input := 'a*"foo"*'.

	expected := '<p>a*&quot;foo&quot;*</p>'.

	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample271 [

	input := '* a *'.

	expected := '<p>* a *</p>'.
	
	true ifTrue: [ ^ self flag: 'bad example? this is a list...' ].
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample272 [

	input := 'foo*bar*'.

	expected := '<p>foo<em>bar</em></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample273 [

	input := '5*6*78'.

	expected := '<p>5<em>6</em>78</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample274 [

	input := '_foo bar_'.

	expected := '<p><em>foo bar</em></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample275 [

	input := '_ foo bar_'.

	expected := '<p>_ foo bar_</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample276 [

	input := 'a_"foo"_'.

	expected := '<p>a_&quot;foo&quot;_</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample277 [

	input := 'foo_bar_'.

	expected := '<p>foo_bar_</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample278 [

	input := '5_6_78'.

	expected := '<p>5_6_78</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample279 [

	input := 'пристаням_стремятся_'.

	expected := '<p>пристаням_стремятся_</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample280 [

	input := 'aa_"bb"_cc'.

	expected := '<p>aa_&quot;bb&quot;_cc</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample281 [

	input := 'foo-_(bar)_'.

	expected := '<p>foo-<em>(bar)</em></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample282 [

	input := '_foo*'.

	expected := '<p>_foo*</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample283 [

	input := '*foo bar *'.

	expected := '<p>*foo bar *</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample284 [

	input := '*foo bar
*'.

	expected := '<p>*foo bar</p>
<ul>
<li></li>
</ul>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample285 [

	input := '*(*foo)'.

	expected := '<p>*(*foo)</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample286 [

	input := '*(*foo*)*'.

	expected := '<p><em>(<em>foo</em>)</em></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample287 [

	input := '*foo*bar'.

	expected := '<p><em>foo</em>bar</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample288 [

	input := '_foo bar _'.

	expected := '<p>_foo bar _</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample289 [

	input := '_(_foo)'.

	expected := '<p>_(_foo)</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample290 [

	input := '_(_foo_)_'.

	expected := '<p><em>(<em>foo</em>)</em></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample291 [

	input := '_foo_bar'.

	expected := '<p>_foo_bar</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample292 [

	input := '_пристаням_стремятся'.

	expected := '<p>_пристаням_стремятся</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample293 [

	input := '_foo_bar_baz_'.

	expected := '<p><em>foo_bar_baz</em></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample294 [

	input := '_(bar)_.'.

	expected := '<p><em>(bar)</em>.</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample295 [

	input := '**foo bar**'.

	expected := '<p><strong>foo bar</strong></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample296 [

	input := '** foo bar**'.

	expected := '<p>** foo bar**</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample297 [

	input := 'a**"foo"**'.

	expected := '<p>a**&quot;foo&quot;**</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample298 [

	input := 'foo**bar**'.

	expected := '<p>foo<strong>bar</strong></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample299 [

	input := '__foo bar__'.

	expected := '<p><strong>foo bar</strong></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample300 [

	input := '__ foo bar__'.
	
	expected := '<p>__ foo bar__</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample301 [

	input := '__
foo bar__'.
	
	expected := '<p>__
foo bar__</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample302 [

	input := 'a__"foo"__'.
	
	expected := '<p>a__&quot;foo&quot;__</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample303 [

	input := 'foo__bar__'.
	
	expected := '<p>foo__bar__</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample304 [

	input := '5__6__78'.
	
	expected := '<p>5__6__78</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample305 [

	input := 'пристаням__стремятся__'.
	
	expected := '<p>пристаням__стремятся__</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample306 [

	input := '__foo, __bar__, baz__'.
	
	expected := '<p><strong>foo, <strong>bar</strong>, baz</strong></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample307 [

	input := 'foo-_(bar)_'.
	
	expected := '<p>foo-<em>(bar)</em></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample308 [

	input := '**foo bar **'.
	
	expected := '<p>**foo bar **</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample309 [

	input := '**(**foo)'.
	
	expected := '<p>**(**foo)</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample310 [

	input := '*(**foo**)*'.
	
	expected := '<p><em>(<strong>foo</strong>)</em></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample311 [

	input := '**Gomphocarpus (*Gomphocarpus physocarpus*, syn.
*Asclepias physocarpa*)**'.
	
	expected := '<p><strong>Gomphocarpus (<em>Gomphocarpus physocarpus</em>, syn.
<em>Asclepias physocarpa</em>)</strong></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample312 [

	input := '**foo "*bar*" foo**'.
	
	expected := '<p><strong>foo &quot;<em>bar</em>&quot; foo</strong></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample313 [

	input := '**foo**bar'.
	
	expected := '<p><strong>foo</strong>bar</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample314 [
	input := '__foo bar __'.
	
	expected := '<p>__foo bar __</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample315 [
	input := '__(__foo)'.
	
	expected := '<p>__(__foo)</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample316 [
	input := '_(__foo__)_'.
	
	expected := '<p><em>(<strong>foo</strong>)</em></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample317 [
	input := '__foo__bar'.
	
	expected := '<p>__foo__bar</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample318 [
	input := '__пристаням__стремятся'.
	
	expected := '<p>__пристаням__стремятся</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample319 [
	input := '__foo__bar__baz__'.
	
	expected := '<p><strong>foo__bar__baz</strong></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample320 [
	input := '_(bar)_.'.
	
	expected := '<p><em>(bar)</em>.</p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample321 [
	input := '*foo [bar](/url)*'.
	
	expected := '<p><em>foo <a href="/url">bar</a></em></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample322 [
	input := '*foo
bar*'.
	
	expected := '<p><em>foo
bar</em></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample323 [
	input := '_foo __bar__ baz_'.
	
	expected := '<p><em>foo <strong>bar</strong> baz</em></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample324 [
	input := '_foo _bar_ baz_'.
	
	expected := '<p><em>foo <em>bar</em> baz</em></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample325 [
	input := '__foo_ bar_'.
	
	expected := '<p><em><em>foo</em> bar</em></p>'.
	
	self flag: 'JK: inline not yet implemented properly'
	"self assertExample."
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample326 [
	input := '*foo *bar**'.
	
	expected := '<p><em>foo <em>bar</em></em></p>'.
	
	self flag: 'JK: inline not yet implemented properly'
	"self assertExample."
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample327 [
	input := '*foo **bar** baz*'.
	
	expected := '<p><em>foo <strong>bar</strong> baz</em></p>'.
	
	self assertExample. 
]

{ #category : #emphasis }
PPCommonMarkSpecTest >> testExample328 [
	input := '*foo**bar**baz*'.
	
	expected := '<p><em>foo</em><em>bar</em><em>baz</em></p>'.
	
	"JK: inline not yet implemented properly"
	"self assertExample."
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample396 [
	input := '[link](/uri "title")'.

	expected := '<p><a href="/uri" title="title">link</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample397 [
	input := '[link](/uri)'.

	expected := '<p><a href="/uri">link</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample398 [
	input := '[link]()'.

	expected := '<p><a href="">link</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample399 [
	input := '[link](<>)'.

	expected := '<p><a href="">link</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample400 [
	input := '[link](/my uri)'.

	expected := '<p>[link](/my uri)</p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample401 [
	input := '[link](</my uri>)'.

	expected := '<p><a href="/my%20uri">link</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample402 [
	input := '[link](foo
bar)'.

	expected := '<p>[link](foo
bar)</p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample403 [
	input := '[link](<foo
bar>)'.

	expected := '<p>[link](<foo
bar>)</p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample404 [
	input := '[link]((foo)and(bar))'.

	expected := '<p><a href="(foo)and(bar)">link</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample405 [
	input := '[link](foo(and(bar)))'.

	expected := '<p>[link](foo(and(bar)))</p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample406 [
	input := '[link](foo(and\(bar\)))'.

	expected := '<p><a href="foo(and(bar))">link</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample407 [
	input := '[link](<foo(and(bar))>)'.

	expected := '<p><a href="foo(and(bar))">link</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample408 [
	input := '[link](foo\)\:)'.

	expected := '<p><a href="foo):">link</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample409 [
	input := '[link](foo%20b&auml;)'.

	expected := '<p><a href="foo%20b%C3%A4">link</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample410 [
	input := '[link]("title")'.

	expected := '<p><a href="%22title%22">link</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample411 [
	input := '[link](/url "title")
[link](/url ''title'')
[link](/url (title))'.

	expected := '<p><a href="/url" title="title">link</a>
<a href="/url" title="title">link</a>
<a href="/url" title="title">link</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample412 [
	input := '[link](/url "title \"&quot;")'.

	expected := '<p><a href="/url" title="title &quot;&quot;">link</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample413 [
	input := '[link](/url "title "and" title")'.

	expected := '<p>[link](/url &quot;title &quot;and&quot; title&quot;)</p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample414 [
	input := '[link](/url ''title "and" title'')'.

	expected := '<p><a href="/url" title="title &quot;and&quot; title">link</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample415 [
	input := '[link](   /uri
  "title"  )'.

	expected := '<p><a href="/uri" title="title">link</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample416 [
	input := '[link] (/uri)'.

	expected := '<p>[link] (/uri)</p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample417 [
	input := '[link [foo [bar]]](/uri)'.

	expected := '<p><a href="/uri">link [foo [bar]]</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample418 [
	input := '[link] bar](/uri)'.

	expected := '<p>[link] bar](/uri)</p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample419 [
	input := '[link [bar](/uri)'.

	expected := '<p>[link <a href="/uri">bar</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample420 [
	input := '[link \[bar](/uri)'.

	expected := '<p><a href="/uri">link [bar</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample421 [
	input := '[link *foo **bar** `#`*](/uri)'.

	expected := '<p><a href="/uri">link <em>foo <strong>bar</strong> <code>#</code></em></a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample422 [
	input := '[![moon](moon.jpg)](/uri)'.

	expected := '<p><a href="/uri"><img src="moon.jpg" alt="moon" /></a></p>'.

	self flag: 'JK: inline not yet implemented properly'
	"self assertExample."
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample423 [
	input := '[foo [bar](/uri)](/uri)'.

	expected := '<p>[foo <a href="/uri">bar</a>](/uri)</p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample424 [
	input := '[foo *[bar [baz](/uri)](/uri)*](/uri)'.

	expected := '<p>[foo <em>[bar <a href="/uri">baz</a>](/uri)</em>](/uri)</p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample425 [
	input := '![[[foo](uri1)](uri2)](uri3)'.

	expected := '<p><img src="uri3" alt="[foo](uri2)" /></p>'.

	self flag: 'JK: inline not yet implemented properly'
	"self assertExample."
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample426 [
	input := '*[foo*](/uri)'.

	expected := '<p>*<a href="/uri">foo*</a></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample427 [
	input := '[foo *bar](baz*)'.

	expected := '<p><a href="baz*">foo *bar</a></p>'.

	self flag: 'JK: inline not yet implemented properly'
	"self assertExample."
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample428 [
	input := '*foo [bar* baz]'.

	expected := '<p><em>foo [bar</em> baz]</p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample429 [
	input := '[foo <bar attr="](baz)">'.

	expected := '<p>[foo <bar attr="](baz)"></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample430 [
	input := '[foo`](/uri)`'.

	expected := '<p>[foo<code>](/uri)</code></p>'.
	self assertExample. 
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample431 [
	input := '[foo<http://example.com/?search=](uri)>'.

	expected := '<p>[foo<a href="http://example.com/?search=%5D(uri)">http://example.com/?search=](uri)</a></p>'.

	self flag: 'JK: inline not yet implemented properly'
	"self assertExample."
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample432 [
	input := '[foo][bar]

[bar]: /url "title"'.

	expected := '<p><a href="/url" title="title">foo</a></p>'.

	self flag: 'JK: inline not yet implemented properly'
	"self assertExample."
]

{ #category : #links }
PPCommonMarkSpecTest >> testExample433 [
	input := '[link [foo [bar]]][ref]

[ref]: /uri'.

	expected := '<p><a href="/uri">link [foo [bar]]</a></p>'.

	self flag: 'JK: inline not yet implemented properly'
	"self assertExample."
]

{ #category : #autolinks }
PPCommonMarkSpecTest >> testExample493 [
	input := '<http://foo.bar.baz>'.

	expected := '<p><a href="http://foo.bar.baz">http://foo.bar.baz</a></p>'.

	self assertExample. 
]

{ #category : #autolinks }
PPCommonMarkSpecTest >> testExample494 [
	input := '<http://foo.bar.baz/test?q=hello&id=22&boolean>'.

	expected := '<p><a href="http://foo.bar.baz/test?q=hello&amp;id=22&amp;boolean">http://foo.bar.baz/test?q=hello&amp;id=22&amp;boolean</a></p>'.

	self assertExample. 
]

{ #category : #autolinks }
PPCommonMarkSpecTest >> testExample495 [
	input := '<irc://foo.bar:2233/baz>'.

	expected := '<p><a href="irc://foo.bar:2233/baz">irc://foo.bar:2233/baz</a></p>'.

	self assertExample. 
]

{ #category : #autolinks }
PPCommonMarkSpecTest >> testExample496 [
	input := '<MAILTO:FOO@BAR.BAZ>'.

	expected := '<p><a href="MAILTO:FOO@BAR.BAZ">MAILTO:FOO@BAR.BAZ</a></p>'.

	self assertExample. 
]

{ #category : #autolinks }
PPCommonMarkSpecTest >> testExample497 [
	input := '<http://foo.bar/baz bim>'.

	expected := '<p>&lt;http://foo.bar/baz bim&gt;</p>'.

	self assertExample. 
]

{ #category : #autolinks }
PPCommonMarkSpecTest >> testExample498 [
	input := '<http://example.com/\[\>'.

	expected := '<p><a href="http://example.com/%5C%5B%5C">http://example.com/\[\</a></p>'.

	self assertExample. 
]

{ #category : #autolinks }
PPCommonMarkSpecTest >> testExample499 [
	input := '<foo@bar.example.com>'.

	expected := '<p><a href="mailto:foo@bar.example.com">foo@bar.example.com</a></p>'.

	self assertExample. 
]

{ #category : #autolinks }
PPCommonMarkSpecTest >> testExample500 [
	input := '<foo+special@Bar.baz-bar0.com>'.

	expected := '<p><a href="mailto:foo+special@Bar.baz-bar0.com">foo+special@Bar.baz-bar0.com</a></p>'.

	self assertExample. 
]

{ #category : #autolinks }
PPCommonMarkSpecTest >> testExample501 [
	input := '<foo\+@bar.example.com>'.

	expected := '<p>&lt;foo+@bar.example.com&gt;</p>'.

	self assertExample. 
]

{ #category : #autolinks }
PPCommonMarkSpecTest >> testExample502 [
	input := '<>'.

	expected := '<p>&lt;&gt;</p>'.

	self assertExample. 
]

{ #category : #autolinks }
PPCommonMarkSpecTest >> testExample503 [
	input := '<heck://bing.bong>'.

	expected := '<p>&lt;heck://bing.bong&gt;</p>'.

	self assertExample. 
]

{ #category : #autolinks }
PPCommonMarkSpecTest >> testExample504 [
	input := '< http://foo.bar >'.

	expected := '<p>&lt; http://foo.bar &gt;</p>'.

	self assertExample. 
]

{ #category : #autolinks }
PPCommonMarkSpecTest >> testExample505 [
	input := '<foo.bar.baz>'.

	expected := '<p>&lt;foo.bar.baz&gt;</p>'.

	self assertExample. 
]

{ #category : #autolinks }
PPCommonMarkSpecTest >> testExample506 [
	input := '<localhost:5001/foo>'.

	expected := '<p>&lt;localhost:5001/foo&gt;</p>'.

	self assertExample. 
]

{ #category : #autolinks }
PPCommonMarkSpecTest >> testExample507 [
	input := 'http://example.com'.

	expected := '<p>http://example.com</p>'.

	self assertExample. 
]

{ #category : #autolinks }
PPCommonMarkSpecTest >> testExample508 [
	input := 'foo@bar.example.com'.

	expected := '<p>foo@bar.example.com</p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample509 [
	input := '<a><bab><c2c>'.

	expected := '<p><a><bab><c2c></p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample510 [
	input := '<a/><b2/>'.

	expected := '<p><a/><b2/></p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample511 [
	input := '<a  /><b2
data="foo" >'.

	expected := '<p><a  /><b2
data="foo" ></p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample512 [
	input := '<a foo="bar" bam = ''baz <em>"</em>''
_boolean zoop:33=zoop:33 />'.

	expected := '<p><a foo="bar" bam = ''baz <em>"</em>''
_boolean zoop:33=zoop:33 /></p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample513 [
	input := '<33> <__>'.

	expected := '<p>&lt;33&gt; &lt;__&gt;</p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample514 [
	input := '<a h*#ref="hi">'.

	expected := '<p>&lt;a h*#ref=&quot;hi&quot;&gt;</p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample515 [
	input := '<a href="hi''> <a href=hi''>'.

	expected := '<p>&lt;a href=&quot;hi''&gt; &lt;a href=hi''&gt;</p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample516 [
	input := '< a><
foo><bar/ >'.

	expected := '<p>&lt; a&gt;&lt;
foo&gt;&lt;bar/ &gt;</p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample517 [
	input := '<a href=''bar''title=title>'.

	expected := '<p>&lt;a href=''bar''title=title&gt;</p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample518 [
	input := '</a>
</foo >'.

	expected := '<p></a>
</foo ></p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample519 [
	input := '</a href="foo">'.

	expected := '<p>&lt;/a href=&quot;foo&quot;&gt;</p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample520 [
	input := 'foo <!-- this is a
comment - with hyphen -->'.

	expected := '<p>foo <!-- this is a
comment - with hyphen --></p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample521 [
	input := 'foo <!-- not a comment -- two hyphens -->'.

	expected := '<p>foo &lt;!-- not a comment -- two hyphens --&gt;</p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample522 [
	input := 'foo <!--> foo -->

foo <!-- foo--->'.

	expected := '<p>foo &lt;!--&gt; foo --&gt;</p>
<p>foo &lt;!-- foo---&gt;</p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample523 [
	input := 'foo <?php echo $a; ?>'.

	expected := '<p>foo <?php echo $a; ?></p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample524 [
	input := 'foo <!ELEMENT br EMPTY>'.

	expected := '<p>foo <!ELEMENT br EMPTY></p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample525 [
	input := 'foo <![CDATA[>&<]]>'.

	expected := '<p>foo <![CDATA[>&<]]></p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample526 [
	input := '<a href="&ouml;">'.

	expected := '<p><a href="&ouml;"></p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample527 [
	input := '<a href="&ouml;">'.

	expected := '<p><a href="&ouml;"></p>'.

	self assertExample. 
]

{ #category : #'raw html' }
PPCommonMarkSpecTest >> testExample528 [
	input := '<a href="\"">'.

	expected := '<p>&lt;a href=&quot;&quot;&quot;&gt;</p>'.

	self assertExample. 
]

{ #category : #'hard line breaks' }
PPCommonMarkSpecTest >> testExample529 [
	input := 'foo  
baz'.
	expected := '<p>foo<br />
baz</p>'.

	self assertExample.
]

{ #category : #'hard line breaks' }
PPCommonMarkSpecTest >> testExample530 [
	input := 'foo\
baz'.
	expected := '<p>foo<br />
baz</p>'.

	self assertExample.
]

{ #category : #'hard line breaks' }
PPCommonMarkSpecTest >> testExample531 [
	input := 'foo       
baz'.
	expected := '<p>foo<br />
baz</p>'.

	self assertExample.
]

{ #category : #'hard line breaks' }
PPCommonMarkSpecTest >> testExample532 [
	input := 'foo  
     bar'.
	expected := '<p>foo<br />
bar</p>'.

	self assertExample.
]

{ #category : #'hard line breaks' }
PPCommonMarkSpecTest >> testExample533 [
	input := 'foo\
     bar'.
	expected := '<p>foo<br />
bar</p>'.

	self assertExample.
]

{ #category : #'hard line breaks' }
PPCommonMarkSpecTest >> testExample534 [
	input := '*foo  
bar*'.
	expected := '<p><em>foo<br />
bar</em></p>'.

	self assertExample.
]

{ #category : #'hard line breaks' }
PPCommonMarkSpecTest >> testExample535 [
	input := '*foo\
bar*'.
	expected := '<p><em>foo<br />
bar</em></p>'.

	self assertExample.
]

{ #category : #'hard line breaks' }
PPCommonMarkSpecTest >> testExample536 [
	input := '`code  
span`'.
	expected := '<p><code>code span</code></p>'.

	self assertExample.
]

{ #category : #'hard line breaks' }
PPCommonMarkSpecTest >> testExample537 [
	input := '`code\
span`'.
	expected := '<p><code>code\ span</code></p>'.

	self assertExample.
]

{ #category : #'hard line breaks' }
PPCommonMarkSpecTest >> testExample538 [
	input := '<a href="foo  
bar">'.
	expected := '<p><a href="foo  
bar"></p>'.

	self assertExample.
]

{ #category : #'hard line breaks' }
PPCommonMarkSpecTest >> testExample539 [
	input := '<a href="foo\
bar">'.
	expected := '<p><a href="foo\
bar"></p>'.

	self assertExample.
]

{ #category : #'hard line breaks' }
PPCommonMarkSpecTest >> testExample540 [
	input := 'foo\'.
	expected := '<p>foo\</p>'.

	self assertExample.
]

{ #category : #'hard line breaks' }
PPCommonMarkSpecTest >> testExample541 [
	input := 'foo  '.
	expected := '<p>foo</p>'.

	self assertExample.
]

{ #category : #'hard line breaks' }
PPCommonMarkSpecTest >> testExample542 [
	input := '### foo\'.
	expected := '<h3>foo\</h3>'.

	self assertExample.
]

{ #category : #'hard line breaks' }
PPCommonMarkSpecTest >> testExample543 [
	input := '### foo  '.
	expected := '<h3>foo</h3>'.

	self assertExample.
]

{ #category : #'soft line breaks' }
PPCommonMarkSpecTest >> testExample544 [
	input := 'foo
baz'.
	expected := '<p>foo
baz</p>'.

	self assertExample.
]

{ #category : #'soft line breaks' }
PPCommonMarkSpecTest >> testExample545 [
	input := 'foo 
 baz'.
	expected := '<p>foo
baz</p>'.

	self assertExample.
]

{ #category : #'textual content' }
PPCommonMarkSpecTest >> testExample546 [
	input := 'hello $.;''there'.
	expected := '<p>hello $.;''there</p>'.

	self assertExample.
]

{ #category : #'textual content' }
PPCommonMarkSpecTest >> testExample547 [
	input := 'Foo χρῆν'.
	expected := '<p>Foo χρῆν</p>'.

	self assertExample.
]

{ #category : #'textual content' }
PPCommonMarkSpecTest >> testExample548 [
	input := 'Multiple     spaces'.
	expected := '<p>Multiple     spaces</p>'.

	self assertExample.
]

{ #category : #'as yet unclassified' }
PPCommonMarkSpecTest >> testExtra1 [
	input := '# Foo
bar'.

	expected := '<h1>Foo</h1>
<p>bar</p>'.

	self assertExample. 
]

{ #category : #'as yet unclassified' }
PPCommonMarkSpecTest >> testExtra2 [
	input := '- # Foo
  bar'.

	expected := '<ul>
<li>
<h1>Foo</h1>bar</li>
</ul>'.

	self assertExample. 
]

{ #category : #'as yet unclassified' }
PPCommonMarkSpecTest >> testExtra3 [
	input := '*[foo]*'.

	expected := '<p><em>[foo]</em></p>'.

	self assertExample. 
]

{ #category : #'as yet unclassified' }
PPCommonMarkSpecTest >> testExtra4 [
	input := '*[foo)*]'.

	expected := '<p><em>[foo)</em>]</p>'.

	self assertExample. 
]

{ #category : #paragraphs }
PPCommonMarkSpecTest >> testParagraphExtra1 [
	input := '  aaa     
***'.

	expected := '<p>aaa</p>
<hr />'.

	self assertExample. 
]