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
@@ -843,6 +846,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
@@ -878,7 +882,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
@@ -891,6 +895,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
@@ -931,6 +937,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

test/Test/Offline/Phylo.hs

@@ -5,19 +5,21 @@
 
 module Test.Offline.Phylo (tests) where
 
+import Data.Aeson
 import Data.GraphViz.Attributes.Complete qualified as Graphviz
+import Data.Text.Lazy as TL
 import Data.Vector qualified as V
 import Gargantext.Core.Viz.Phylo
 import Gargantext.Core.Viz.Phylo.API.Tools (readPhylo, writePhylo)
 import Gargantext.Core.Viz.Phylo.PhyloExport
-import Gargantext.Core.Viz.Phylo.PhyloMaker (toPhylo)
+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 Data.Text.Lazy as TL
 
+import Common
 import Paths_gargantext
 
 phyloConfig :: PhyloConfig
@@ -46,12 +48,37 @@ phyloConfig = PhyloConfig {
 
 tests :: TestTree
 tests = testGroup "Phylo" [
-  -- testCase "returns expected data" testSmallPhyloExpectedOutput
   testGroup "Export" [
       testCase "ngramsToLabel respects encoding" test_ngramsToLabel_01
     , testCase "ngramsToLabel is rendered correctly in CustomAttribute" test_ngramsToLabel_02
     ]
+  , 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
@@ -69,3 +96,17 @@ test_ngramsToLabel_02 :: Assertion
 test_ngramsToLabel_02 =
   let ngrams = V.fromList [ "钱", "狗" ]
   in (Graphviz.customValue $ toAttr "lbl" $ TL.fromStrict $ ngramsToLabel ngrams [0,1]) @?= "钱 | 狗"
+
+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]]