Add GQL NodeType tests

src/Gargantext/API/GraphQL/Node.hs

@@ -22,6 +22,7 @@ import Gargantext.API.Admin.Auth.Types
 import Gargantext.API.Auth.PolicyCheck
 import Gargantext.API.GraphQL.PolicyCheck (withPolicy)
 import Gargantext.API.GraphQL.Types
+import Gargantext.Core
 import Gargantext.Database.Admin.Types.Node (NodeType)
 import Gargantext.Database.Admin.Types.Node qualified as NN
 import Gargantext.Database.Prelude (CmdCommon)  -- , JSONB)
@@ -43,6 +44,7 @@ data Node = Node
   , name         :: Text
   , parent_id    :: Maybe Int
   , type_id      :: Int
+  , node_type    :: Maybe NodeType
   } deriving (Show, Generic, GQLType)
 
 data CorpusArgs
@@ -113,10 +115,14 @@ dbParentNodes node_id parent_type = do
           pure [toNode node]
 
 toNode :: NN.Node json -> Node
-toNode N.Node { .. } = Node { id = NN.unNodeId _node_id
+toNode N.Node { .. } = Node { id = nid
                             , name = _node_name
                             , parent_id = NN.unNodeId <$> _node_parent_id
-                            , type_id = _node_typename }
+                            , type_id = _node_typename
+                            , node_type = lookupDBid nid
+                            }
+  where
+    nid = NN.unNodeId _node_id
 
 toCorpus :: NN.Node Value -> Corpus
 toCorpus N.Node { .. } = Corpus { id = NN.unNodeId _node_id

test/Test/API/GraphQL.hs

@@ -19,10 +19,9 @@ import Text.RawString.QQ (r)
 
 tests :: Spec
 tests = sequential $ aroundAll withTestDBAndPort $ do
-  describe "Prelude" $ do
-    it "setup DB triggers" $ \((testEnv, _), _) -> setupEnvironment testEnv
   describe "GraphQL" $ do
-
+    describe "Prelude" $ do
+      it "setup DB triggers" $ \((testEnv, _), _) -> setupEnvironment testEnv
 
     describe "get_user_infos" $ do
       it "allows 'alice' to see her own info" $ \((testEnv, port), app) -> do
@@ -34,6 +33,13 @@ tests = sequential $ aroundAll withTestDBAndPort $ do
             let expected = [json| {"data":{"user_infos":[{"ui_id":2,"ui_email":"alice@gargan.text"}]}} |]
             protected token "POST" "/gql" query `shouldRespondWithFragment` expected
 
+    describe "nodes" $ do
+      it "returns node_type" $ \((_testEnv, port), app) -> do
+        withApplication app $ do
+          withValidLogin port "gargantua" (GargPassword "secret_key") $ \token -> do
+            let query = [r| { "query": "{ nodes(node_id: 2) { node_type } }" } |]
+            let expected = [json| {"data":{"nodes":[{"node_type":"NodeFolder"}]}} |]
+            protected token "POST" "/gql" query `shouldRespondWithFragment` expected
 
     describe "check error format" $ do
       it "returns the new error if header X-Garg-Error-Scheme: new is passed" $ \((_testEnv, port), app) -> do