diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-21 19:01:36 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2017-11-21 19:01:53 +0300 |
| commit | 59f537c31f4fedcc37b30260c804456289305175 (patch) | |
| tree | 2e36cc369058876f5abeb7b56ec0e7285716c2bd /test | |
| parent | 046f5bcc8129334cd2a3945417abdc3a956318f2 (diff) | |
Muse reader: test <literal> blocks
Diffstat (limited to 'test')
| -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" |