@@ -303,6 +303,20 @@ tests =
303303 ] =?>
304304 codeBlock "Example line\n"
305305 ]
306+ , testGroup "Literal blocks"
307+ [ test emacsMuse "Literal block"
308+ (T.unlines [ "<literal style=\"latex\">"
309+ , "\\newpage"
310+ , "</literal>"
311+ ] =?>
312+ rawBlock "latex" "\\newpage")
313+ , "No literal blocks in Text::Amuse" =:
314+ T.unlines [ "<literal style=\"latex\">"
315+ , "\\newpage"
316+ , "</literal>"
317+ ] =?>
318+ para "<literal style=\"latex\">\n\\newpage\n</literal>"
319+ ]
306320 , "Center" =: "<center>Hello, world</center>" =?> para (text "Hello, world")
307321 , "Right" =: "<right>Hello, world</right>" =?> para (text "Hello, world")
308322 , testGroup "Comments"