opensource/pandoc
3
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-24 15:44:59 +08:00
Code Issues Packages Projects Releases Wiki Activity

Revert "FB2 reader test: filter CRs."

Browse Source 
This reverts commit e35147d715.
This commit is contained in:
John MacFarlane
2019-09-13 22:08:42 -07:00
parent e35147d715
commit 7ecae69e27
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/Tests/Readers/FB2.hs
+2 -2
View File
@@ -20,14 +20,14 @@ import qualified Data.ByteString as BS
import Text.Pandoc
import Text.Pandoc.UTF8 (toText, fromTextLazy)
import Data.Text (Text)
import qualified Data.Text.Lazy as TL
import Data.Text.Lazy (fromStrict)
import System.FilePath (replaceExtension)
fb2ToNative :: Text -> Text
fb2ToNative = purely (writeNative def{ writerTemplate = Just mempty }) . purely (readFB2 def)
fb2Test :: TestName -> FilePath -> TestTree
fb2Test name path = goldenVsString name native (fromTextLazy . TL.filter (/= '\r') . TL.fromStrict . fb2ToNative . toText <$> BS.readFile path)
fb2Test name path = goldenVsString name native (fromTextLazy . fromStrict . fb2ToNative . toText <$> BS.readFile path)
where native = replaceExtension path ".native"
tests :: [TestTree]