haskell/serversession
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Give more leeway to Travis.

Browse Source
This commit is contained in:
Felipe Lessa 2015-06-16 17:28:45 -03:00
parent 64dc7f9228
commit 203c94cf1e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
serversession/tests/Main.hs
View File

@ -93,9 +93,13 @@ main = hspec $ parallel $ do
let checkEmptySession (sessionMap, SaveSessionToken msession time) = do let checkEmptySession (sessionMap, SaveSessionToken msession time) = do
-- Saved time is close to now, session map is empty, -- Saved time is close to now, session map is empty,
-- there's no reference to an existing session. -- there's no reference to an existing session.
let point1 = 0.1 {- second -} :: Double --
-- We used to use 0.1 seconds, but Travis
-- intermittently had troubles with it, e.g.:
-- <https://travis-ci.org/yesodweb/serversession/jobs/67062266>
let closeEnough = 2 {- seconds -} :: Double
now <- TI.getCurrentTime now <- TI.getCurrentTime
abs (realToFrac $ TI.diffUTCTime now time) `shouldSatisfy` (< point1) abs (realToFrac $ TI.diffUTCTime now time) `shouldSatisfy` (< closeEnough)
sessionMap `shouldBe` TNTSessionData sessionMap `shouldBe` TNTSessionData
msession `shouldSatisfy` isNothing msession `shouldSatisfy` isNothing