aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/Tests/Old.hs2
-rw-r--r--tests/dokuwiki.inline_formatting.dokuwiki9
-rw-r--r--tests/dokuwiki.inline_formatting.native5
3 files changed, 16 insertions, 0 deletions
diff --git a/tests/Tests/Old.hs b/tests/Tests/Old.hs
index 44ed9f53a..628951423 100644
--- a/tests/Tests/Old.hs
+++ b/tests/Tests/Old.hs
@@ -128,6 +128,8 @@ tests = [ testGroup "markdown"
[ testGroup "writer" $ writerTests "dokuwiki"
, test "writer-more" ["-r", "native", "-w", "dokuwiki", "-s"]
"dokuwiki-writer.native" "dokuwiki-writer.dokuwiki"
+ , test "writer-inline_formatting" ["-r", "native", "-w", "dokuwiki", "-s"]
+ "dokuwiki.inline_formatting.native" "dokuwiki.inline_formatting.dokuwiki"
]
, testGroup "opml"
[ test "basic" ["-r", "native", "-w", "opml", "--columns=78", "-s"]
diff --git a/tests/dokuwiki.inline_formatting.dokuwiki b/tests/dokuwiki.inline_formatting.dokuwiki
new file mode 100644
index 000000000..2faf49eec
--- /dev/null
+++ b/tests/dokuwiki.inline_formatting.dokuwiki
@@ -0,0 +1,9 @@
+Regular text //italics// **bold //bold italics//**.
+
+This is Small Caps, and this is <del>strikethrough</del>.
+
+Some people use .
+
+Above the line is <sup>superscript</sup> and below the line is <sub>subscript</sub>.
+
+A line\\ break.
diff --git a/tests/dokuwiki.inline_formatting.native b/tests/dokuwiki.inline_formatting.native
new file mode 100644
index 000000000..dc8a3d19a
--- /dev/null
+++ b/tests/dokuwiki.inline_formatting.native
@@ -0,0 +1,5 @@
+[Para [Str "Regular",Space,Str "text",Space,Emph [Str "italics"],Space,Strong [Str "bold",Space,Emph [Str "bold",Space,Str "italics"]],Str "."]
+,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 "."]
+,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 "."]
+,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 "."]
+,Para [Str "A",Space,Str "line",LineBreak,Str "break."]]