diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-12-04 15:59:26 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2017-12-04 15:59:26 +0300 |
| commit | ed261e58320038601ec37a78cb5fe94f2013ca66 (patch) | |
| tree | 0f1a9c785e976694ed74c1d474a3285e12ca65db /test | |
| parent | 4235c2d416fdfce27664d5e2f481a368a70ef949 (diff) | |
Muse reader: add underline support in Emacs Muse mode
Diffstat (limited to 'test')
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index c0da48586..3a3d7d864 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -10,6 +10,7 @@ import Tests.Helpers import Text.Pandoc import Text.Pandoc.Arbitrary () import Text.Pandoc.Builder +import Text.Pandoc.Shared (underlineSpan) -- import Text.Pandoc.Walk (walk) amuse :: Text -> Pandoc @@ -83,6 +84,9 @@ tests = "***strength***" =?> para (strong . emph $ "strength") + , test emacsMuse "Underline" + ("_Underline_" =?> para (underlineSpan "Underline")) + , "Superscript tag" =: "<sup>Superscript</sup>" =?> para (superscript "Superscript") , "Subscript tag" =: "<sub>Subscript</sub>" =?> para (subscript "Subscript") |