Safe Haskell	None
Language	GHC2021

Test.Migration.User

Contents

Test Helpers

Description

The migration has these phases. 1. Write to cassandra (before any migration activity) 2. Galley is prepared for migrations (new things created in PG, old things are in Cassandra) 3. Backgound worker starts migration 4. Background worker finishes migration, galley is still configured to think migration is on going 5. Background worker is configured to not do anything, galley is configured to only use PG

The comments and variable names call these phases by number i.e. Phase1, Phase2, and so on.

The tests are from the perspective of mel, a user on the dynamic backend, called backendM (migrating backend). There are also users called mark and mia on this backend.

Synopsis

testUserMigrationToPostgres :: App ()
testReindexingUsersDuringMigration :: HasCallStack => App ()
testMigrationOfUsersWithHandleDisputes :: HasCallStack => App ()
testMigrationOfInvalidUsers :: HasCallStack => App ()
data TestUsersByOperations = TestUsersByOperations {
- updates :: IntMap TestUserList
- deletes :: IntMap TestUserList
}
data TestUserList = TestUserList {
- scimUsersWithRichInfo :: TestScimUsers
- scimUsersWithoutRichInfo :: TestScimUsers
- pendingScimUsers :: TestScimUsers
- ssoUsers :: TestTeamUsers
- passwordTeamUsers :: TestTeamUsers
- personalUsersWithoutHandle :: Map String (Value, Maybe String)
- personalUsersWithHandle :: Map String (Value, Maybe String)
- botsInTeamConvs :: TestTeamUsers
- botsInPersonalConvs :: Map String (Value, Value)
}
data TestScimUsers = TestScimUsers {
- owner :: Value
- token :: String
- users :: Map String (Value, String, Value)
}
data TestTeamUsers = TestTeamUsers {
- owner :: Value
- users :: Map String (Value, Maybe String)
}
data UserUpdate
- = UpdateName String
- | UpdateHandle String
- | UpdateEmail String
- | UpdatePassword String
arbitraryNonPasswordUpdate :: Gen UserUpdate
data PendingScimUpdate
- = RegisterPendingScimUser
- | UpdatePendingScimUser UserUpdate
data PhaseUpdates = PhaseUpdates {
- scimUsersWithRichInfo :: [UserUpdate]
- scimUsersWithoutRichInfo :: [UserUpdate]
- pendingScimUsers :: [PendingScimUpdate]
- ssoUsers :: [UserUpdate]
- passwordTeamUsers :: [UserUpdate]
- personalUsersWithoutHandle :: [UserUpdate]
- personalUsersWithHandle :: [UserUpdate]
}
arbitraryPhaseUpdates :: Int -> Gen PhaseUpdates
userMigrationFinishedCounterName :: String
commonOverrides :: ServiceOverrides
phase1Overrides :: ServiceOverrides
phase2Overrides :: ServiceOverrides
phase3Overrides :: ServiceOverrides
phase4Overrides :: ServiceOverrides
phase5Overrides :: ServiceOverrides
phaseOverrides :: IntMap ServiceOverrides

Documentation

testUserMigrationToPostgres :: App () Source #

testReindexingUsersDuringMigration :: HasCallStack => App () Source #

This test creates users in PG and Cassandra separately to simulate a situation where there are users in both DBs. Then tries to index them into ES to make sure the pagination over these users works.

testMigrationOfUsersWithHandleDisputes :: HasCallStack => App () Source #

testMigrationOfInvalidUsers :: HasCallStack => App () Source #

Test Helpers

data TestUsersByOperations Source #

Constructors

TestUsersByOperations
Fields updates :: IntMap TestUserList deletes :: IntMap TestUserList

Instances

Instances details

ToJSON TestUsersByOperations Source #

Instance details

TestUserList
Fields scimUsersWithRichInfo :: TestScimUsers scimUsersWithoutRichInfo :: TestScimUsers pendingScimUsers :: TestScimUsers ssoUsers :: TestTeamUsers passwordTeamUsers :: TestTeamUsers personalUsersWithoutHandle :: Map String (Value, Maybe String) personalUsersWithHandle :: Map String (Value, Maybe String) botsInTeamConvs :: TestTeamUsers botsInPersonalConvs :: Map String (Value, Value)

ToJSON TestUserList Source #
Instance details Defined in Test.Migration.User Methods toJSON :: TestUserList -> Value Source # toEncoding :: TestUserList -> Encoding Source # toJSONList :: [TestUserList] -> Value Source # toEncodingList :: [TestUserList] -> Encoding Source # omitField :: TestUserList -> Bool Source #
Show TestUserList Source #
Instance details Defined in Test.Migration.User Methods showsPrec :: Int -> TestUserList -> ShowS # show :: TestUserList -> String # showList :: [TestUserList] -> ShowS #
Eq TestUserList Source #
Instance details Defined in Test.Migration.User Methods (==) :: TestUserList -> TestUserList -> Bool # (/=) :: TestUserList -> TestUserList -> Bool #

TestScimUsers
Fields owner :: Value token :: String users :: Map String (Value, String, Value) ScimUser, Password, UserOrInv

Show TestScimUsers Source #
Instance details Defined in Test.Migration.User Methods showsPrec :: Int -> TestScimUsers -> ShowS # show :: TestScimUsers -> String # showList :: [TestScimUsers] -> ShowS #
Eq TestScimUsers Source #
Instance details Defined in Test.Migration.User Methods (==) :: TestScimUsers -> TestScimUsers -> Bool # (/=) :: TestScimUsers -> TestScimUsers -> Bool #

TestTeamUsers
Fields owner :: Value users :: Map String (Value, Maybe String) (user, maybe password)

Show TestTeamUsers Source #
Instance details Defined in Test.Migration.User Methods showsPrec :: Int -> TestTeamUsers -> ShowS # show :: TestTeamUsers -> String # showList :: [TestTeamUsers] -> ShowS #
Eq TestTeamUsers Source #
Instance details Defined in Test.Migration.User Methods (==) :: TestTeamUsers -> TestTeamUsers -> Bool # (/=) :: TestTeamUsers -> TestTeamUsers -> Bool #

UpdateName String
UpdateHandle String
UpdateEmail String
UpdatePassword String

PhaseUpdates
Fields scimUsersWithRichInfo :: [UserUpdate] scimUsersWithoutRichInfo :: [UserUpdate] pendingScimUsers :: [PendingScimUpdate] ssoUsers :: [UserUpdate] passwordTeamUsers :: [UserUpdate] personalUsersWithoutHandle :: [UserUpdate] personalUsersWithHandle :: [UserUpdate]