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

Muse writer tests: compare Text without converting to [Char]

Browse source
This commit is contained in:
Alexander Krotov 2019-04-28 03:21:14 +03:00
parent 66dd2008b0
commit 2b2d9baaa8
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
test/Tests/Writers/Muse.hs
View file

@ -2,8 +2,8 @@
{-# LANGUAGE OverloadedStrings #-}
module Tests.Writers.Muse (tests) where
import Prelude
import Data.Text (unpack)
import Prelude hiding (unlines)
import Data.Text (Text, unlines)
import Test.Tasty
import Tests.Helpers
import Text.Pandoc
@ -15,15 +15,15 @@ defopts = def{ writerWrapText = WrapPreserve,
writerExtensions = extensionsFromList [Ext_amuse,
Ext_auto_identifiers] }
muse :: (ToPandoc a) => a -> String
muse :: (ToPandoc a) => a -> Text
muse = museWithOpts defopts
museWithOpts :: (ToPandoc a) => WriterOptions -> a -> String
museWithOpts opts = unpack . purely (writeMuse opts) . toPandoc
museWithOpts :: (ToPandoc a) => WriterOptions -> a -> Text
museWithOpts opts = purely (writeMuse opts) . toPandoc
infix 4 =:
(=:) :: (ToString a, ToPandoc a)
=> String -> (a, String) -> TestTree
=> String -> (a, Text) -> TestTree
(=:) = test muse
noteLocationTestDoc :: Blocks