@@ -60,6 +60,9 @@ tests = [ testGroup "code blocks"
60 definitionList [(text "foo", [header 2 (text "bar"),
60 definitionList [(text "foo", [header 2 (text "bar"),
61 para $ text "baz"])] =?>
61 para $ text "baz"])] =?>
62 "\\begin{description}\n\\item[foo] ~ \n\\subsection{bar}\n\nbaz\n\\end{description}"
62 "\\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}}"
64 , testGroup "inline code"
67 , testGroup "inline code"
65 [ "struck out and highlighted" =:
68 [ "struck out and highlighted" =: