diff options
| author | Lars-Dominik Braun <lars@6xq.net> | 2015-07-03 16:56:25 +0200 |
|---|---|---|
| committer | Lars-Dominik Braun <lars@6xq.net> | 2015-07-03 16:57:30 +0200 |
| commit | d9e17cb3f76f324bad8bbbb931456f5b152adca9 (patch) | |
| tree | 8e07c8e3d33240ed050df69003b7cf32f7b8ccc4 /tests/Tests/Readers/RST.hs | |
| parent | 8577007d9b9643e1f4620d3d1ac1642973c89082 (diff) | |
Tests.Readers.RST: Test metadata with inline markup too
Diffstat (limited to 'tests/Tests/Readers/RST.hs')
| -rw-r--r-- | tests/Tests/Readers/RST.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/tests/Tests/Readers/RST.hs b/tests/Tests/Readers/RST.hs index b8b170054..c05f2f5e4 100644 --- a/tests/Tests/Readers/RST.hs +++ b/tests/Tests/Readers/RST.hs @@ -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"]) |