epub-metadata-5.2: src/tests/ParsePackage.hs

module ParsePackage
   ( tests )
   where

import Control.Monad.Except
import Control.Monad.IO.Class ( liftIO )
import System.FilePath
import Test.HUnit

import Codec.Epub.Data.Package
import Codec.Epub.Parse


tests :: Test
tests = TestList
   [ testEpub2
   ]


{- Test reading the package info for an EPUB2 document
-}
testEpub2 :: Test
testEpub2 = TestCase $ do
   xmlString <- liftIO $ readFile $ "util" </> "resources" </> "epub2-minimal.opf"
   actual <- runExceptT $ getPackage xmlString
   let expected = 
         Right Package 
            { pkgVersion = "2.0"
            , pkgUniqueId = "isbn"
            }
   assertEqual "epub2 package info" expected actual