From 5148e525cf7eef84ffa8ad12210d63f9049c5cb0 Mon Sep 17 00:00:00 2001 From: shum Date: Thu, 22 Oct 2026 04:09:32 +0000 Subject: [PATCH] store: say what the lapse test sets up --- tests/Bots/StoreService/NamesPhasesTests.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/Bots/StoreService/NamesPhasesTests.hs b/tests/Bots/StoreService/NamesPhasesTests.hs index a14a0a9ab4..3496cb7e45 100644 --- a/tests/Bots/StoreService/NamesPhasesTests.hs +++ b/tests/Bots/StoreService/NamesPhasesTests.hs @@ -255,7 +255,7 @@ testLapseReadsFailed = bounded "lapse" $ withPolls holdMicros $ \Polls {pCtx = c (_, o) <- get ctx (invoicePath inv) (key "phase" (registrationOf o), key "error" (registrationOf o)) `shouldBe` (Just "failed", Just "The name was not signed in time") (nrPhase <$> invoiceRegistration ctx inv) `shouldReturn` PCommitted - -- one whose reveal was accepted is registering, not lapsed + -- one with a reveal set stays committed past revealBefore revealed <- change ctx nrId $ \r' -> r' {nrReveal = Just reveal} pSetNow $ addUTCTime 3600 lapsedAt (_, r') <- get ctx (registrationPath nrId)