@@ -140,6 +140,15 @@ tests = [ testGroup "inline code"
140 [ "two strongs in emph" =:
140 [ "two strongs in emph" =:
141 "***a**b **c**d*" =?> para (emph (strong (str "a") <> str "b" <> space
141 "***a**b **c**d*" =?> para (emph (strong (str "a") <> str "b" <> space
142 <> strong (str "c") <> str "d"))
142 <> 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") <>
149+ , "emph with spaced strong" =:
151+ =?> para (emph ("x" <> space <> strong "xx" <> space <> "x"))
144 , testGroup "raw LaTeX"
153 , testGroup "raw LaTeX"
145 [ "in URL" =:
154 [ "in URL" =:
@@ -179,17 +188,6 @@ tests = [ testGroup "inline code"
179 ("À l'arrivée de la guerre, le thème de l'«impossibilité du socialisme»"
188 ("À l'arrivée de la guerre, le thème de l'«impossibilité du socialisme»"
180 =?> para "À l’arrivée de la guerre, le thème de l’«impossibilité du socialisme»")
189 =?> para "À l’arrivée de la guerre, le thème de l’«impossibilité du socialisme»")
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") <>
189− , "emph with spaced strong" =:
191− =?> para (emph ("x" <> space <> strong "xx" <> space <> "x"))
193 , testGroup "footnotes"
191 , testGroup "footnotes"
194 [ "indent followed by newline and flush-left text" =:
192 [ "indent followed by newline and flush-left text" =:
195 "[^1]\n\n[^1]: my note\n\n \nnot in note\n"
193 "[^1]\n\n[^1]: my note\n\n \nnot in note\n"