Added haddock writer tests.

5 files changed, 738 insertions, 3 deletions

diff --git a/pandoc.cabal b/pandoc.cabal
index b064f39a7..a0312e95b 100644
--- a/pandoc.cabal
+++ b/pandoc.cabal
@@ -135,6 +135,7 @@ Extra-Source-Files:
                  tests/tables.opendocument,
                  tests/tables.org,
                  tests/tables.asciidoc,
+                 tests/tables.haddock,
                  tests/tables.texinfo,
                  tests/tables.rst,
                  tests/tables.rtf,
@@ -156,6 +157,7 @@ Extra-Source-Files:
                  tests/writer.opendocument,
                  tests/writer.org,
                  tests/writer.asciidoc,
+                 tests/writer.haddock,
                  tests/writer.rst,
                  tests/writer.rtf,
                  tests/writer.texinfo,
diff --git a/tests/Tests/Old.hs b/tests/Tests/Old.hs
index 424e1b7c5..fa01b1358 100644
--- a/tests/Tests/Old.hs
+++ b/tests/Tests/Old.hs
@@ -131,7 +131,8 @@ tests = [ testGroup "markdown"
             "opml-reader.opml" "opml-reader.native"
           ]
         , testGroup "haddock"
-          [ test "reader" ["-r", "haddock", "-w", "native", "-s"]
+          [ testGroup "writer" $ writerTests "haddock"
+          , test "reader" ["-r", "haddock", "-w", "native", "-s"]
             "haddock-reader.haddock" "haddock-reader.native"
           ]
         , testGroup "other writers" $ map (\f -> testGroup f $ writerTests f)
diff --git a/tests/haddock-reader.native b/tests/haddock-reader.native
index 8edb0b29a..f50fae4ec 100644
--- a/tests/haddock-reader.native
+++ b/tests/haddock-reader.native
@@ -4,14 +4,14 @@ Pandoc (Meta {unMeta = fromList []})
 ,Para [Str "*",Space,Str "This",Space,Str "is",Space,Str "a",Space,Str "paragraph,",Space,Str "not",Space,Str "a",Space,Str "list",Space,Str "item.",Space,Str ">",Space,Str "This",Space,Str "sentence",Space,Str "is",Space,Str "not",Space,Str "code.",Space,Str ">>>",Space,Str "This",Space,Str "is",Space,Str "not",Space,Str "an",Space,Str "example."]
 ,Para [Str "The",Space,Str "references",Space,Str "\955,",Space,Str "\955",Space,Str "and",Space,Str "\955",Space,Str "all",Space,Str "represent",Space,Str "the",Space,Str "lower-case",Space,Str "letter",Space,Str "lambda."]
 ,Para [Str "This",Space,Str "is",Space,Str "a",Space,Str "code",Space,Str "block:"]
-,CodeBlock ("",["haskell"],[]) "map :: (a -> b) -> [a] -> [b]\nmap _ []     = []\nmap f (x:xs) = f x : map f xs"
+,CodeBlock ("",[],[]) "map :: (a -> b) -> [a] -> [b]\nmap _ []     = []\nmap f (x:xs) = f x : map f xs"
 ,Para [Str "This",Space,Str "is",Space,Str "another",Space,Str "code",Space,Str "block:"]
 ,Para [Code ("",[],[]) "f x = x + x.",LineBreak,Code ("",[],[]) "The @...@ code block ",Emph [Code ("",[],[]) "interprets markup normally"],Code ("",[],[]) ".",Code ("",["haskell"],[]) "Module.Foo",Code ("",[],[]) "",LineBreak,Code ("",[],[]) "\"Hello World\""]
 ,Para [Str "Haddock",Space,Str "supports",Space,Str "REPL",Space,Str "examples:"]
 ,Para [Code ("",["haskell","expr"],[]) "fib 10",LineBreak,Code ("",["result"],[]) "55"]
 ,Para [Code ("",["haskell","expr"],[]) "putStrLn \"foo\\nbar\"",LineBreak,Code ("",["result"],[]) "foo",LineBreak,Code ("",["result"],[]) "bar"]
 ,Para [Str "That",Space,Str "was",Space,Emph [Str "really",Space,Str "cool"],Str "!",Space,Str "I",Space,Str "had",Space,Str "no",Space,Str "idea",Space,Code ("",[],[]) "fib 10 = 55",Str "."]
-,Para [Str "This",Space,Str "module",Space,Str "defines",Space,Str "the",Space,Str "type",Space,Code ("",["haskell"],[]) "T",Str ".",Space,Str "The",Space,Str "identifier",Space,Code ("",["haskell"],[]) "M.T",Space,Str "is",Space,Str "not",Space,Str "in",Space,Str "scope",Space,Str "I",Space,Str "don't",Space,Str "have",Space,Str "to",Space,Str "escape",Space,Str "my",Space,Str "apostrophes;",Space,Str "great,",Space,Str "isn't",Space,Str "it?",Space,Str "This",Space,Str "is",Space,Str "a",Space,Str "reference",Space,Str "to",Space,Str "the",Space,Code ("",["haskell"],[]) "Foo",Space,Str "module."]
+,Para [Str "This",Space,Str "module",Space,Str "defines",Space,Str "the",Space,Str "type",Space,Code ("",[],[]) "T",Str ".",Space,Str "The",Space,Str "identifier",Space,Code ("",[],[]) "M.T",Space,Str "is",Space,Str "not",Space,Str "in",Space,Str "scope",Space,Str "I",Space,Str "don't",Space,Str "have",Space,Str "to",Space,Str "escape",Space,Str "my",Space,Str "apostrophes;",Space,Str "great,",Space,Str "isn't",Space,Str "it?",Space,Str "This",Space,Str "is",Space,Str "a",Space,Str "reference",Space,Str "to",Space,Str "the",Space,Code ("",[],[]) "Foo",Space,Str "module."]
 ,Para [Str "This",Space,Str "is",Space,Str "a",Space,Str "bulleted",Space,Str "list:"]
 ,BulletList
  [[Para [Str "first",Space,Str "item"]]
diff --git a/tests/tables.haddock b/tests/tables.haddock
new file mode 100644
index 000000000..e054dc072
--- /dev/null
+++ b/tests/tables.haddock
@@ -0,0 +1,72 @@
+Simple table with caption:
+
+>     Right Left    Center  Default
+>   ------- ------ -------- ---------
+>        12 12        12    12
+>       123 123      123    123
+>         1 1         1     1
+>
+Simple table without caption:
+
+>     Right Left    Center  Default
+>   ------- ------ -------- ---------
+>        12 12        12    12
+>       123 123      123    123
+>         1 1         1     1
+>
+Simple table indented two spaces:
+
+>     Right Left    Center  Default
+>   ------- ------ -------- ---------
+>        12 12        12    12
+>       123 123      123    123
+>         1 1         1     1
+>
+Multiline table with caption:
+
+>   --------------------------------------------------------------
+>    Centered   Left              Right Default aligned
+>     Header    Aligned         Aligned 
+>   ----------- ---------- ------------ --------------------------
+>      First    row                12.0 Example of a row that
+>                                       spans multiple lines.
+>
+>     Second    row                 5.0 Here\'s another one. Note
+>                                       the blank line between
+>                                       rows.
+>   --------------------------------------------------------------
+>
+Multiline table without caption:
+
+>   --------------------------------------------------------------
+>    Centered   Left              Right Default aligned
+>     Header    Aligned         Aligned 
+>   ----------- ---------- ------------ --------------------------
+>      First    row                12.0 Example of a row that
+>                                       spans multiple lines.
+>
+>     Second    row                 5.0 Here\'s another one. Note
+>                                       the blank line between
+>                                       rows.
+>   --------------------------------------------------------------
+>
+Table without column headers:
+
+>   ----- ----- ----- -----
+>      12 12     12      12
+>     123 123    123    123
+>       1 1       1       1
+>   ----- ----- ----- -----
+>
+Multiline table without column headers:
+
+>   ----------- ---------- ------------ --------------------------
+>      First    row                12.0 Example of a row that
+>                                       spans multiple lines.
+>
+>     Second    row                 5.0 Here\'s another one. Note
+>                                       the blank line between
+>                                       rows.
+>   ----------- ---------- ------------ --------------------------
+>
+
diff --git a/tests/writer.haddock b/tests/writer.haddock
new file mode 100644
index 000000000..7b0811220
--- /dev/null
+++ b/tests/writer.haddock
@@ -0,0 +1,660 @@
+This is a set of tests for pandoc. Most of them are adapted from John Gruber’s
+markdown test suite.
+
+--------------
+
+= Headers
+#headers#
+
+== Level 2 with an </url embedded link>
+#level-2-with-an-embedded-link#
+
+=== Level 3 with /emphasis/
+#level-3-with-emphasis#
+
+==== Level 4
+#level-4#
+
+===== Level 5
+#level-5#
+
+= Level 1
+#level-1#
+
+== Level 2 with /emphasis/
+#level-2-with-emphasis#
+
+=== Level 3
+#level-3#
+
+with no blank line
+
+== Level 2
+#level-2#
+
+with no blank line
+
+--------------
+
+= Paragraphs
+#paragraphs#
+
+Here’s a regular paragraph.
+
+In Markdown 1.0.0 and earlier. Version 8. This line turns into a list item.
+Because a hard-wrapped line in the middle of a paragraph looked like a list
+item.
+
+Here’s one with a bullet. * criminey.
+
+There should be a hard line break
+here.
+
+--------------
+
+= Block Quotes
+#block-quotes#
+
+E-mail style:
+
+This is a block quote. It is pretty short.
+
+Code in a block quote:
+
+> sub status {
+>     print "working";
+> }
+
+A list:
+
+1.  item one
+2.  item two
+
+Nested block quotes:
+
+nested
+
+nested
+
+This should not be a block quote: 2 > 1.
+
+And a following paragraph.
+
+--------------
+
+= Code Blocks
+#code-blocks#
+
+Code:
+
+> ---- (should be four hyphens)
+>
+> sub status {
+>     print "working";
+> }
+>
+> this code block is indented by one tab
+
+And:
+
+>     this code block is indented by two tabs
+>
+> These should not be escaped:  \$ \\ \> \[ \{
+
+--------------
+
+= Lists
+#lists#
+
+== Unordered
+#unordered#
+
+Asterisks tight:
+
+-   asterisk 1
+-   asterisk 2
+-   asterisk 3
+
+Asterisks loose:
+
+-   asterisk 1
+
+-   asterisk 2
+
+-   asterisk 3
+
+Pluses tight:
+
+-   Plus 1
+-   Plus 2
+-   Plus 3
+
+Pluses loose:
+
+-   Plus 1
+
+-   Plus 2
+
+-   Plus 3
+
+Minuses tight:
+
+-   Minus 1
+-   Minus 2
+-   Minus 3
+
+Minuses loose:
+
+-   Minus 1
+
+-   Minus 2
+
+-   Minus 3
+
+== Ordered
+#ordered#
+
+Tight:
+
+1.  First
+2.  Second
+3.  Third
+
+and:
+
+1.  One
+2.  Two
+3.  Three
+
+Loose using tabs:
+
+1.  First
+
+2.  Second
+
+3.  Third
+
+and using spaces:
+
+1.  One
+
+2.  Two
+
+3.  Three
+
+Multiple paragraphs:
+
+1.  Item 1, graf one.
+
+    Item 1. graf two. The quick brown fox jumped over the lazy dog’s back.
+
+2.  Item 2.
+
+3.  Item 3.
+
+== Nested
+#nested#
+
+-   Tab
+    -   Tab
+        -   Tab
+
+Here’s another:
+
+1.  First
+2.  Second:
+    -   Fee
+    -   Fie
+    -   Foe
+
+3.  Third
+
+Same thing but with paragraphs:
+
+1.  First
+
+2.  Second:
+
+    -   Fee
+    -   Fie
+    -   Foe
+
+3.  Third
+
+== Tabs and spaces
+#tabs-and-spaces#
+
+-   this is a list item indented with tabs
+
+-   this is a list item indented with spaces
+
+    -   this is an example list item indented with tabs
+
+    -   this is an example list item indented with spaces
+
+== Fancy list markers
+#fancy-list-markers#
+
+(2) begins with 2
+(3) and now 3
+
+    with a continuation
+
+    iv. sublist with roman numerals, starting with 4
+    v.  more items
+        (A) a subsublist
+        (B) a subsublist
+
+Nesting:
+
+A.  Upper Alpha
+    I.  Upper Roman.
+        (6) Decimal start with 6
+            c)  Lower alpha with paren
+
+Autonumbering:
+
+1.  Autonumber.
+2.  More.
+    1.  Nested.
+
+Should not be a list item:
+
+M.A. 2007
+
+B. Williams
+
+--------------
+
+= Definition Lists
+#definition-lists#
+
+Tight using spaces:
+
+[apple]
+    red fruit
+[orange]
+    orange fruit
+[banana]
+    yellow fruit
+
+Tight using tabs:
+
+[apple]
+    red fruit
+[orange]
+    orange fruit
+[banana]
+    yellow fruit
+
+Loose:
+
+[apple]
+    red fruit
+
+[orange]
+    orange fruit
+
+[banana]
+    yellow fruit
+
+Multiple blocks with italics:
+
+[/apple/]
+    red fruit
+
+    contains seeds, crisp, pleasant to taste
+
+[/orange/]
+    orange fruit
+
+    > { orange code block }
+
+    orange block quote
+
+Multiple definitions, tight:
+
+[apple]
+    red fruit
+    computer
+[orange]
+    orange fruit
+    bank
+
+Multiple definitions, loose:
+
+[apple]
+    red fruit
+
+    computer
+
+[orange]
+    orange fruit
+
+    bank
+
+Blank line after term, indented marker, alternate markers:
+
+[apple]
+    red fruit
+
+    computer
+
+[orange]
+    orange fruit
+
+    1.  sublist
+    2.  sublist
+
+= HTML Blocks
+#html-blocks#
+
+Simple block on one line:
+
+foo
+
+And nested without indentation:
+
+foo
+
+bar
+
+Interpreted markdown in a table:
+
+This is /emphasized/
+And this is __strong__
+Here’s a simple block:
+
+foo
+
+This should be a code block, though:
+
+> <div>
+>     foo
+> </div>
+
+As should this:
+
+> <div>foo</div>
+
+Now, nested:
+
+foo
+
+This should just be an HTML comment:
+
+Multiline:
+
+Code block:
+
+> <!-- Comment -->
+
+Just plain comment, with trailing spaces on the line:
+
+Code:
+
+> <hr />
+
+Hr’s:
+
+--------------
+
+= Inline Markup
+#inline-markup#
+
+This is /emphasized/, and so /is this/.
+
+This is __strong__, and so __is this__.
+
+An /</url emphasized link>/.
+
+__/This is strong and em./__
+
+So is __/this/__ word.
+
+__/This is strong and em./__
+
+So is __/this/__ word.
+
+This is code: @>@, @$@, @\\@, @\\$@, @\<html>@.
+
+~~This is /strikeout/.~~
+
+Superscripts: abcd a/hello/ ahello there.
+
+Subscripts: H2O, H23O, Hmany of themO.
+
+These should not be superscripts or subscripts, because of the unescaped
+spaces: a^b c^d, a~b c~d.
+
+--------------
+
+= Smart quotes, ellipses, dashes
+#smart-quotes-ellipses-dashes#
+
+“Hello,” said the spider. “‘Shelob’ is my name.”
+
+‘A’, ‘B’, and ‘C’ are letters.
+
+‘Oak,’ ‘elm,’ and ‘beech’ are names of trees. So is ‘pine.’
+
+‘He said, “I want to go.”’ Were you alive in the 70’s?
+
+Here is some quoted ‘@code@’ and a
+“<http://example.com/?foo=1&bar=2 quoted link>”.
+
+Some dashes: one—two — three—four — five.
+
+Dashes between numbers: 5–7, 255–66, 1987–1999.
+
+Ellipses…and…and….
+
+--------------
+
+= LaTeX
+#latex#
+
+-   
+-   2 + 2 = 4
+-   /x/ ∈ /y/
+-   /α/ ∧ /ω/
+-   223
+-   /p/-Tree
+-   Here’s some display math:
+    $$\\frac{d}{dx}f(x)=\\lim_{h\\to 0}\\frac{f(x+h)-f(x)}{h}$$
+-   Here’s one that has a line break in it: /α/ + /ω/ × /x/2.
+
+These shouldn’t be math:
+
+-   To get the famous equation, write @$e = mc^2$@.
+-   $22,000 is a /lot/ of money. So is $34,000. (It worked if “lot” is
+    emphasized.)
+-   Shoes ($20) and socks ($5).
+-   Escaped @$@: $73 /this should be emphasized/ 23$.
+
+Here’s a LaTeX table:
+
+--------------
+
+= Special Characters
+#special-characters#
+
+Here is some unicode:
+
+-   I hat: Î
+-   o umlaut: ö
+-   section: §
+-   set membership: ∈
+-   copyright: ©
+
+AT&T has an ampersand in their name.
+
+AT&T is another way to write it.
+
+This & that.
+
+4 \< 5.
+
+6 > 5.
+
+Backslash: \\
+
+Backtick: \`
+
+Asterisk: *
+
+Underscore: _
+
+Left brace: {
+
+Right brace: }
+
+Left bracket: [
+
+Right bracket: ]
+
+Left paren: (
+
+Right paren: )
+
+Greater-than: >
+
+Hash: #
+
+Period: .
+
+Bang: !
+
+Plus: +
+
+Minus: -
+
+--------------
+
+= Links
+#links#
+
+== Explicit
+#explicit#
+
+Just a </url/ URL>.
+
+</url/ URL and title>.
+
+</url/ URL and title>.
+
+</url/ URL and title>.
+
+</url/ URL and title>
+
+</url/ URL and title>
+
+</url/with_underscore with_underscore>
+
+<mailto:nobody@nowhere.net Email link>
+
+< Empty>.
+
+== Reference
+#reference#
+
+Foo </url/ bar>.
+
+Foo </url/ bar>.
+
+Foo </url/ bar>.
+
+With </url/ embedded [brackets]>.
+
+</url/ b> by itself should be a link.
+
+Indented </url once>.
+
+Indented </url twice>.
+
+Indented </url thrice>.
+
+This should [not][] be a link.
+
+> [not]: /url
+
+Foo </url/ bar>.
+
+Foo </url/ biz>.
+
+== With ampersands
+#with-ampersands#
+
+Here’s a <http://example.com/?foo=1&bar=2 link with an ampersand in the URL>.
+
+Here’s a link with an amersand in the link text: <http://att.com/ AT&T>.
+
+Here’s an </script?foo=1&bar=2 inline link>.
+
+Here’s an </script?foo=1&bar=2 inline link in pointy braces>.
+
+== Autolinks
+#autolinks#
+
+With an ampersand: <http://example.com/?foo=1&bar=2>
+
+-   In a list?
+-   <http://example.com/>
+-   It should.
+
+An e-mail address: <mailto:nobody@nowhere.net nobody\@nowhere.net>
+
+Blockquoted: <http://example.com/>
+
+Auto-links should not occur here: @\<http:\/\/example.com\/>@
+
+> or here: <http://example.com/>
+
+--------------
+
+= Images
+#images#
+
+From “Voyage dans la Lune” by Georges Melies (1902):
+
+<<lalune.jpg lalune>>
+
+Here is a movie <<movie.jpg movie>> icon.
+
+--------------
+
+= Footnotes
+#footnotes#
+
+Here is a footnote reference,<#notes [1]> and another.<#notes [2]> This should
+/not/ be a footnote reference, because it contains a space.[^my note] Here is
+an inline note.<#notes [3]>
+
+Notes can go in quotes.<#notes [4]>
+
+1.  And in list items.<#notes [5]>
+
+This paragraph should not be part of the note, as it is not indented.
+
+#notes#
+
+1.  Here is the footnote. It can go anywhere after the footnote reference. It
+    need not be placed at the end of the document.
+
+2.  Here’s the long note. This one contains multiple blocks.
+
+    Subsequent blocks are indented to show that they belong to the footnote
+    (as with list items).
+
+    >   { <code> }
+
+    If you want, you can indent every line, but you can also be lazy and just
+    indent the first line of each block.
+
+3.  This is /easier/ to type. Inline notes may contain
+    <http://google.com links> and @]@ verbatim characters, as well as
+    [bracketed text].
+
+4.  In quote.
+
+5.  In list.