Add Test module for List API

gargantext.cabal

@@ -805,6 +805,7 @@ test-suite garg-test-tasty
   other-modules:
       CLI.Phylo.Common
       Paths_gargantext
+      Test.API.Private.List
       Test.API.Private.Move
       Test.API.Private.Remote
       Test.API.Private.Share
@@ -879,6 +880,7 @@ test-suite garg-test-hspec
       Test.API.GraphQL
       Test.API.Notifications
       Test.API.Private
+      Test.API.Private.List
       Test.API.Private.Move
       Test.API.Private.Remote
       Test.API.Private.Share

hie.yaml

@@ -42,6 +42,9 @@ cradle:
     - path: "./bin/gargantext-cli/CLI/Phylo/Profile.hs"
       component: "gargantext:exe:gargantext"
 
+    - path: "./bin/gargantext-cli/CLI/Server.hs"
+      component: "gargantext:exe:gargantext"
+
     - path: "./bin/gargantext-cli/CLI/Server/Routes.hs"
       component: "gargantext:exe:gargantext"
 
@@ -51,13 +54,10 @@ cradle:
     - path: "./bin/gargantext-cli/CLI/Upgrade.hs"
       component: "gargantext:exe:gargantext"
 
-    - path: "./bin/gargantext-cli/Paths_gargantext.hs"
-      component: "gargantext:exe:gargantext"
-
-    - path: "./bin/gargantext-server/Main.hs"
+    - path: "./bin/gargantext-cli/CLI/Worker.hs"
       component: "gargantext:exe:gargantext"
 
-    - path: "./bin/gargantext-server/Paths_gargantext.hs"
+    - path: "./bin/gargantext-cli/Paths_gargantext.hs"
       component: "gargantext:exe:gargantext"
 
     - path: "./test"
@@ -68,9 +68,3 @@ cradle:
 
     - path: "./test"
       component: "gargantext:test:garg-test-hspec"
-
-    - path: "./bench/Main.hs"
-      component: "gargantext:bench:garg-bench"
-
-    - path: "./bench/Paths_gargantext.hs"
-      component: "gargantext:bench:garg-bench"

test/Test/API/Private.hs

@@ -23,6 +23,7 @@ import Test.API.Private.Move  qualified as Move
 import Test.API.Private.Remote  qualified as Remote
 import Test.API.Private.Share qualified as Share
 import Test.API.Private.Table qualified as Table
+import Test.API.Private.List qualified as List
 import Test.API.Routes (mkUrl, get_node, get_tree)
 import Test.API.Setup (withTestDBAndPort, dbEnvSetup, SpecContext (..))
 import Test.Hspec
@@ -114,3 +115,5 @@ tests = sequential $ do
     Move.tests
   describe "Remote API" $ do
     Remote.tests
+  describe "List API" $ do
+    List.tests

test/Test/API/Private/List.hs

+{-# LANGUAGE BangPatterns #-}
+{-# LANGUAGE TypeApplications #-}
+{-# LANGUAGE TypeFamilies #-}
+
+module Test.API.Private.List (
+    tests
+  ) where
+
+import Gargantext.Core.Types.Individu
+import Gargantext.Prelude
+import Test.API.Setup
+import Test.Hspec (Spec, it, aroundAll, describe, sequential)
+import Test.Hspec.Wai.Internal (withApplication)
+import Test.Utils
+
+tests :: Spec
+tests = sequential $ aroundAll withTestDBAndPort $ do
+  describe "Prelude" $ do
+    it "setup DB triggers" $ \SpecContext{..} -> do
+      setupEnvironment _sctx_env
+      -- Let's create the Alice user.
+      void $ createAliceAndBob _sctx_env
+
+    describe "Importing terms as TSV" $ do
+
+      it "should work for the simplest case" $ \(SpecContext _testEnv serverPort app _) -> do
+        withApplication app $ do
+          withValidLogin serverPort "alice" (GargPassword "alice") $ \_clientEnv _token -> do
+            pure ()