diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-12 01:40:23 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-12 01:47:20 +0300 |
| commit | 19fd98e452ee1f7be902735ac76500306672f2e7 (patch) | |
| tree | 1a61917f7e16c6d66ff573d644b8797884f36a2a /test | |
| parent | 9bcd0908482f26e3630a02e3ad3596a2f67fcab9 (diff) | |
| download | pandoc-19fd98e452ee1f7be902735ac76500306672f2e7.tar.gz | |
Muse writer: support spans with anchors
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Writers/Muse.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs index 509c20401..b86dee5e1 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -380,8 +380,12 @@ tests = [ testGroup "block elements" , "" , "[1] Foo" ] - , "span" =: spanWith ("",["foobar"],[]) (str "Some text") + , "span with class" =: spanWith ("",["foobar"],[]) (text "Some text") =?> "<class name=\"foobar\">Some text</class>" + , "span with anchor" =: spanWith ("anchor", [], []) (text "Foo bar") + =?> "#anchor Foo bar" + , "span with class and anchor" =: spanWith ("anchor", ["foo"], []) (text "bar") + =?> "#anchor <class name=\"foo\">bar</class>" , testGroup "combined" [ "emph word before" =: para (text "foo" <> emph (text "bar")) =?> |