diff options
Diffstat (limited to 'tests/Tests/Readers/RST.hs')
-rw-r--r-- | tests/Tests/Readers/RST.hs | 37 |
1 files changed, 18 insertions, 19 deletions
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"]) |