Add group, WIP on role (#17)

src/MyWebLog.Tests/Data/WebLogUserDataTests.fs

@@ -33,7 +33,7 @@ let ``Add succeeds`` (data: IData) = task {
               PreferredName = "n00b"
               PasswordHash  = "hashed-password"
               Url           = Some "https://example.com/~new"
-              AccessLevel   = Author
+              AccessLevel   = ContentAuthor
               CreatedOn     = Noda.epoch + Duration.FromDays 365
               LastSeenOn    = None }
     let! user = data.WebLogUser.FindById newId rootId
@@ -47,7 +47,7 @@ let ``Add succeeds`` (data: IData) = task {
     Expect.equal it.PreferredName "n00b" "Preferred name is incorrect"
     Expect.equal it.PasswordHash "hashed-password" "Password hash is incorrect"
     Expect.equal it.Url (Some "https://example.com/~new") "URL is incorrect"
-    Expect.equal it.AccessLevel Author "Access level is incorrect"
+    Expect.equal it.AccessLevel ContentAuthor "Access level is incorrect"
     Expect.equal it.CreatedOn (Noda.epoch + Duration.FromDays 365) "Created on is incorrect"
     Expect.isNone it.LastSeenOn "Last seen on should not have had a value"
 }