@@ -126,6 +126,10 @@ tests =
126126 , (emph "b") <> "."
127127 ])
128128
129+ , "Markup should work properly after a blank line" =:
130+ unlines ["foo", "", "/bar/"] =?>
131+ (para $ text "foo") <> (para $ emph $ text "bar")
132+
129133 , "Inline math must stay within three lines" =:
130134 unlines [ "$a", "b", "c$", "$d", "e", "f", "g$" ] =?>
131135 para ((math "a\nb\nc") <> space <>
@@ -944,7 +948,7 @@ tests =
944948 , ""
945949 , "#+RESULTS:"
946950 , ": 65" ] =?>
947− rawBlock "html" ""
951+ rawBlock "html" ""
948952
949953 , "Example block" =:
950954 unlines [ "#+begin_example"