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