Add tests for OpenGraph view model properties

src/MyWebLog/Handlers/Post.fs

@@ -157,7 +157,7 @@ let pageOfTaggedPosts slugAndPage : HttpHandler = fun next ctx -> task {
     let webLog = ctx.WebLog
     let data   = ctx.Data
     match parseSlugAndPage webLog slugAndPage with
-    | Some pageNbr, rawTag, isFeed -> 
+    | Some pageNbr, rawTag, isFeed ->
         let  urlTag = HttpUtility.UrlDecode rawTag
         let! tag    = backgroundTask {
             match! data.TagMap.FindByUrlValue urlTag webLog.Id with
@@ -495,7 +495,7 @@ let save : HttpHandler = requireAccess Author >=> fun next ctx -> task {
     | Some post when canEdit post.AuthorId ctx ->
         let priorCats   = post.CategoryIds
         let updatedPost =
-            model.UpdatePost post (Noda.now ())
+            model.UpdatePost post ctx.WebLog (Noda.now ())
             |> function
             | post ->
                 if model.SetPublished then