aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Readers/EPUB.hs.orig
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-05-11 16:51:55 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-05-11 17:10:32 -0700
commita00ca6f0d8e83821d9be910f1eebf3d3cdd1170f (patch)
tree3445409e6a4c854dfdd6ab8c6fdae7f3d30b3de3 /test/Tests/Readers/EPUB.hs.orig
parent9b92993a0adab2eefb07aa63b4104437f9c709c1 (diff)
downloadpandoc-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.orig40
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)
- ]
- ]