module Test.B2B where

import SetupHelpers
import Testlib.Prelude

testConnectUsers :: App ()
testConnectUsers :: App ()
testConnectUsers = do
  Value
_alice <- Domain -> CreateUser -> App Value
forall domain.
(HasCallStack, MakesValue domain) =>
domain -> CreateUser -> App Value
randomUser Domain
OwnDomain CreateUser
forall a. Default a => a
def
  () -> App ()
forall a. a -> App a
forall (f :: * -> *) a. Applicative f => a -> f a
pure ()