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
  26 import Test.Tasty
  27 import Test.Tasty.Hspec
  28
  29 main :: IO ()
  30 main = do
  31   utilSpec         <- testSpec "Utils" Utils.test
  32   clusteringSpec   <- testSpec "Graph Clustering" Graph.test
  33   dateParserSpec   <- testSpec "Date Parsing" PD.testFromRFC3339
  34   cryptoSpec       <- testSpec "Crypto" Crypto.test
  35   nlpSpec          <- testSpec "NLP" NLP.test
  36   jobsSpec         <- testSpec "Jobs" Jobs.test
  37
  38   defaultMain $ testGroup "Gargantext"
  39     [ utilSpec
  40     , clusteringSpec
  41     , dateParserSpec
  42     , cryptoSpec
  43     , nlpSpec
  44     , jobsSpec
  45     , NgramsQuery.tests
  46     , CorpusQuery.tests
  47     ]
  48 --    Occ.parsersTest
  49 --    Lang.ngramsExtractionTest FR
  50 --    Lang.ngramsExtractionTest EN
  51 --    Metrics.main
  52 --    GD.test