Add basic test coverage

crawlerPubMed.cabal

@@ -19,6 +19,9 @@ extra-source-files:
     README.md
     ChangeLog.md
 
+data-files:
+  test/test-corpus/pubmed-29768149.xml
+
 source-repository head
   type: git
   location: https://github.com/gitlab/crawlerPubMed
@@ -130,6 +133,8 @@ test-suite crawlerPubMed-test
     , optparse-applicative
     , servant
     , servant-client
+    , tasty
+    , tasty-hunit
     , taggy
     , taggy-lens
     , text

src/PUBMED/Parser.hs

@@ -39,7 +39,7 @@ data PubMed =
   PubMed { pubmed_id      :: Int
          , pubmed_article :: PubMedArticle
          , pubmed_date    :: PubMedDate
-         } deriving Show
+         } deriving (Show, Eq)
 
 data PubMedArticle =
      PubMedArticle { pubmed_title   :: Maybe T.Text
@@ -47,23 +47,24 @@ data PubMedArticle =
                    , pubmed_abstract :: [T.Text]
                    , pubmed_authors :: [Author]
                    }
-                   deriving (Show)
+                   deriving (Show, Eq)
 
 data Author =
   Author { lastName :: Maybe T.Text
          , foreName :: Maybe T.Text
          , affiliation :: Maybe T.Text
          }
-  deriving (Show)
+  deriving (Show, Eq)
 
 data PubMedDate =
      PubMedDate { pubmedDate_date     :: UTCTime
                 , pubmedDate_year     :: Integer
                 , pubmedDate_month    :: Int
                 , pubmedDate_day      :: Int
-                } deriving (Show)
+                } deriving (Show, Eq)
 
 
+parsePubMedFile :: FilePath -> IO [PubMed]
 parsePubMedFile fp = do
   input <- TLIO.readFile fp
   pure $ parsePubMed input