@@ -53,6 +53,13 @@ tests = [ testGroup "code blocks"
5353 headerWith ("foo",["unnumbered"],[]) 1
5454 (text "Header 1" <> note (plain $ text "note")) =?>
5555 "\\section*{Header 1\\footnote{note}}\\label{foo}\n\\addcontentsline{toc}{section}{Header 1}\n"
56+ , "in list item" =:
57+ bulletList [header 2 (text "foo")] =?>
58+ "\\begin{itemize}\n\\item ~\n \\subsection{foo}\n\\end{itemize}"
59+ , "in definition list item" =:
60+ definitionList [(text "foo", [header 2 (text "bar"),
61+ para $ text "baz"])] =?>
62+ "\\begin{description}\n\\item[foo] ~ \n\\subsection{bar}\n\nbaz\n\\end{description}"
5663 ]
5764 , testGroup "inline code"
5865 [ "struck out and highlighted" =: