ms2k/nuthatch
SHA256
Watch
0
Code Releases Activity

Replace planning-era names and squash initial schema

Browse source 
Use descriptive test and executable names so implementation surfaces do not depend on journal organization. Consolidate the unreleased migration history into the authoritative initial schema because no deployed database requires an upgrade path.
This commit is contained in:
ms2k 2026-07-19 15:21:24 +09:00
commit 15eb0038d2
1 changed files with 299 additions and 436 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test/ProtocolConformance.hs
View file

@ -60,7 +60,7 @@ verifyConformance cfg database store = do
effectScenarios cfg database store
targetContract cfg database store
checkedInvariant "TypeOK"
putStrLn "WP-10 protocol conformance passed"
putStrLn "Protocol conformance passed"
admissionScenarios :: Config -> Db -> IO ()
admissionScenarios cfg database = do
@ -250,7 +250,7 @@ targetContract cfg database store = do
verifyStoreFence :: Config -> Db -> Redis -> S3 -> IO ()
verifyStoreFence cfg database redis store = do
let env = newEnv cfg database redis store
user = SessionUser "wp10" "fence" protocolUser (Just "Protocol")
user = SessionUser "protocol" "fence" protocolUser (Just "Protocol")
expiredDelete <- prepared
=<< admitDelete
cfg database "expired-delete-store-down" "expired-delete-store-down.bin"