UserTest.hs

test = scenario do
  user1 <- getParty "User One"
  user2 <- getParty "User Two"
  user3 <- getParty "User Three"
  
  userContract1 <- user1 `submit` do
    create User with username = user1, following = []
    
  userContract2 <- user2 `submit` do
    create User with username = user2, following = []
    
  userContract3 <- user3 `submit` do
    create User with username = user3, following = [user2, user3]

  contract1 <- user1 `submit` do
    exercise userContract1 Follow with userToFollow = user2

  pure()