fix timestamp resolution dependent tests

Author: pepeiborra

ghcide/test/exe/Main.hs

@@ -102,6 +102,7 @@ import           Data.IORef.Extra                         (atomicModifyIORef_)
 import qualified Development.IDE.Plugin.HLS.GhcIde        as Ghcide
 import           Text.Regex.TDFA                          ((=~))
 import Development.IDE.Core.FileStore (getModTime)
+import Control.Concurrent (threadDelay)
 
 waitForProgressBegin :: Session ()
 waitForProgressBegin = skipManyTill anyMessage $ satisfyMaybe $ \case
@@ -4982,6 +4983,8 @@ sessionDepsArePickedUp = testSession'
     doc <- createDoc "Foo.hs" "haskell" fooContent
     expectDiagnostics
       [("Foo.hs", [(DsError, (3, 6), "Couldn't match expected type")])]
+    -- sleep to ensure hie.yaml timestamps are different
+    liftIO $ threadDelay 1000
     -- Update hie.yaml to enable OverloadedStrings.
     liftIO $
       writeFileUTF8
@@ -5469,6 +5472,7 @@ unitTests = do
          let f = "/tmp/ghcide-timestamp-test"
          writeFile f ""
          t <- getModTime f
+         threadDelay 1000 -- 1ms
          writeFile f ""
          t' <- getModTime f
          assertBool "Timestamps do not have subsecond resolution" (t /= t')