Fix a flaky windows test

haskell-fswatch · Oct 27, 2024 · 87159fd · 87159fd
1 parent ae635d3
commit 87159fd
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/test/FSNotify/Test/EventTests.hs b/test/FSNotify/Test/EventTests.hs
@@ -58,7 +58,9 @@ eventTests' timeInterval threadingMode poll recursive nested = do
       pauseAndRetryOnExpectationFailure timeInterval 3 $ liftIO getEvents >>= \events ->
         if | nested && not recursive -> events `shouldBe` []
            | isWin && not poll -> case events of
+               -- On Windows, we sometimes get an extra modified event
                [Modified {}, Added {..}] | eventPath `equalFilePath` f && eventIsDirectory == IsFile -> return ()
+               [Added {..}, Modified {}] | eventPath `equalFilePath` f && eventIsDirectory == IsFile -> return ()
                _ -> expectationFailure $ "Got wrong events: " <> show events
            | otherwise -> case events of
                [Added {..}] | eventPath `equalFilePath` f && eventIsDirectory == IsFile -> return ()