diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-07-08 22:45:06 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-07-08 22:45:06 -0700 |
| commit | b587acb2247c5af49142542dec2a509d8aa6862f (patch) | |
| tree | 6ebc40ca0044287cb44c1ef01ca5b6fb7306d487 /tests | |
| parent | ac79429a128bf7efeb0ad3896968c29392af7b1a (diff) | |
| parent | d9e17cb3f76f324bad8bbbb931456f5b152adca9 (diff) | |
Merge pull request #2266 from PromyLOPh/fieldinline
RST: Support inline markup for field list names
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Tests/Readers/RST.hs | 54 |
1 files changed, 38 insertions, 16 deletions
diff --git a/tests/Tests/Readers/RST.hs b/tests/Tests/Readers/RST.hs index 7f1f3d044..c05f2f5e4 100644 --- a/tests/Tests/Readers/RST.hs +++ b/tests/Tests/Readers/RST.hs @@ -22,7 +22,8 @@ tests :: [Test] tests = [ "line block with blank line" =: "| a\n|\n| b" =?> para (str "a") <> para (str "\160b") - , "field list" =: unlines + , testGroup "field list" + [ "general" =: unlines [ "para" , "" , ":Hostname: media08" @@ -36,17 +37,17 @@ tests = [ "line block with blank line" =: , ":Parameter i: integer" , ":Final: item" , " on two lines" ] - =?> ( doc - $ para "para" <> - definitionList [ (str "Hostname", [para "media08"]) - , (str "IP address", [para "10.0.0.19"]) - , (str "Size", [para "3ru"]) - , (str "Version", [para "1"]) - , (str "Indentation", [para "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."]) - , (str "Parameter i", [para "integer"]) - , (str "Final", [para "item on two lines"]) - ]) - , "initial field list" =: unlines + =?> ( doc + $ para "para" <> + definitionList [ (str "Hostname", [para "media08"]) + , (text "IP address", [para "10.0.0.19"]) + , (str "Size", [para "3ru"]) + , (str "Version", [para "1"]) + , (str "Indentation", [para "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."]) + , (text "Parameter i", [para "integer"]) + , (str "Final", [para "item on two lines"]) + ]) + , "metadata" =: unlines [ "=====" , "Title" , "=====" @@ -56,10 +57,31 @@ tests = [ "line block with blank line" =: , "" , ":Version: 1" ] - =?> ( setMeta "version" (para "1") - $ setMeta "title" ("Title" :: Inlines) - $ setMeta "subtitle" ("Subtitle" :: Inlines) - $ doc mempty ) + =?> ( setMeta "version" (para "1") + $ setMeta "title" ("Title" :: Inlines) + $ setMeta "subtitle" ("Subtitle" :: Inlines) + $ doc mempty ) + , "with inline markup" =: unlines + [ ":*Date*: today" + , "" + , ".." + , "" + , ":*one*: emphasis" + , ":two_: reference" + , ":`three`_: another one" + , ":``four``: literal" + , "" + , ".. _two: http://example.com" + , ".. _three: http://example.org" + ] + =?> ( setMeta "date" (str "today") + $ doc + $ definitionList [ (emph "one", [para "emphasis"]) + , (link "http://example.com" "" "two", [para "reference"]) + , (link "http://example.org" "" "three", [para "another one"]) + , (code "four", [para "literal"]) + ]) + ] , "URLs with following punctuation" =: ("http://google.com, http://yahoo.com; http://foo.bar.baz.\n" ++ "http://foo.bar/baz_(bam) (http://foo.bar)") =?> |