@@ -140,6 +140,15 @@ tests = [ testGroup "inline code"
140140 [ "two strongs in emph" =:
141141 "***a**b **c**d*" =?> para (emph (strong (str "a") <> str "b" <> space
142142 <> strong (str "c") <> str "d"))
143+ , "emph and strong emph alternating" =:
144+ "*xxx* ***xxx*** xxx\n*xxx* ***xxx*** xxx"
145+ =?> para (emph "xxx" <> space <> strong (emph "xxx") <>
146+ space <> "xxx" <> space <>
147+ emph "xxx" <> space <> strong (emph "xxx") <>
148+ space <> "xxx")
149+ , "emph with spaced strong" =:
150+ "*x **xx** x*"
151+ =?> para (emph ("x" <> space <> strong "xx" <> space <> "x"))
143152 ]
144153 , testGroup "raw LaTeX"
145154 [ "in URL" =:
@@ -179,17 +188,6 @@ tests = [ testGroup "inline code"
179188 ("À l'arrivée de la guerre, le thème de l'«impossibilité du socialisme»"
180189 =?> para "À l’arrivée de la guerre, le thème de l’«impossibilité du socialisme»")
181190 ]
182− , testGroup "mixed emphasis and strong"
183− [ "emph and strong emph alternating" =:
184− "*xxx* ***xxx*** xxx\n*xxx* ***xxx*** xxx"
185− =?> para (emph "xxx" <> space <> strong (emph "xxx") <>
186− space <> "xxx" <> space <>
187− emph "xxx" <> space <> strong (emph "xxx") <>
188− space <> "xxx")
189− , "emph with spaced strong" =:
190− "*x **xx** x*"
191− =?> para (emph ("x" <> space <> strong "xx" <> space <> "x"))
192− ]
193191 , testGroup "footnotes"
194192 [ "indent followed by newline and flush-left text" =:
195193 "[^1]\n\n[^1]: my note\n\n \nnot in note\n"