[test] change to sequential

It might be that notifications get mixed up when running parallel
test (as they use the same port)
parent 446ad6e6
Pipeline #7041 passed with stages
in 32 minutes and 56 seconds
...@@ -35,7 +35,7 @@ cannedToken :: T.Text ...@@ -35,7 +35,7 @@ cannedToken :: T.Text
cannedToken = "eyJhbGciOiJIUzUxMiJ9.eyJkYXQiOnsiaWQiOjF9fQ.t49zZSqkPAulEkYEh4pW17H2uwrkyPTdZKwHyG3KUJ0hzU2UUoPBNj8vdv087RCVBJ4tXgxNbP4j0RBv3gxdqg" cannedToken = "eyJhbGciOiJIUzUxMiJ9.eyJkYXQiOnsiaWQiOjF9fQ.t49zZSqkPAulEkYEh4pW17H2uwrkyPTdZKwHyG3KUJ0hzU2UUoPBNj8vdv087RCVBJ4tXgxNbP4j0RBv3gxdqg"
tests :: Spec tests :: Spec
tests = parallel $ aroundAll withTestDBAndPort $ beforeAllWith (\ctx -> setupEnvironment (_sctx_env ctx) >>= (const $ pure ctx)) $ do tests = sequential $ aroundAll withTestDBAndPort $ beforeAllWith (\ctx -> setupEnvironment (_sctx_env ctx) >>= (const $ pure ctx)) $ do
describe "Authentication" $ do describe "Authentication" $ do
baseUrl <- runIO $ parseBaseUrl "http://localhost" baseUrl <- runIO $ parseBaseUrl "http://localhost"
manager <- runIO $ newManager defaultManagerSettings manager <- runIO $ newManager defaultManagerSettings
......
...@@ -24,7 +24,7 @@ import Text.RawString.QQ (r) ...@@ -24,7 +24,7 @@ import Text.RawString.QQ (r)
tests :: Spec tests :: Spec
tests = parallel $ aroundAll withTestDBAndPort $ beforeAllWith dbEnvSetup $ do tests = sequential $ aroundAll withTestDBAndPort $ beforeAllWith dbEnvSetup $ do
describe "Errors API" $ do describe "Errors API" $ do
describe "Prelude" $ do describe "Prelude" $ do
it "setup DB triggers and users" $ \ctx -> do it "setup DB triggers and users" $ \ctx -> do
......
...@@ -18,7 +18,7 @@ import Test.Utils (protected, protectedNewError, shouldRespondWithFragment, shou ...@@ -18,7 +18,7 @@ import Test.Utils (protected, protectedNewError, shouldRespondWithFragment, shou
import Text.RawString.QQ (r) import Text.RawString.QQ (r)
tests :: Spec tests :: Spec
tests = parallel $ aroundAll withTestDBAndPort $ beforeAllWith dbEnvSetup $ do tests = sequential $ aroundAll withTestDBAndPort $ beforeAllWith dbEnvSetup $ do
describe "GraphQL" $ do describe "GraphQL" $ do
describe "get_user_infos" $ do describe "get_user_infos" $ do
it "allows 'alice' to see her own info" $ \SpecContext{..} -> do it "allows 'alice' to see her own info" $ \SpecContext{..} -> do
......
...@@ -102,7 +102,7 @@ nodeTests = sequential $ aroundAll withTestDBAndPort $ beforeAllWith dbEnvSetup ...@@ -102,7 +102,7 @@ nodeTests = sequential $ aroundAll withTestDBAndPort $ beforeAllWith dbEnvSetup
tests :: Spec tests :: Spec
tests = do tests = sequential $ do
describe "Private API" $ do describe "Private API" $ do
nodeTests nodeTests
describe "Share API" $ do describe "Share API" $ do
......
...@@ -41,7 +41,7 @@ shareURL token = ...@@ -41,7 +41,7 @@ shareURL token =
& shareUrlEp & shareUrlEp
tests :: Spec tests :: Spec
tests = parallel $ aroundAll withTestDBAndPort $ beforeAllWith dbEnvSetup $ do tests = sequential $ aroundAll withTestDBAndPort $ beforeAllWith dbEnvSetup $ do
describe "Prelude" $ do describe "Prelude" $ do
it "should fail if no node type is specified" $ \(SpecContext _testEnv serverPort app _) -> do it "should fail if no node type is specified" $ \(SpecContext _testEnv serverPort app _) -> do
withApplication app $ do withApplication app $ do
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment