opensource/pandoc
3
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-30 17:59:17 +08:00
Code Issues Packages Projects Releases Wiki Activity

hlint Muse writer tests

Browse Source
This commit is contained in:
Alexander Krotov
2018-09-04 11:00:44 +03:00
parent 66f3b00206
commit bec2023265
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/Tests/Writers/Muse.hs
+6 -6
View File
@@ -275,7 +275,7 @@ tests = [ testGroup "block elements"
unlines [ "#bar"
, "** Foo"
]
, "empty heading" =: header 4 (mempty) =?> "**** <verbatim></verbatim>"
, "empty heading" =: header 4 mempty =?> "**** <verbatim></verbatim>"
]
, "horizontal rule" =: horizontalRule =?> "----"
, "escape horizontal rule" =: para (text "----") =?> "<verbatim></verbatim>----"
@@ -341,8 +341,8 @@ tests = [ testGroup "block elements"
, "do not escape colon" =: str ":" =?> ":"
, "escape - to avoid accidental unordered lists" =: text " - foo" =?> "<verbatim></verbatim> - foo"
, "escape - inside a list to avoid accidental nested unordered lists" =:
bulletList [ (para $ text "foo") <>
(para $ text "- bar")
bulletList [ para (text "foo") <>
para (text "- bar")
] =?>
unlines [ " - foo"
, ""
@@ -469,11 +469,11 @@ tests = [ testGroup "block elements"
=?> "<class name=\"foobar\">Some text</class>"
, "span without class" =: spanWith ("",[],[]) (text "Some text")
=?> "<class>Some text</class>"
, "span with anchor" =: spanWith ("anchor", [], []) (mempty) <> (text "Foo bar")
, "span with anchor" =: spanWith ("anchor", [], []) mempty <> text "Foo bar"
=?> "#anchor Foo bar"
, "empty span with anchor" =: spanWith ("anchor", [], []) (mempty)
, "empty span with anchor" =: spanWith ("anchor", [], []) mempty
=?> "#anchor"
, "empty span without class and anchor" =: spanWith ("", [], []) (mempty)
, "empty span without class and anchor" =: spanWith ("", [], []) mempty
=?> "<class></class>"
, "span with class and anchor" =: spanWith ("anchor", ["foo"], []) (text "bar")
=?> "#anchor <class name=\"foo\">bar</class>"