@@ -702,7 +702,9 @@ tests =
705−
705+ , "Definition list with multi-word term" =:
706+ " - Elijah Wood :: He plays Frodo" =?>
707+ definitionList [ ("Elijah" <> space <> "Wood", [plain $ "He" <> space <> "plays" <> space <> "Frodo"])]
706 , "Compact definition list" =:
708 , "Compact definition list" =:
707 unlines [ "- ATP :: adenosine 5' triphosphate"
709 unlines [ "- ATP :: adenosine 5' triphosphate"
708 , "- DNA :: deoxyribonucleic acid"
710 , "- DNA :: deoxyribonucleic acid"