git.iko.soy/typeable/pandoc
on master help sign in
DokuWiki writer: Add new test showing that span swallows content.
commit7647d87657b324b268e7d1bf1b6fe9056312d55e authorClare Macrae <github@cfmacrae.fastmail.co.uk> dateWed 2 Jul 2014, 22:26 (12 years ago) parent23d71b1
3 files changed+16
tests/Tests/Old.hs+2 tests/dokuwiki.inline_formatting.dokuwiki+9 tests/dokuwiki.inline_formatting.native+5
tests/Tests/Old.hs+2
@@ -128,6 +128,8 @@ tests = [ testGroup "markdown"
128128 [ testGroup "writer" $ writerTests "dokuwiki"
129129 , test "writer-more" ["-r", "native", "-w", "dokuwiki", "-s"]
130130 "dokuwiki-writer.native" "dokuwiki-writer.dokuwiki"
131+ , test "writer-inline_formatting" ["-r", "native", "-w", "dokuwiki", "-s"]
132+ "dokuwiki.inline_formatting.native" "dokuwiki.inline_formatting.dokuwiki"
131133 ]
132134 , testGroup "opml"
133135 [ test "basic" ["-r", "native", "-w", "opml", "--columns=78", "-s"]
tests/dokuwiki.inline_formatting.dokuwikinew file+9
@@ -0,0 +1,9 @@
1+Regular text //italics// **bold //bold italics//**.
2+
3+This is Small Caps, and this is <del>strikethrough</del>.
4+
5+Some people use .
6+
7+Above the line is <sup>superscript</sup> and below the line is <sub>subscript</sub>.
8+
9+A line\\ break.
tests/dokuwiki.inline_formatting.nativenew file+5
@@ -0,0 +1,5 @@
1+[Para [Str "Regular",Space,Str "text",Space,Emph [Str "italics"],Space,Strong [Str "bold",Space,Emph [Str "bold",Space,Str "italics"]],Str "."]
2+,Para [Str "This",Space,Str "is",Space,SmallCaps [Str "Small",Space,Str "Caps"],Str ",",Space,Str "and",Space,Str "this",Space,Str "is",Space,Strikeout [Str "strikethrough"],Str "."]
3+,Para [Str "Some",Space,Str "people",Space,Str "use",Space,Span ("",[],[("underline","single")]) [Str "single",Space,Str "underlines",Space,Str "for",Space,Emph [Str "emphasis"]],Str "."]
4+,Para [Str "Above",Space,Str "the",Space,Str "line",Space,Str "is",Space,Superscript [Str "superscript"],Space,Str "and",Space,Str "below",Space,Str "the",Space,Str "line",Space,Str "is",Space,Subscript [Str "subscript"],Str "."]
5+,Para [Str "A",Space,Str "line",LineBreak,Str "break."]]