ms2k/nuthatch
SHA256
Watch
0
Code Releases Activity

Close endpoint failure types across service and web boundaries

Browse source
This commit is contained in:
ms2k 2026-07-20 21:34:25 +09:00
commit 390434bed1
1 changed files with 266 additions and 72 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test/ProtocolConformance.hs
View file

@ -305,7 +305,9 @@ verifyStoreFence cfg database redis store = do
(OperationId "expired-delete-store-down")
afterExpiredDelete <-
mutationSnapshot database "expired-delete-store-down"
assert "store-down expired delete epoch rejected" (isLeft expiredDeleteResult)
assertEqual "store-down expired delete epoch rejected"
(Left (Mutation.DeleteDispatchFailed S3TransportError))
expiredDeleteResult
assertEqual "store-down does not start an expired delete epoch"
beforeExpiredDelete
afterExpiredDelete
@ -313,7 +315,9 @@ verifyStoreFence cfg database redis store = do
freshDeleteResult <- runDelete
env user Shared (RelativePath "delete-store-down.bin")
(OperationId "delete-store-down")
assert "store-down delete rejected" (isLeft freshDeleteResult)
assertEqual "store-down delete rejected"
(Left (Mutation.DeleteDispatchFailed S3TransportError))
freshDeleteResult
freshDeleteRows <- Db.query database
"SELECT count(*) FROM mutations WHERE operation_id = 'delete-store-down'"
()