@@ -303,6 +303,20 @@ tests =
304 codeBlock "Example line\n"
304 codeBlock "Example line\n"
306+ , testGroup "Literal blocks"
307+ [ test emacsMuse "Literal block"
308+ (T.unlines [ "<literal style=\"latex\">"
312+ rawBlock "latex" "\\newpage")
313+ , "No literal blocks in Text::Amuse" =:
314+ T.unlines [ "<literal style=\"latex\">"
318+ para "<literal style=\"latex\">\n\\newpage\n</literal>"
306 , "Center" =: "<center>Hello, world</center>" =?> para (text "Hello, world")
320 , "Center" =: "<center>Hello, world</center>" =?> para (text "Hello, world")
307 , "Right" =: "<right>Hello, world</right>" =?> para (text "Hello, world")
321 , "Right" =: "<right>Hello, world</right>" =?> para (text "Hello, world")
308 , testGroup "Comments"
322 , testGroup "Comments"