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
|
(in-package #:cl-markdown-test)
#+(or)
(run-tests :suite 'test-headers)
(deftestsuite test-headers (test-snippets)
()
(:documentation "Case 272"))
(addtest (test-headers)
one-dash
(check-output "asdf
-"))
(addtest (test-headers)
two-dash
(check-output "asdf
--"))
(addtest (test-headers)
three-dash
(check-output "asdf
---"))
(addtest (test-headers)
three-dash-with-whitespace
(check-output "asdf
--- "))
(addtest (test-headers)
four-dash
(check-output "asdf
----"))
(addtest (test-headers)
five-dash
(check-output "asdf
-----"))
(addtest (test-headers)
six-dash
(check-output "asdf
------"))
(addtest (test-headers)
starts-with-dashes
(check-output "asdf
-- it's the bomb"))
(addtest (test-headers)
really-an-hr
(check-output "
---"))
|
