Add post FindFull* tests

src/MyWebLog.Tests/Data/SQLiteDataTests.fs

@@ -366,6 +366,30 @@ let postTests = testList "Post" [
             finally dispose data
         }
     ]
+    testList "FindFullById" [
+        testTask "succeeds when a post is found" {
+            let data = mkData ()
+            try do! PostDataTests.``FindFullById succeeds when a post is found`` data
+            finally dispose data
+        }
+        testTask "succeeds when a post is not found" {
+            let data = mkData ()
+            try do! PostDataTests.``FindFullById succeeds when a post is not found`` data
+            finally dispose data
+        }
+    ]
+    testList "FindFullByWebLog" [
+        testTask "succeeds when posts are found" {
+            let data = mkData ()
+            try do! PostDataTests.``FindFullByWebLog succeeds when posts are found`` data
+            finally dispose data
+        }
+        testTask "succeeds when a posts are not found" {
+            let data = mkData ()
+            try do! PostDataTests.``FindFullByWebLog succeeds when posts are not found`` data
+            finally dispose data
+        }
+    ]
 ]
 
 /// Delete the SQLite database