diff options
author | John MacFarlane <jgm@berkeley.edu> | 2018-05-11 16:51:55 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2018-05-11 17:10:32 -0700 |
commit | a00ca6f0d8e83821d9be910f1eebf3d3cdd1170f (patch) | |
tree | 3445409e6a4c854dfdd6ab8c6fdae7f3d30b3de3 /test/Tests/Readers/EPUB.hs.orig | |
parent | 9b92993a0adab2eefb07aa63b4104437f9c709c1 (diff) | |
download | pandoc-a00ca6f0d8e83821d9be910f1eebf3d3cdd1170f.tar.gz |
Removed inadvertently added .orig files from repository.
These were added by
https://github.com/schrieveslaach/pandoc/commit/96d10c72cc95e56c9e49db3e6db7118e89d1f1e0
Closes #4648.
Diffstat (limited to 'test/Tests/Readers/EPUB.hs.orig')
-rw-r--r-- | test/Tests/Readers/EPUB.hs.orig | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/test/Tests/Readers/EPUB.hs.orig b/test/Tests/Readers/EPUB.hs.orig deleted file mode 100644 index 1337a9c11..000000000 --- a/test/Tests/Readers/EPUB.hs.orig +++ /dev/null @@ -1,40 +0,0 @@ -module Tests.Readers.EPUB (tests) where - -import qualified Data.ByteString.Lazy as BL -import Test.Tasty -import Test.Tasty.HUnit -import qualified Text.Pandoc.Class as P -import Text.Pandoc.MediaBag (MediaBag, mediaDirectory) -import Text.Pandoc.Options -import Text.Pandoc.Readers.EPUB - -getMediaBag :: FilePath -> IO MediaBag -getMediaBag fp = do - bs <- BL.readFile fp - P.runIOorExplode $ do - readEPUB def bs - P.getMediaBag - -testMediaBag :: FilePath -> [(String, String, Int)] -> IO () -testMediaBag fp bag = do - actBag <- mediaDirectory <$> getMediaBag fp - assertBool (show "MediaBag did not match:\nExpected: " - ++ show bag - ++ "\nActual: " - ++ show actBag) - (actBag == bag) - -featuresBag :: [(String, String, Int)] -featuresBag = [("img/check.gif","image/gif",1340) - ,("img/check.jpg","image/jpeg",2661) - ,("img/check.png","image/png",2815) - ,("img/multiscripts_and_greek_alphabet.png","image/png",10060) - ] - -tests :: [TestTree] -tests = - [ testGroup "EPUB Mediabag" - [ testCase "features bag" - (testMediaBag "epub/img.epub" featuresBag) - ] - ] |