Added some tests for mediawiki reader.

src/Text/Pandoc/Readers/MediaWiki.hs

@@ -44,9 +44,6 @@ _ raw mediawiki:
   _ templates or anything in {{}} (can be postprocessed)
   _ category links
 _ gallery tag?
-_ tests for raw html inline
-_ tests for raw html block tags
-_ test for <p> tags
 _ tests for sup, sub, del
 _ tests for pre, haskell, syntaxhighlight
 _ tests for code, tt, hask
@@ -54,7 +51,6 @@ _ test for blockquote
 _ tests for native lists
 _ tests for autolink urls
 _ tests for external links
-_ tests for : lines
 -}
 module Text.Pandoc.Readers.MediaWiki ( readMediaWiki ) where
 

tests/mediawiki-reader.native

@@ -32,4 +32,26 @@ Pandoc (Meta {docTitle = [], docAuthors = [], docDate = []})
 ,Para [Str "between",Space,Str "blocks"]
 ,Header 2 [Str "linebreaks"]
 ,Para [Str "hi",LineBreak,Str "there"]
-,Para [Str "hi",LineBreak,Str "there"]]
+,Para [Str "hi",LineBreak,Str "there"]
+,Header 2 [Str ":",Space,Str "indents"]
+,Para [Str "hi"]
+,DefinitionList
+ [([],
+   [[Plain [Str "there"]]])]
+,Para [Str "bud"]
+,Para [Str "hi"]
+,DefinitionList
+ [([],
+   [[DefinitionList
+     [([],
+       [[Plain [Str "there"]]])]]])]
+,Para [Str "bud"]
+,Header 2 [Str "p",Space,Str "tags"]
+,Para [Str "hi",Space,Str "there"]
+,Para [Str "bud"]
+,Para [Str "another"]
+,Header 2 [Str "raw",Space,Str "html"]
+,Para [Str "hi",Space,RawInline "html" "<span style=\"color:red\">",Emph [Str "there"],RawInline "html" "</span>",Str "."]
+,RawBlock "html" "<div class=\"special\">"
+,Para [Str "hi",Space,Emph [Str "there"]]
+,RawBlock "html" "</div>"]

tests/mediawiki-reader.wiki

@@ -69,3 +69,31 @@ hi<br/>there
 hi<br>
 there
 
+== : indents ==
+
+hi
+: there
+bud
+
+hi
+:: there
+bud
+
+== p tags ==
+
+hi there
+<p>
+bud
+<p>
+another
+</p>
+
+== raw html ==
+
+hi <span style="color:red">''there''</span>.
+
+<div class="special">
+hi ''there''
+</div>
+
+