diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2018-04-24 10:49:04 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2018-04-24 10:49:04 -0700 |
commit | a080dde1efb823e6e25e6ba0ead2afeb76012e43 (patch) | |
tree | 6165e39a24544d1387a201790541147e0f7478ab /tests/Tests/Readers/EPUB.hs | |
parent | a9ae23fa15d769ab9b05f483c8511e96cc684403 (diff) | |
parent | de5ee82ed0e287ada3a5b272d8365a04fe8e9f95 (diff) |
Merge tag 'upstream/2.1.2_dfsg'
Upstream version 2.1.2~dfsg
# gpg: Signature made Tue 24 Apr 2018 10:48:48 AM MST
# gpg: using RSA key 9B917007AE030E36E4FC248B695B7AE4BF066240
# gpg: issuer "spwhitton@spwhitton.name"
# gpg: Good signature from "Sean Whitton <spwhitton@spwhitton.name>" [ultimate]
# Primary key fingerprint: 8DC2 487E 51AB DD90 B5C4 753F 0F56 D055 3B6D 411B
# Subkey fingerprint: 9B91 7007 AE03 0E36 E4FC 248B 695B 7AE4 BF06 6240
Diffstat (limited to 'tests/Tests/Readers/EPUB.hs')
-rw-r--r-- | tests/Tests/Readers/EPUB.hs | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/tests/Tests/Readers/EPUB.hs b/tests/Tests/Readers/EPUB.hs deleted file mode 100644 index 2ad36eba6..000000000 --- a/tests/Tests/Readers/EPUB.hs +++ /dev/null @@ -1,37 +0,0 @@ -module Tests.Readers.EPUB (tests) where - -import Text.Pandoc.Options -import Test.Framework -import Test.HUnit (assertBool) -import Test.Framework.Providers.HUnit -import qualified Data.ByteString.Lazy as BL -import Text.Pandoc.Readers.EPUB -import Text.Pandoc.MediaBag (MediaBag, mediaDirectory) -import Text.Pandoc.Error - -getMediaBag :: FilePath -> IO MediaBag -getMediaBag fp = snd . handleError . readEPUB def <$> BL.readFile fp - -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 :: [Test] -tests = - [ testGroup "EPUB Mediabag" - [ testCase "features bag" - (testMediaBag "epub/img.epub" featuresBag) - ] - ] |