bit-badger/myWebLog
1
0
Fork 0
Code Issues 4 Pull Requests Packages Projects Releases 11 Activity

Add tests for pages via permalinks

Browse Source
This commit is contained in:
Daniel J. Summers
2024-01-28 17:50:05 -05:00
parent 3f269ed3ba
commit c319ff15fd
5 changed files with 99 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
src/MyWebLog.Tests/Data/SQLiteDataTests.fs
View File

@@ -181,6 +181,35 @@ let pageTests = testList "Page" [
finally dispose data
}
]
testList "FindByPermalink" [
testTask "succeeds when a page is found" {
let data = mkData ()
try do! PageDataTests.``FindByPermalink succeeds when a page is found`` data
finally dispose data
}
testTask "succeeds when a page is not found (incorrect weblog)" {
let data = mkData ()
try do! PageDataTests.``FindByPermalink succeeds when a page is not found (incorrect weblog)`` data
finally dispose data
}
testTask "succeeds when a page is not found (no such permalink)" {
let data = mkData ()
try do! PageDataTests.``FindByPermalink succeeds when a page is not found (no such permalink)`` data
finally dispose data
}
]
testList "FindCurrentPermalink" [
testTask "succeeds when a page is found" {
let data = mkData ()
try do! PageDataTests.``FindCurrentPermalink succeeds when a page is found`` data
finally dispose data
}
testTask "succeeds when a page is not found" {
let data = mkData ()
try do! PageDataTests.``FindCurrentPermalink succeeds when a page is not found`` data
finally dispose data
}
]
testList "FindFullById" [
testTask "succeeds when a page is found" {
let data = mkData ()