From 7647d87657b324b268e7d1bf1b6fe9056312d55e Mon Sep 17 00:00:00 2001
From: Clare Macrae <github@cfmacrae.fastmail.co.uk>
Date: Wed, 2 Jul 2014 22:26:11 +0100
Subject: [PATCH] DokuWiki writer: Add new test showing that span swallows
 content.

---
 tests/Tests/Old.hs                        | 2 ++
 tests/dokuwiki.inline_formatting.dokuwiki | 9 +++++++++
 tests/dokuwiki.inline_formatting.native   | 5 +++++
 3 files changed, 16 insertions(+)
 create mode 100644 tests/dokuwiki.inline_formatting.dokuwiki
 create mode 100644 tests/dokuwiki.inline_formatting.native

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."]]