Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Muse reader: test <literal> blocks

Browse source
This commit is contained in:
Alexander Krotov 2017-11-21 19:01:36 +03:00
parent 046f5bcc81
commit 59f537c31f
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
test/Tests/Readers/Muse.hs
View file

@ -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"