[graphql] more un-prefix tests

test/Test/API/GraphQL.hs

+
+{-# LANGUAGE QuasiQuotes      #-}
 {-# LANGUAGE TypeApplications #-}
 {-# LANGUAGE TypeFamilies     #-}
-{-# LANGUAGE QuasiQuotes      #-}
 {-# OPTIONS_GHC -Wno-orphans  #-}
 
 module Test.API.GraphQL (
@@ -28,7 +29,7 @@ tests = sequential $ aroundAll withTestDBAndPort $ beforeAllWith dbEnvSetup $ do
           withValidLoginA _sctx_port "alice" (GargPassword "alice") $ \_clientEnv authRes -> do
             liftIO $ (authRes ^. authRes_user_id) `shouldBe` (UnsafeMkUserId 2)
             let query = [r| { "query": "{ user_infos(user_id: 2) { ui_id, ui_email } }" } |]
-            let expected = [json| {"data":{"user_infos":[{"ui_id":2,"ui_email":"alice@gargan.text"}]}} |]
+            let expected = [json| {data: {user_infos: [{ui_id: 2, ui_email: "alice@gargan.text" }] } } |]
             protected (authRes ^. authRes_token) "POST" "/gql" query `shouldRespondWithFragment` expected
 
     describe "get_users" $ do
@@ -37,8 +38,8 @@ tests = sequential $ aroundAll withTestDBAndPort $ beforeAllWith dbEnvSetup $ do
           withValidLoginA _sctx_port "alice" (GargPassword "alice") $ \_clientEnv authRes -> do
             -- epo_api_user is a renamed field, we check if it's correctly un-prefixed
             liftIO $ (authRes ^. authRes_tree_id) `shouldBe` 8
-            let query = [r| { "query": "{ users(user_id: 8) { u_username, u_hyperdata { epo_api_user } } }" } |]
-            let expected = [json| {"data":{"users":[{"u_username":"alice","u_hyperdata":{"epo_api_user": null}}]}} |]
+            let query = [r| { "query": "{ users(user_id: 8) { u_username, u_hyperdata { epo_api_user, public { pseudo }, private { lang } } } }" } |]
+            let expected = [json| {data: {users: [{u_username: "alice", u_hyperdata: {epo_api_user: null, public: { pseudo: "pseudo" }, private: { lang: "EN" } } }] } } |]
             protected (authRes ^. authRes_token) "POST" "/gql" query `shouldRespondWithFragment` expected
 
     describe "nodes" $ do
@@ -46,7 +47,7 @@ tests = sequential $ aroundAll withTestDBAndPort $ beforeAllWith dbEnvSetup $ do
         withApplication app $ do
           withValidLogin port "gargantua" (GargPassword "secret_key") $ \_clientEnv token -> do
             let query = [r| { "query": "{ nodes(node_id: 2) { node_type } }" } |]
-            let expected = [json| {"data":{"nodes":[{"node_type":"NodeFolderPrivate"}]}} |]
+            let expected = [json| {data: {nodes: [{node_type: "NodeFolderPrivate" }]}} |]
             protected token "POST" "/gql" query `shouldRespondWithFragment` expected
 
     describe "check error format" $ do