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)
$ doc mempty )
, "with inline markup" =: unlines
[ "the following field list is not metadata"
[ ":*Date*: today"
, ""
, ".."
, ""
, ":*one*: emphasis"
, ":two_: reference"
@ -72,9 +74,9 @@ tests = [ "line block with blank line" =:
, ".. _two: http://example.com"
, ".. _three: http://example.org"
]
=?> ( doc
$ para "the following field list is not metadata" <>
definitionList [ (emph "one", [para "emphasis"])
=?> ( 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"])