diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-23 08:47:43 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-23 19:26:39 -0800 |
| commit | daeb52d4e0f21b0e1ad8c3ce17ee9f18a6394f63 (patch) | |
| tree | 40a9791fdff806ce599635bd0c5d5fbfb54f8cdc /tests/Tests/Readers | |
| parent | 9c299d282f943fd4db076b09b1901309e19308bd (diff) | |
| download | pandoc-daeb52d4e0f21b0e1ad8c3ce17ee9f18a6394f63.tar.gz | |
Eliminated use of TH in test suite.
Diffstat (limited to 'tests/Tests/Readers')
| -rw-r--r-- | tests/Tests/Readers/Markdown.hs | 2 | ||||
| -rw-r--r-- | tests/Tests/Readers/RST.hs | 37 |
2 files changed, 19 insertions, 20 deletions
diff --git a/tests/Tests/Readers/Markdown.hs b/tests/Tests/Readers/Markdown.hs index 6498c6f07..33f5be670 100644 --- a/tests/Tests/Readers/Markdown.hs +++ b/tests/Tests/Readers/Markdown.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE OverloadedStrings, QuasiQuotes #-} +{-# LANGUAGE OverloadedStrings #-} module Tests.Readers.Markdown (tests) where import Text.Pandoc.Definition diff --git a/tests/Tests/Readers/RST.hs b/tests/Tests/Readers/RST.hs index 0ad21f224..2876f4270 100644 --- a/tests/Tests/Readers/RST.hs +++ b/tests/Tests/Readers/RST.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE OverloadedStrings, QuasiQuotes #-} +{-# LANGUAGE OverloadedStrings #-} module Tests.Readers.RST (tests) where import Text.Pandoc.Definition @@ -20,24 +20,23 @@ tests :: [Test] tests = [ "line block with blank line" =: "| a\n|\n| b" =?> para (str "a") <> para (str "\160b") - , "field list" =: - [_LIT| -:Hostname: media08 -:IP address: 10.0.0.19 -:Size: 3ru -:Date: 2001-08-16 -:Version: 1 -:Authors: - Me - - Myself - - I -:Indentation: Since the field marker may be quite long, the second - and subsequent lines of the field body do not have to line up - with the first line, but they must be indented relative to the - field name marker, and they must line up with each other. -:Parameter i: integer -:Final: item - on two lines -|] =?> ( setAuthors ["Me","Myself","I"] + , "field list" =: unlines + [ ":Hostname: media08" + , ":IP address: 10.0.0.19" + , ":Size: 3ru" + , ":Date: 2001-08-16" + , ":Version: 1" + , ":Authors: - Me" + , " - Myself" + , " - I" + , ":Indentation: Since the field marker may be quite long, the second" + , " and subsequent lines of the field body do not have to line up" + , " with the first line, but they must be indented relative to the" + , " field name marker, and they must line up with each other." + , ":Parameter i: integer" + , ":Final: item" + , " on two lines" ] + =?> ( setAuthors ["Me","Myself","I"] $ setDate "2001-08-16" $ doc $ definitionList [ (str "Hostname", [para "media08"]) |