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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
defmodule Acceptance.Ast.HorizontalRulesTest do
use ExUnit.Case, async: true
import Support.Helpers, only: [as_ast: 1, parse_html: 1]
import EarmarkAstDsl
describe "Horizontal rules" do
test "thick, thin & medium" do
markdown = "***\n---\n___\n"
html = "<hr class=\"thick\"/>\n<hr class=\"thin\"/>\n<hr class=\"medium\"/>\n"
ast = parse_html(html)
messages = []
assert as_ast(markdown) == {:ok, ast, messages}
end
test "not a rule" do
markdown = "+++\n"
html = "<p>+++</p>\n"
ast = parse_html(html)
messages = []
assert as_ast(markdown) == {:ok, ast, messages}
end
test "a dash is just text" do
markdown = "-\nTest"
html = "<p>-\nTest</p>"
ast = parse_html(html)
messages = []
assert as_ast(markdown) == {:ok, ast, messages}
end
test "two dashes are just text" do
markdown = "--\nTest"
html = "<p>--\nTest</p>"
ast = parse_html(html)
messages = []
assert as_ast(markdown) == {:ok, ast, messages}
end
test "not in code" do
markdown = " ***\n \n a"
html = "<pre><code>***\n\n a</code></pre>\n"
ast = parse_html(html)
messages = []
assert as_ast(markdown) == {:ok, ast, messages}
end
test "not in code, second line" do
markdown = "Foo\n ***\n"
html = "<p>Foo</p>\n<pre><code>***</code></pre>\n"
ast = parse_html(html)
messages = []
assert as_ast(markdown) == {:ok, ast, messages}
end
test "medium, long" do
markdown = "_____________________________________\n"
html = "<hr class=\"medium\"/>\n"
ast = parse_html(html)
messages = []
assert as_ast(markdown) == {:ok, ast, messages}
end
test "emmed, so to speak" do
markdown = " *-*\n"
ast = [p([" ", tag("em", "-")])]
messages = []
assert as_ast(markdown) == {:ok, ast, messages}
end
@tag :wip
test "subindex" do
markdown = "This is H~2~O, only water"
ast = [p(["This is H", tag("sub", "2"), "O, only water"])]
messages = []
assert as_ast(markdown) == {:ok, ast, messages}
end
@tag :wip
test "superindex" do
markdown = "we get O(n^2^)"
ast = [p(["we get O(n", tag("sup", "2"), ")"])]
messages = []
assert as_ast(markdown) == {:ok, ast, messages}
end
test "in lists" do
markdown = "- foo\n***\n- bar\n"
html = "<ul>\n<li>foo</li>\n</ul>\n<hr class=\"thick\"/>\n<ul>\n<li>bar</li>\n</ul>\n"
ast = parse_html(html)
messages = []
assert as_ast(markdown) == {:ok, ast, messages}
end
test "setext rules over rules (why am I soo witty?)" do
markdown = "Foo\n---\nbar\n"
html = "<h2>Foo</h2>\n<p>bar</p>\n"
ast = parse_html(html)
messages = []
assert as_ast(markdown) == {:ok, ast, messages}
end
test "in lists, thick this time (why am I soo good to you?)" do
markdown = "* Foo\n* * *\n* Bar\n"
html = "<ul>\n<li>Foo</li>\n</ul>\n<hr class=\"thick\"/>\n<ul>\n<li>Bar</li>\n</ul>\n"
ast = parse_html(html)
messages = []
assert as_ast(markdown) == {:ok, ast, messages}
end
end
describe "Horizontal Rules and IAL" do
test "add a class and an id" do
markdown = "***\n{: .custom}\n---\n{: .klass #id42}\n___\n{: hello=world}\n"
html =
"<hr class=\"custom thick\" />\n<hr class=\"klass thin\" id=\"id42\" />\n<hr class=\"medium\" hello=\"world\" />\n"
ast = parse_html(html)
messages = []
assert as_ast(markdown) == {:ok, ast, messages}
end
end
end
# SPDX-License-Identifier: Apache-2.0
|
