From b19aee4e1e199309f91059a11154059db9411798 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Wed, 12 Sep 2012 19:15:34 -0700
Subject: Added some tests for mediawiki reader.

---
 src/Text/Pandoc/Readers/MediaWiki.hs |  4 ----
 tests/mediawiki-reader.native        | 24 +++++++++++++++++++++++-
 tests/mediawiki-reader.wiki          | 28 ++++++++++++++++++++++++++++
 3 files changed, 51 insertions(+), 5 deletions(-)

diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs
index c0fa6f6f2..e9d0fe718 100644
--- a/src/Text/Pandoc/Readers/MediaWiki.hs
+++ b/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
 
diff --git a/tests/mediawiki-reader.native b/tests/mediawiki-reader.native
index 8b3eedf42..e8f33c062 100644
--- a/tests/mediawiki-reader.native
+++ b/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>"]
diff --git a/tests/mediawiki-reader.wiki b/tests/mediawiki-reader.wiki
index 6e51f1544..afee78007 100644
--- a/tests/mediawiki-reader.wiki
+++ b/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>
+
+
-- 
cgit v1.2.3