[test] add missing Test.Database.Operation.Types file

test/Test/Database/Operations/Types.hs

+{-|
+Module      : Test.Database.Operations.Types
+Description : 
+Copyright   : (c) CNRS, 2017-Present
+License     : AGPL + CECILL v3
+Maintainer  : team@gargantext.org
+Stability   : experimental
+Portability : POSIX
+-}
+
+
+module Test.Database.Operations.Types where
+
+import Data.Text qualified as T
+import Gargantext.Core.Mail (EmailAddress)
+import Gargantext.Core.Types.Individu
+import Gargantext.Prelude
+import Test.QuickCheck
+
+
+
+testUsername' :: Text
+testUsername' = "alfredo"
+testUsername :: User
+testUsername = UserName testUsername'
+testUser :: EmailAddress
+testUser = testUsername' <> "@well-typed.com"
+testUserPassword :: GargPassword
+testUserPassword = GargPassword "my_secret"
+testCorpusName :: Text
+testCorpusName = "Text_Corpus"
+
+
+  
+data ExpectedActual a =
+    Expected a
+  | Actual a
+  deriving Show
+
+instance Eq a => Eq (ExpectedActual a) where
+  (Expected a) == (Actual b)   = a == b
+  (Actual a)   == (Expected b) = a == b
+  _ == _ = False
+
+
+
+
+-- | Keeps a log of usernames we have already generated, so that our
+-- roundtrip tests won't fail.
+uniqueArbitraryNewUser :: Int -> Gen (NewUser GargPassword)
+uniqueArbitraryNewUser currentIx = do
+  ur <- (`mappend` ((show currentIx :: Text) <> "-")) <$> ascii_txt
+  let email = ur <> "@foo.com"
+  NewUser <$> pure ur <*> pure email <*> elements arbitraryPassword
+  where
+   ascii_txt :: Gen T.Text
+   ascii_txt = fmap (T.pack . getPrintableString) arbitrary