@@ -62,7 +62,9 @@ tests = [ "line block with blank line" =:
6262 $ setMeta "subtitle" ("Subtitle" :: Inlines)
6363 $ doc mempty )
6464 , "with inline markup" =: unlines
65− [ "the following field list is not metadata"
65+ [ ":*Date*: today"
66+ , ""
67+ , ".."
6668 , ""
6769 , ":*one*: emphasis"
6870 , ":two_: reference"
@@ -72,9 +74,9 @@ tests = [ "line block with blank line" =:
7274 , ".. _two: http://example.com"
7375 , ".. _three: http://example.org"
7476 ]
75− =?> ( doc
76− $ para "the following field list is not metadata" <>
77− definitionList [ (emph "one", [para "emphasis"])
77+ =?> ( setMeta "date" (str "today")
78+ $ doc
79+ $ definitionList [ (emph "one", [para "emphasis"])
7880 , (link "http://example.com" "" "two", [para "reference"])
7981 , (link "http://example.org" "" "three", [para "another one"])
8082 , (code "four", [para "literal"])