ms2k/nuthatch
SHA256
Watch
0
Code Releases Activity

Make object recovery settlement-safe

Browse source
This commit is contained in:
ms2k 2026-07-18 22:49:19 +09:00
commit cd83841520
1 changed files with 1054 additions and 90 deletions
Download patch file Download diff file Expand all files Collapse all files

9
test/Integration.hs
View file

@ -66,7 +66,10 @@ verifySchema database = do
"SELECT filename FROM schema_migrations ORDER BY filename"
:: IO [Only Text]
assertEqual "migration history"
["001_schema.sql", "002_pool_limit_guard.sql"]
[ "001_schema.sql"
, "002_pool_limit_guard.sql"
, "003_recovery_settlement.sql"
]
(map fromOnly migrations)
schemaCatalog :: Db -> IO [Text]
@ -222,7 +225,7 @@ verifyAdmission database config = do
"bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb"))
settled <- withTransaction database $ \connection -> do
applying <- markApplying connection observationRecord
pending <- markExternalPending connection observationRecord
pending <- markExternalPending connection observationRecord 600 90
externalSettled <- markExternalSettled connection observationRecord
pure (applying && pending && externalSettled)
assert "observation fixture reached applying/settled" settled
@ -255,7 +258,7 @@ verifyIdempotencyExpiry database = do
let rec = preparedRecord [first]
finalized <- withTransaction database $ \connection -> do
applying <- markApplying connection rec
pending <- markExternalPending connection rec
pending <- markExternalPending connection rec 600 90
settled <- markExternalSettled connection rec
succeeded <- finalizeSuccess connection rec 10 (Just fixedIdentity)
pure (applying && pending && settled && succeeded)