dandri/simplex-chat
1
0 Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-11-05 14:57:42 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix compilation

Browse Source
This commit is contained in:
spaced4ndy committed 2026-10-22 21:00:20 +04:00
1 parent 2c8db2b293
commit ee28a4fc83
1 file changed
+7 -4
Download Patch File Download Diff File Expand all files Collapse all files
tests/Bots/BadgeService/BotTests.hs
+7 -4
View File
@@ -4583,7 +4583,8 @@ testPurchaseChecksBounded :: HasCallStack => TestParams -> IO ()
testPurchaseChecksBounded _ = do
PurchaseChecks {appleChecks = checks, googleChecks} <- newPurchaseChecks
now <- getCurrentTime
let waitAt t ref = atomically $ purchaseCheckWait checks t ref
let waitAt t ref = atomically $ purchaseCheckWait checks t (purchaseClaim ref)
purchaseClaim ref = ClaimKey {claimRef = ref, claimPurpose = ClaimPurchase}
size = M.size <$> readTVarIO checks
waitAt now "claim" `shouldReturn` Nothing
waitAt (addUTCTime 600 now) "claim" `shouldReturn` Just 3000
@@ -4592,9 +4593,11 @@ testPurchaseChecksBounded _ = do
waitAt now "new" `shouldReturn` Nothing
waitAt now "new" `shouldReturn` Nothing
size `shouldReturn` maxPurchaseChecks
atomically (purchaseCheckWait googleChecks now "play claim") `shouldReturn` Nothing
atomically (purchaseCheckWait googleChecks now "play claim") `shouldReturn` Just 3600
M.size <$> readTVarIO googleChecks `shouldReturn` 1
atomically (purchaseCheckWait googleChecks now (purchaseClaim "play claim")) `shouldReturn` Nothing
atomically (purchaseCheckWait googleChecks now (purchaseClaim "play claim")) `shouldReturn` Just 3600
-- a restore is not held off by the purchase's own check of the same subscription
atomically (purchaseCheckWait googleChecks now ClaimKey {claimRef = "play claim", claimPurpose = ClaimTransfer}) `shouldReturn` Nothing
M.size <$> readTVarIO googleChecks `shouldReturn` 2
waitAt (addUTCTime 3600 now) "new" `shouldReturn` Nothing
size `shouldReturn` 1