7ecae69 · typeable/pandoc

git.iko.soy/typeable/pandoc

Revert "FB2 reader test: filter CRs."

This reverts commit e35147d715a737bb854e0c527243f77d970d1b86.

commit7ecae69e27289923b4c6302c8b7dd35dc5da891f authorJohn MacFarlane <jgm@berkeley.edu> dateFri 13 Sep 2019, 22:08 (7 years ago) parente35147d

1 file changed+2−2

unifiedsplit

test/Tests/Readers/FB2.hs+2−2

@@ -20,14 +20,14 @@ import qualified Data.ByteString as BS

2020import Text.Pandoc

2121import Text.Pandoc.UTF8 (toText, fromTextLazy)

2222import Data.Text (Text)

23−import qualified Data.Text.Lazy as TL

23+import Data.Text.Lazy (fromStrict)

2424import System.FilePath (replaceExtension)

2525

2626fb2ToNative :: Text -> Text

2727fb2ToNative = purely (writeNative def{ writerTemplate = Just mempty }) . purely (readFB2 def)

2828

2929fb2Test :: TestName -> FilePath -> TestTree

30−fb2Test name path = goldenVsString name native (fromTextLazy . TL.filter (/= '\r') . TL.fromStrict . fb2ToNative . toText <$> BS.readFile path)

30+fb2Test name path = goldenVsString name native (fromTextLazy . fromStrict . fb2ToNative . toText <$> BS.readFile path)

3131 where native = replaceExtension path ".native"

3232

3333tests :: [TestTree]