Update tests for #1649

This commit is contained in:
Matthew Pickering
2014-09-27 22:40:25 +01:00
parent 5cb475c374
commit fa2d11c954
+3 -1
View File
@@ -702,7 +702,9 @@ tests =
]
])
]
, "Definition list with multi-word term" =:
" - Elijah Wood :: He plays Frodo" =?>
definitionList [ ("Elijah" <> space <> "Wood", [plain $ "He" <> space <> "plays" <> space <> "Frodo"])]
, "Compact definition list" =:
unlines [ "- ATP :: adenosine 5' triphosphate"
, "- DNA :: deoxyribonucleic acid"