@@ -2,7 +2,6 @@ module Tests.Command (findPandoc, runTest, tests)
22where
33
44import Data.Algorithm.Diff
5−import qualified Data.Text as T
65import Data.List (isSuffixOf)
76import Prelude hiding (readFile)
87import System.Directory
@@ -14,6 +13,7 @@ import Test.Tasty.HUnit
1413import Tests.Helpers
1514import Text.Pandoc
1615import Text.Pandoc.Shared (trimr)
16+import qualified Data.ByteString as BS
1717import qualified Text.Pandoc.UTF8 as UTF8
1818import System.IO.Unsafe (unsafePerformIO) -- TODO temporary
1919
@@ -84,10 +84,9 @@ runCommandTest pandocpath (num, code) =
8484
8585extractCommandTest :: FilePath -> FilePath -> TestTree
8686extractCommandTest pandocpath fp = unsafePerformIO $ do
87− contents <- UTF8.readFile ("command" </> fp)
87+ contents <- UTF8.toText <$> BS.readFile ("command" </> fp)
8888 Pandoc _ blocks <- runIOorExplode (readMarkdown
89− def{ readerExtensions = pandocExtensions }
90− (T.pack contents))
89+ def{ readerExtensions = pandocExtensions } contents)
9190 let codeblocks = map extractCode $ filter isCodeBlock $ blocks
9291 let cases = map (runCommandTest pandocpath) $ zip [1..] codeblocks
9392 return $ testGroup fp cases