Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Tests.Readers.RST: Test metadata with inline markup too

Browse source
This commit is contained in:
Lars-Dominik Braun 2015-07-03 16:56:25 +02:00
parent 8577007d9b
commit d9e17cb3f7
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
tests/Tests/Readers/RST.hs
View file

@ -62,7 +62,9 @@ tests = [ "line block with blank line" =:
$ setMeta "subtitle" ("Subtitle" :: Inlines) $ setMeta "subtitle" ("Subtitle" :: Inlines)
$ doc mempty ) $ doc mempty )
, "with inline markup" =: unlines , "with inline markup" =: unlines
[ "the following field list is not metadata" [ ":*Date*: today"
, ""
, ".."
, "" , ""
, ":*one*: emphasis" , ":*one*: emphasis"
, ":two_: reference" , ":two_: reference"
@ -72,9 +74,9 @@ tests = [ "line block with blank line" =:
, ".. _two: http://example.com" , ".. _two: http://example.com"
, ".. _three: http://example.org" , ".. _three: http://example.org"
] ]
=?> ( doc =?> ( setMeta "date" (str "today")
$ para "the following field list is not metadata" <> $ doc
definitionList [ (emph "one", [para "emphasis"]) $ definitionList [ (emph "one", [para "emphasis"])
, (link "http://example.com" "" "two", [para "reference"]) , (link "http://example.com" "" "two", [para "reference"])
, (link "http://example.org" "" "three", [para "another one"]) , (link "http://example.org" "" "three", [para "another one"])
, (code "four", [para "literal"]) , (code "four", [para "literal"])