@@ -149,6 +149,8 @@ tests = [ testGroup "inline code"
149 , "emph with spaced strong" =:
149 , "emph with spaced strong" =:
150 "*x **xx** x*"
150 "*x **xx** x*"
151 =?> para (emph ("x" <> space <> strong "xx" <> space <> "x"))
151 =?> para (emph ("x" <> space <> strong "xx" <> space <> "x"))
152+ , "intraword underscore with opening underscore (#1121)" =:
153+ "_foot_ball_" =?> para (emph (text "foot_ball"))
153 , testGroup "raw LaTeX"
155 , testGroup "raw LaTeX"
154 [ "in URL" =:
156 [ "in URL" =: