DokuWiki writer: Add new test showing that span swallows content.

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

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.

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