cachix/stamina.hs
1
1
Fork 0
mirror of https://github.com/cachix/stamina.hs.git synced 2024-10-05 14:38:04 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix intermittent test

Browse Source
This commit is contained in:
Domen Kožar 2023-12-30 18:56:14 +00:00
parent 76df80992e
commit 2574d8fce4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/Main.hs
View File

@ -40,7 +40,8 @@ main = hspec $ do
throwM $ userError "error"
(result :: Either IOError String) `shouldBe` Left (userError "error")
status <- readIORef lastStatus
Stamina.attempts status `shouldBe` 1
Stamina.attempts status `shouldSatisfy` (< 3)
Stamina.attempts status `shouldSatisfy` (> 0)
Stamina.totalDelay status `shouldSatisfy` (< secondsToNominalDiffTime 3)
it "should respect resetInitial the retry status" $ do
lastStatus <- newIORef $ Stamina.initialRetryStatus Stamina.defaults