diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,6 +1,11 @@
 Changes
 =======
 
+Version 0.1.0.3
+---------------
+
+* Fix the tests
+
 Version 0.1.0.2
 ---------------
 
diff --git a/fsnotify.cabal b/fsnotify.cabal
--- a/fsnotify.cabal
+++ b/fsnotify.cabal
@@ -1,5 +1,5 @@
 Name:                   fsnotify
-Version:                0.1.0.2
+Version:                0.1.0.3
 Author:                 Mark Dittmer <mark.s.dittmer@gmail.com>
 Maintainer:             Greg Weber <greg@gregweber.info>, Roman Cheplyaka <roma@ro-che.info>
 License:                BSD3
diff --git a/test/EventUtils.hs b/test/EventUtils.hs
--- a/test/EventUtils.hs
+++ b/test/EventUtils.hs
@@ -8,6 +8,8 @@
 import Control.Applicative
 import Control.Monad
 import Data.IORef
+import Data.List (sortBy)
+import Data.Ord (comparing)
 import Filesystem.Path
 import Filesystem.Path.CurrentOS
 import System.FSNotify
@@ -89,7 +91,7 @@
   a <- gatherEvents poll w path
   action
   evs <- wait a
-  matchEvents pats evs
+  matchEvents pats $ sortBy (comparing eventTime) evs
 
 testDirPath :: FilePath
 testDirPath = decodeString (unsafePerformIO getCurrentDirectory) </> "testdir"