diff options
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index c76013b90..e260e4bea 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -303,6 +303,20 @@ tests = ] =?> codeBlock "Example line\n" ] + , testGroup "Literal blocks" + [ test emacsMuse "Literal block" + (T.unlines [ "<literal style=\"latex\">" + , "\\newpage" + , "</literal>" + ] =?> + rawBlock "latex" "\\newpage") + , "No literal blocks in Text::Amuse" =: + T.unlines [ "<literal style=\"latex\">" + , "\\newpage" + , "</literal>" + ] =?> + para "<literal style=\"latex\">\n\\newpage\n</literal>" + ] , "Center" =: "<center>Hello, world</center>" =?> para (text "Hello, world") , "Right" =: "<right>Hello, world</right>" =?> para (text "Hello, world") , testGroup "Comments" |