@@ -702,7 +702,9 @@ tests =
702702 ]
703703 ])
704704 ]
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"])]
706708 , "Compact definition list" =:
707709 unlines [ "- ATP :: adenosine 5' triphosphate"
708710 , "- DNA :: deoxyribonucleic acid"