Add toPhyloWithoutLink test coverage

gargantext.cabal

@@ -38,6 +38,9 @@ data-files:
     test-data/phylo/bpa_phylo_test.json
     test-data/phylo/open_science.json
     test-data/phylo/issue-290-small.golden.json
+    test-data/phylo/small-phylo.golden.json
+    test-data/phylo/small_phylo_docslist.csv
+    test-data/phylo/small_phylo_ngramslist.csv
     test-data/stemming/lancaster.txt
     test-data/test_config.ini
     gargantext-cors-settings.toml
@@ -842,6 +845,7 @@ test-suite garg-test-tasty
   main-is: drivers/tasty/Main.hs
   other-modules:
       Test.API.Routes
+      Common
       Test.API.Setup
       Test.Core.Similarity
       Test.Core.Text
@@ -877,7 +881,7 @@ test-suite garg-test-tasty
       Test.Utils.Jobs
       Paths_gargantext
   hs-source-dirs:
-      test
+      test bin/gargantext-phylo/Phylo
   ghc-options: -Wall -threaded -rtsopts -with-rtsopts=-N
   build-depends:
       QuickCheck ^>= 2.14.2
@@ -890,6 +894,8 @@ test-suite garg-test-tasty
     , conduit ^>= 1.3.4.2
     , containers ^>= 0.6.5.1
     , crawlerArxiv
+    , cryptohash
+    , directory
     , duckling ^>= 0.2.0.0
     , extra ^>= 1.7.9
     , fast-logger ^>= 3.0.5
@@ -929,6 +935,7 @@ test-suite garg-test-tasty
     , servant-server
     , shelly >= 1.9 && < 2
     , stm ^>= 2.5.0.1
+    , split
     , tasty ^>= 1.4.2.1
     , tasty-golden
     , tasty-hspec
@@ -942,6 +949,7 @@ test-suite garg-test-tasty
     , tree-diff
     , unordered-containers ^>= 0.2.16.0
     , validity ^>= 0.11.0.1
+    , vector
     , wai
     , wai-extra
     , warp

test/Test/Offline/Phylo.hs

@@ -5,14 +5,16 @@
 
 module Test.Offline.Phylo (tests) where
 
+import Data.Aeson
 import Gargantext.Core.Viz.Phylo
-import Gargantext.Core.Viz.Phylo.API.Tools (readPhylo, writePhylo)
-import Gargantext.Core.Viz.Phylo.PhyloMaker (toPhylo)
+import Gargantext.Core.Viz.Phylo.API.Tools (readPhylo)
+import Gargantext.Core.Viz.Phylo.PhyloMaker (toPhylo, toPhyloWithoutLink)
 import Gargantext.Core.Viz.Phylo.PhyloTools
 import Prelude
 import Test.Tasty
 import Test.Tasty.HUnit
-import Test.Tasty.QuickCheck
+
+import Common
 
 import Paths_gargantext
 
@@ -42,12 +44,51 @@ phyloConfig = PhyloConfig {
 
 tests :: TestTree
 tests = testGroup "Phylo" [
-  -- testCase "returns expected data" testSmallPhyloExpectedOutput
+    testGroup "toPhyloWithoutLink" [
+      testCase "returns expected data" testSmallPhyloWithoutLinkExpectedOutput
+    ]
+  , testGroup "toPhylo" [
+    testCase "returns expected data" testSmallPhyloExpectedOutput
+  ]
+  , testGroup "relatedComponents" [
+    testCase "finds simple connection" testRelComp_Connected
+  ]
   ]
 
+testSmallPhyloWithoutLinkExpectedOutput :: Assertion
+testSmallPhyloWithoutLinkExpectedOutput = do
+  bpaConfig      <- getDataFileName "bench-data/phylo/bpa-config.json"
+  corpusPath'    <- getDataFileName "test-data/phylo/small_phylo_docslist.csv"
+  listPath'      <- getDataFileName "test-data/phylo/small_phylo_ngramslist.csv"
+  (Right config) <- fmap (\pcfg -> pcfg { corpusPath = corpusPath'
+                                        , listPath   = listPath'
+                                        }) <$> (eitherDecodeFileStrict' bpaConfig)
+  mapList <- fileToList (listParser config) (listPath config)
+  corpus <- fileToDocsDefault (corpusParser config)
+                              (corpusPath config)
+                              [Year 3 1 5,Month 3 1 5,Week 4 2 5]
+                              mapList
+  actual   <- pure $ toPhyloWithoutLink corpus config
+  expected <- readPhylo =<< getDataFileName "test-data/phylo/small-phylo.golden.json"
+  expected @?= actual
+
 testSmallPhyloExpectedOutput :: Assertion
 testSmallPhyloExpectedOutput = do
   issue290PhyloSmall <- setConfig phyloConfig <$> (readPhylo =<< getDataFileName "bench-data/phylo/issue-290-small.json")
   expected <- readPhylo =<< getDataFileName "test-data/phylo/issue-290-small.golden.json"
   let actual = toPhylo issue290PhyloSmall
   expected @?= actual
+
+testRelComp_Connected :: Assertion
+testRelComp_Connected = do
+  (relatedComponents @Int) []                                @?= []
+  (relatedComponents @Int) [[]]                              @?= [[]]
+  (relatedComponents @Int) [[],[1,2]]                        @?= [[],[1,2]]
+  (relatedComponents @Int) [[1,2],[]]                        @?= [[1,2],[]]
+  (relatedComponents @Int) [[1,2], [2]]                      @?= [[1,2]]
+  (relatedComponents @Int) [[1,2], [2],[2]]                  @?= [[1,2]]
+  (relatedComponents @Int) [[1,2], [2],[2,1]]                @?= [[1,2]]
+  (relatedComponents @Int) [[1,2], [2,4]]                    @?= [[1,2,4]]
+  (relatedComponents @Int) [[1,2], [3,5], [2,4]]             @?= [[3,5], [1,2,4]]
+  (relatedComponents @Int) [[1,2], [3,5], [2,4],[9,5],[5,4]] @?= [[1,2,4,3,5,9]]
+  (relatedComponents @Int) [[1,2,5], [4,5,9]]                @?= [[1,2,5,4,9]]