From 990b72b1ecae71bc8eb605f65e126e011aba3b37 Mon Sep 17 00:00:00 2001
From: "Daniel J. Summers" <daniel@bitbadger.solutions>
Date: Mon, 29 Jan 2024 21:20:35 -0500
Subject: [PATCH] Finish page data tests

---
 src/MyWebLog.Tests/Data/PageDataTests.fs     | 26 ++++++++++++++++++++
 src/MyWebLog.Tests/Data/PostgresDataTests.fs | 16 ++++++++++++
 src/MyWebLog.Tests/Data/RethinkDbTests.fs    | 16 ++++++++++++
 src/MyWebLog.Tests/Data/SQLiteDataTests.fs   | 24 ++++++++++++++++++
 4 files changed, 82 insertions(+)

diff --git a/src/MyWebLog.Tests/Data/PageDataTests.fs b/src/MyWebLog.Tests/Data/PageDataTests.fs
index e3a6b75..45fda8a 100644
--- a/src/MyWebLog.Tests/Data/PageDataTests.fs
+++ b/src/MyWebLog.Tests/Data/PageDataTests.fs
@@ -243,3 +243,29 @@ let ``Update succeeds when the page does not exist`` (data: IData) = task {
     let! page = data.Page.FindById pageId rootId
     Expect.isNone page "A page should not have been retrieved"
 }
+
+let ``UpdatePriorPermalinks succeeds when the page exists`` (data: IData) = task {
+    let links = [ Permalink "link-1.html"; Permalink "link-1.aspx"; Permalink "link-3.php" ]
+    let! found = data.Page.UpdatePriorPermalinks otherPageId rootId links
+    Expect.isTrue found "The permalinks should have been updated"
+    let! page = data.Page.FindFullById otherPageId rootId
+    Expect.isSome page "The page should have been found"
+    Expect.equal page.Value.PriorPermalinks links "The prior permalinks were not correct"
+}
+
+let ``UpdatePriorPermalinks succeeds when the page does not exist`` (data: IData) = task {
+    let! found =
+        data.Page.UpdatePriorPermalinks (PageId "no-page") WebLogId.Empty
+            [ Permalink "link-1.html"; Permalink "link-1.aspx"; Permalink "link-3.php" ]
+    Expect.isFalse found "The permalinks should not have been updated"
+}
+
+let ``Delete succeeds when a page is deleted`` (data: IData) = task {
+    let! deleted = data.Page.Delete coolPageId rootId
+    Expect.isTrue deleted "The page should have been deleted"
+}
+
+let ``Delete succeeds when a page is not deleted`` (data: IData) = task {
+    let! deleted = data.Page.Delete coolPageId rootId // this was deleted above
+    Expect.isFalse deleted "A page should not have been deleted"
+}
diff --git a/src/MyWebLog.Tests/Data/PostgresDataTests.fs b/src/MyWebLog.Tests/Data/PostgresDataTests.fs
index 4e6fc0a..2d0b4ba 100644
--- a/src/MyWebLog.Tests/Data/PostgresDataTests.fs
+++ b/src/MyWebLog.Tests/Data/PostgresDataTests.fs
@@ -201,6 +201,22 @@ let pageTests = testList "Page" [
             do! PageDataTests.``Update succeeds when the page does not exist`` (mkData ())
         }
     ]
+    testList "UpdatePriorPermalinks" [
+        testTask "succeeds when the page exists" {
+            do! PageDataTests.``UpdatePriorPermalinks succeeds when the page exists`` (mkData ())
+        }
+        testTask "succeeds when the page does not exist" {
+            do! PageDataTests.``UpdatePriorPermalinks succeeds when the page does not exist`` (mkData ())
+        }
+    ]
+    testList "Delete" [
+        testTask "succeeds when a page is deleted" {
+            do! PageDataTests.``Delete succeeds when a page is deleted`` (mkData ())
+        }
+        testTask "succeeds when a page is not deleted" {
+            do! PageDataTests.``Delete succeeds when a page is not deleted`` (mkData ())
+        }
+    ]
 ]
 
 /// Drop the throwaway PostgreSQL database
diff --git a/src/MyWebLog.Tests/Data/RethinkDbTests.fs b/src/MyWebLog.Tests/Data/RethinkDbTests.fs
index 63227da..5304c12 100644
--- a/src/MyWebLog.Tests/Data/RethinkDbTests.fs
+++ b/src/MyWebLog.Tests/Data/RethinkDbTests.fs
@@ -200,6 +200,22 @@ let pageTests = testList "Page" [
             do! PageDataTests.``Update succeeds when the page does not exist`` data.Value
         }
     ]
+    testList "UpdatePriorPermalinks" [
+        testTask "succeeds when the page exists" {
+            do! PageDataTests.``UpdatePriorPermalinks succeeds when the page exists`` data.Value
+        }
+        testTask "succeeds when the page does not exist" {
+            do! PageDataTests.``UpdatePriorPermalinks succeeds when the page does not exist`` data.Value
+        }
+    ]
+    testList "Delete" [
+        testTask "succeeds when a page is deleted" {
+            do! PageDataTests.``Delete succeeds when a page is deleted`` data.Value
+        }
+        testTask "succeeds when a page is not deleted" {
+            do! PageDataTests.``Delete succeeds when a page is not deleted`` data.Value
+        }
+    ]
 ]
 
 /// Drop the throwaway RethinkDB database
diff --git a/src/MyWebLog.Tests/Data/SQLiteDataTests.fs b/src/MyWebLog.Tests/Data/SQLiteDataTests.fs
index ead17f5..1be47af 100644
--- a/src/MyWebLog.Tests/Data/SQLiteDataTests.fs
+++ b/src/MyWebLog.Tests/Data/SQLiteDataTests.fs
@@ -258,6 +258,30 @@ let pageTests = testList "Page" [
             finally dispose data
         }
     ]
+    testList "UpdatePriorPermalinks" [
+        testTask "succeeds when the page exists" {
+            let data = mkData ()
+            try do! PageDataTests.``UpdatePriorPermalinks succeeds when the page exists`` data
+            finally dispose data
+        }
+        testTask "succeeds when the page does not exist" {
+            let data = mkData ()
+            try do! PageDataTests.``UpdatePriorPermalinks succeeds when the page does not exist`` data
+            finally dispose data
+        }
+    ]
+    testList "Delete" [
+        testTask "succeeds when a page is deleted" {
+            let data = mkData ()
+            try do! PageDataTests.``Delete succeeds when a page is deleted`` data
+            finally dispose data
+        }
+        testTask "succeeds when a page is not deleted" {
+            let data = mkData ()
+            try do! PageDataTests.``Delete succeeds when a page is not deleted`` data
+            finally dispose data
+        }
+    ]
 ]
 
 /// Delete the SQLite database