From 203c94cf1ed016334d1af3d26c528b250e7bc68b Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Tue, 16 Jun 2015 17:28:45 -0300
Subject: [PATCH] Give more leeway to Travis.

---
 serversession/tests/Main.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/serversession/tests/Main.hs b/serversession/tests/Main.hs
index 79f75b8..e9bd33e 100644
--- a/serversession/tests/Main.hs
+++ b/serversession/tests/Main.hs
@@ -93,9 +93,13 @@ main = hspec $ parallel $ do
     let checkEmptySession (sessionMap, SaveSessionToken msession time) = do
           -- Saved time is close to now, session map is empty,
           -- 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
-          abs (realToFrac $ TI.diffUTCTime now time) `shouldSatisfy` (< point1)
+          abs (realToFrac $ TI.diffUTCTime now time) `shouldSatisfy` (< closeEnough)
           sessionMap `shouldBe` TNTSessionData
           msession `shouldSatisfy` isNothing