aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2017-11-21 19:01:36 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2017-11-21 19:01:53 +0300
commit59f537c31f4fedcc37b30260c804456289305175 (patch)
tree2e36cc369058876f5abeb7b56ec0e7285716c2bd /test
parent046f5bcc8129334cd2a3945417abdc3a956318f2 (diff)
downloadpandoc-59f537c31f4fedcc37b30260c804456289305175.tar.gz
Muse reader: test <literal> blocks
Diffstat (limited to 'test')
-rw-r--r--test/Tests/Readers/Muse.hs14
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"