diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-07 18:31:06 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-07 18:31:06 +0300 |
| commit | ebbd441d062f71c9a347704730f5ea3247527045 (patch) | |
| tree | 5dfefe902a0886a6b778162683fa358fd1dc1c08 /test | |
| parent | eecf6097927421c6f68dcc655afcc85500d2a2c2 (diff) | |
| download | pandoc-ebbd441d062f71c9a347704730f5ea3247527045.tar.gz | |
Muse reader: add support for <biblio> and <play> tags
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index fd96c892e..77b18e066 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -281,6 +281,23 @@ tests = ] =?> divWith ("foo", [], []) (para "Foo bar") ] + , "Biblio" =: + T.unlines [ "<biblio>" + , "" + , "Author, *Title*, description" + , "" + , "Another author, *Another title*, another description" + , "" + , "</biblio>" + ] =?> + divWith ("", ["biblio"], []) (para (text "Author, " <> emph "Title" <> ", description") <> + para (text "Another author, " <> emph "Another title" <> text ", another description")) + , "Play" =: + T.unlines [ "<play>" + , "Foo bar" + , "</play>" + ] =?> + divWith ("", ["play"], []) (para "Foo bar") , "Verse" =: T.unlines [ "> This is" , "> First stanza" |