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

Add user add/find-by-[email|id] tests

Browse Source
This commit is contained in:
Daniel J. Summers
2024-02-03 18:17:26 -05:00
parent 34315a1aca
commit ac9df44904
5 changed files with 188 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -549,6 +549,34 @@ let private uploadTests = testList "Upload" [
]
]
let private webLogUserTests = testList "WebLogUser" [
testTask "Add succeeds" {
do! WebLogUserDataTests.``Add succeeds`` data.Value
}
testList "FindByEmail" [
testTask "succeeds when a user is found" {
do! WebLogUserDataTests.``FindByEmail succeeds when a user is found`` data.Value
}
testTask "succeeds when a user is not found (incorrect weblog)" {
do! WebLogUserDataTests.``FindByEmail succeeds when a user is not found (incorrect weblog)`` data.Value
}
testTask "succeeds when a user is not found (bad email)" {
do! WebLogUserDataTests.``FindByEmail succeeds when a user is not found (bad email)`` data.Value
}
]
testList "FindById" [
testTask "succeeds when a user is found" {
do! WebLogUserDataTests.``FindById succeeds when a user is found`` data.Value
}
testTask "succeeds when a user is not found (incorrect weblog)" {
do! WebLogUserDataTests.``FindById succeeds when a user is not found (incorrect weblog)`` data.Value
}
testTask "succeeds when a user is not found (bad ID)" {
do! WebLogUserDataTests.``FindById succeeds when a user is not found (bad ID)`` data.Value
}
]
]
/// Drop the throwaway RethinkDB database
let private environmentCleanUp = testTask "Clean Up" {
do! disposeData ()
@@ -565,5 +593,6 @@ let all =
themeTests
themeAssetTests
uploadTests
webLogUserTests
environmentCleanUp ]
|> testSequenced