Add tests (#60)

This commit is contained in:
Patrick Stevens
2023-08-06 21:23:21 +01:00
committed by GitHub
parent 6f1fbeb6ee
commit 3a975d7f28
11 changed files with 428 additions and 27 deletions

View File

@@ -61,16 +61,7 @@ module Client =
member _.AdminCreateUser createUserOption =
async {
let! () = server.PostAndAsyncReply (fun reply -> AddUser (createUserOption, reply))
let result = Gitea.User ()
result.Email <- createUserOption.Email
result.Restricted <- createUserOption.Restricted
// TODO: what is this username used for anyway
// result.LoginName <- createUserOption.Username
result.Visibility <- createUserOption.Visibility
result.Created <- createUserOption.CreatedAt
result.FullName <- createUserOption.FullName
result.LoginName <- createUserOption.LoginName
return result
return Operations.createdUser createUserOption
}
|> Async.StartAsTask