@@ -60,6 +60,9 @@ tests = [ testGroup "code blocks"
6060 definitionList [(text "foo", [header 2 (text "bar"),
6161 para $ text "baz"])] =?>
6262 "\\begin{description}\n\\item[foo] ~ \n\\subsection{bar}\n\nbaz\n\\end{description}"
63+ , "containing image" =:
64+ header 1 (image "imgs/foo.jpg" "" (text "Alt text")) =?>
65+ "\\section{\\protect\\includegraphics{imgs/foo.jpg}}"
6366 ]
6467 , testGroup "inline code"
6568 [ "struck out and highlighted" =: