aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Readers/EPUB.hs
diff options
context:
space:
mode:
Diffstat (limited to 'test/Tests/Readers/EPUB.hs')
-rw-r--r--test/Tests/Readers/EPUB.hs34
1 files changed, 33 insertions, 1 deletions
diff --git a/test/Tests/Readers/EPUB.hs b/test/Tests/Readers/EPUB.hs
index 82e63bb64..f917668ef 100644
--- a/test/Tests/Readers/EPUB.hs
+++ b/test/Tests/Readers/EPUB.hs
@@ -44,10 +44,42 @@ featuresBag = [("img/check.gif","image/gif",1340)
,("img/multiscripts_and_greek_alphabet.png","image/png",10060)
]
+-- with additional meta tag for cover in EPUB2 format
+epub3CoverBag :: [(String, String, Int)]
+epub3CoverBag = [("wasteland-cover.jpg","image/jpeg",103477)]
+
+epub3NoCoverBag :: [(String, String, Int)]
+epub3NoCoverBag = [("img/check.gif","image/gif",1340)
+ ,("img/check.jpg","image/jpeg",2661)
+ ,("img/check.png","image/png",2815)
+ ]
+
+-- content.opf uses the word `picture` to refer to the cover as much as validly possible
+-- to check if references are resolved correctly
+epub2PictureBag :: [(String, String, Int)]
+epub2PictureBag = [("image/image.jpg","image/jpeg",9713)]
+
+-- content.opf contains the word `cover` as much as possible, to check if possible multiple matches cause errors
+epub2CoverBag :: [(String, String, Int)]
+epub2CoverBag = [("image/cover.jpg","image/jpeg",9713)]
+
+epub2NoCoverBag :: [(String, String, Int)]
+epub2NoCoverBag = []
+
tests :: [TestTree]
tests =
[ testGroup "EPUB Mediabag"
[ testCase "features bag"
- (testMediaBag "epub/img.epub" featuresBag)
+ (testMediaBag "epub/img.epub" featuresBag),
+ testCase "EPUB3 cover bag"
+ (testMediaBag "epub/wasteland.epub" epub3CoverBag),
+ testCase "EPUB3 no cover bag"
+ (testMediaBag "epub/img_no_cover.epub" epub3NoCoverBag),
+ testCase "EPUB2 picture bag"
+ (testMediaBag "epub/epub2_picture.epub" epub2PictureBag),
+ testCase "EPUB2 cover bag"
+ (testMediaBag "epub/epub2_cover.epub" epub2CoverBag),
+ testCase "EPUB2 no cover bag"
+ (testMediaBag "epub/epub2_no_cover.epub" epub2NoCoverBag)
]
]