From 0b85ad754652b7170b6e50ec3ae1fa6222c71915 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 28 Mar 2013 15:58:09 -0700
Subject: [PATCH] Added stubs for haddock reader tests.

Modify tests/haddock-reader.haddock and
tests/haddock-reader.native.
---
 pandoc.cabal                 | 2 ++
 tests/Tests/Old.hs           | 4 ++++
 tests/haddock-reader.haddock | 1 +
 tests/haddock-reader.native  | 2 ++
 4 files changed, 9 insertions(+)
 create mode 100644 tests/haddock-reader.haddock
 create mode 100644 tests/haddock-reader.native

diff --git a/pandoc.cabal b/pandoc.cabal
index fd0c61b0b..2d2af70cc 100644
--- a/pandoc.cabal
+++ b/pandoc.cabal
@@ -118,6 +118,8 @@ Extra-Source-Files:
                  tests/html-reader.native,
                  tests/opml-reader.html,
                  tests/opml-reader.native,
+                 tests/haddock-reader.html,
+                 tests/haddock-reader.native,
                  tests/insert,
                  tests/lalune.jpg,
                  tests/movie.jpg,
diff --git a/tests/Tests/Old.hs b/tests/Tests/Old.hs
index 45c430c33..0ba240084 100644
--- a/tests/Tests/Old.hs
+++ b/tests/Tests/Old.hs
@@ -130,6 +130,10 @@ tests = [ testGroup "markdown"
           , test "reader" ["-r", "opml", "-w", "native", "-s"]
             "opml-reader.opml" "opml-reader.native"
           ]
+        , testGroup "haddock"
+          [ test "reader" ["-r", "haddock", "-w", "native", "-s"]
+            "haddock-reader.haddock" "haddock-reader.native"
+          ]
         , testGroup "other writers" $ map (\f -> testGroup f $ writerTests f)
           [ "opendocument" , "context" , "texinfo"
           , "man" , "plain" , "rtf", "org", "asciidoc"
diff --git a/tests/haddock-reader.haddock b/tests/haddock-reader.haddock
new file mode 100644
index 000000000..9daeafb98
--- /dev/null
+++ b/tests/haddock-reader.haddock
@@ -0,0 +1 @@
+test
diff --git a/tests/haddock-reader.native b/tests/haddock-reader.native
new file mode 100644
index 000000000..482cd2fe2
--- /dev/null
+++ b/tests/haddock-reader.native
@@ -0,0 +1,2 @@
+Pandoc (Meta {docTitle = [], docAuthors = [], docDate = []})
+[Para [Str "test"]]