From d9e17cb3f76f324bad8bbbb931456f5b152adca9 Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Fri, 3 Jul 2015 16:56:25 +0200 Subject: Tests.Readers.RST: Test metadata with inline markup too --- tests/Tests/Readers/RST.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'tests') 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"]) -- cgit v1.2.3