82b3e0ab97
- The (non-exported) prelude is in prelude/Prelude.hs. - It exports Monoid and Applicative, like base 4.8 prelude, but works with older base versions. - It exports (<>) for mappend. - It hides 'catch' on older base versions. This allows us to remove many imports of Data.Monoid and Control.Applicative, and remove Text.Pandoc.Compat.Monoid. It should allow us to use -Wall again for ghc 7.10.
37 lines
1.1 KiB
Haskell
37 lines
1.1 KiB
Haskell
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)
|
|
]
|
|
]
|