forked from Orc/discount
/
snakepit.t
29 lines (20 loc) · 834 Bytes
/
snakepit.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
. tests/functions.sh
title "The snakepit of Markdown.pl compatibility"
rc=0
MARKDOWN_FLAGS=
try '[](single quote) text (quote)' \
"[foo](http://Poe's law) will make this fail ('no, it won't!') here."\
'<p><a href="http://Poe" title="s law) will make this fail ('"'no, it won't!"'">foo</a> here.</p>'
try '-f1.0' '[](unclosed <url) (MKD_1_COMPAT)' '[foo](<http://no trailing gt)' \
'<p><a href="http://no%20trailing%20gt">foo</a></p>'
try '[](unclosed <url)' '[foo](<http://no trailing gt)' \
'<p>[foo](<http://no trailing gt)</p>'
try '<unfinished <tags> (1)' \
'<foo [bar](foo) <s>hi</s>' \
'<p><foo [bar](foo) <s>hi</s></p>'
try '<unfinished &<tags> (2)' \
'<foo [bar](foo) &<s>hi</s>' \
'<p><foo [bar](foo) &<s>hi</s></p>'
try 'paragraph <br/> oddity' 'EOF ' '<p>EOF</p>'
summary $0
exit $rc