From 8b8797b3b574174af0bfb21ff1f4bbd6bd486ec0 Mon Sep 17 00:00:00 2001 From: shum Date: Thu, 22 Oct 2026 16:37:22 +0000 Subject: [PATCH] store: expect support for floored money in waits --- tests/Bots/StoreService/NamesLateCreditTests.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/Bots/StoreService/NamesLateCreditTests.hs b/tests/Bots/StoreService/NamesLateCreditTests.hs index ddf21edf76..b7a2c937ff 100644 --- a/tests/Bots/StoreService/NamesLateCreditTests.hs +++ b/tests/Bots/StoreService/NamesLateCreditTests.hs @@ -87,7 +87,7 @@ namesLateCreditTests = describe "StoreService names: balance life" $ do describe "the view" $ do it "shows a funded holder past its expiry held with no end time, and an unfunded one before it with its expiry" testHeldUntil it "shows a balance spent to 0 and a refunded one as objects with amount 0" testZeroBalances - it "waits confirming, crediting, or support for each reason, and on nothing once all is credited" testLateWaits + it "waits confirming, crediting, or support for each reason, on nothing once all is credited, and on support for good below the rate floor" testLateWaits it "finds the order a balance paid and the order holding a balance, none for an overdue unfunded holder" testFindLinks #if defined(dbPostgres) describe "two connections" $ do @@ -677,7 +677,7 @@ testLateWaits = withLate $ \l@Late {lStore = st} -> do setRate l (Right stubRate) void $ readSignal l "alerted" (SigClosed (btcPaid lateUnits lateUnits)) void $ passAt l (at 71) - waits ["crediting", "floor", "alerted"] `shouldReturn` [("crediting", Nothing), ("floor", Nothing), ("alerted", Nothing)] + waits ["crediting", "floor", "alerted"] `shouldReturn` [("crediting", Nothing), ("floor", Just LWSupport), ("alerted", Nothing)] testFindLinks :: IO () testFindLinks = withLate $ \Late {lStore = st} -> do