src-test/Main.hs

   1 {-|
   2 Module      : Main.hs
   3 Description : Main for Gargantext Tests
   4 Copyright   : (c) CNRS, 2017-Present
   5 License     : AGPL + CECILL v3
   6 Maintainer  : team@gargantext.org
   7 Stability   : experimental
   8 Portability : POSIX
   9 -}
  10
  11
  12 import Gargantext.Prelude
  13
  14 import qualified Core.Text.Corpus.Query  as CorpusQuery
  15 import qualified Core.Utils as Utils
  16 --import qualified Ngrams.Lang.Fr as Fr
  17 --import qualified Ngrams.Lang as Lang
  18 import qualified Ngrams.NLP              as NLP
  19 import qualified Ngrams.Query            as NgramsQuery
  20 import qualified Parsers.Date            as PD
  21 -- import qualified Graph.Distance          as GD
  22 import qualified Graph.Clustering        as Graph
  23 import qualified Utils.Crypto            as Crypto
  24 import qualified Utils.Jobs              as Jobs
  25 import qualified Offline.JSON            as JSON
  26
  27 import Test.Tasty
  28 import Test.Tasty.Hspec
  29
  30 main :: IO ()
  31 main = do
  32   utilSpec         <- testSpec "Utils" Utils.test
  33   clusteringSpec   <- testSpec "Graph Clustering" Graph.test
  34   dateParserSpec   <- testSpec "Date Parsing" PD.testFromRFC3339
  35   cryptoSpec       <- testSpec "Crypto" Crypto.test
  36   nlpSpec          <- testSpec "NLP" NLP.test
  37   jobsSpec         <- testSpec "Jobs" Jobs.test
  38
  39   defaultMain $ testGroup "Gargantext"
  40     [ utilSpec
  41     , clusteringSpec
  42     , dateParserSpec
  43     , cryptoSpec
  44     , nlpSpec
  45     , jobsSpec
  46     , NgramsQuery.tests
  47     , CorpusQuery.tests
  48     , JSON.tests
  49     ]
  50 --    Occ.parsersTest
  51 --    Lang.ngramsExtractionTest FR
  52 --    Lang.ngramsExtractionTest EN
  53 --    Metrics.main
  54 --    GD.test