diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -8,15 +8,23 @@
 [Keep a Changelog]: http://keepachangelog.com/
 [Semantic Versioning]: http://semver.org/
 
+# 4.1.1 [2017-09-26]
+
+## Fixed
+- Incorrect test case doing bad comparison (see issue [#123]).
+
+[#123]: https://github.com/lwm/tasty-discover/issues/123
+
 # 4.1.0 [2017-09-26]
 
 ## Fixed
-- Find tests recursively in test directory.
+- Find tests recursively in test directory. (see pull request [#122]).
 
 ## Added
 - Add ability to override tasty arguments (see pull request [#120]).
 
 [#120]: https://github.com/lwm/tasty-discover/pull/120
+[#122]: https://github.com/lwm/tasty-discover/pull/122
 
 # 4.0.0 [2017-09-01]
 
diff --git a/library/Test/Tasty/Generator.hs b/library/Test/Tasty/Generator.hs
--- a/library/Test/Tasty/Generator.hs
+++ b/library/Test/Tasty/Generator.hs
@@ -32,7 +32,7 @@
 data Test = Test
   { testModule   :: String -- ^ Module name.
   , testFunction :: String -- ^ Function name.
-  } deriving (Eq, Show)
+  } deriving (Eq, Show, Ord)
 
 -- | 'Test' constructor.
 mkTest :: FilePath -> String -> Test
diff --git a/tasty-discover.cabal b/tasty-discover.cabal
--- a/tasty-discover.cabal
+++ b/tasty-discover.cabal
@@ -3,7 +3,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           tasty-discover
-version:        4.1.0
+version:        4.1.1
 synopsis:       Test discovery for the tasty framework.
 description:    Automatic test discovery and runner for the tasty framework.
                 Prefix your test case names and tasty-discover will discover, collect and run them. All popular test libraries are covered. Configure once and then just write your tests. Avoid forgetting to add test modules to your Cabal/Hpack files. Tasty ingredients are included along with various configuration options for different use cases. Please see the `README.md` below for how to get started.
diff --git a/test/ConfigTest.hs b/test/ConfigTest.hs
--- a/test/ConfigTest.hs
+++ b/test/ConfigTest.hs
@@ -2,7 +2,7 @@
 
 module ConfigTest where
 
-import           Data.List             (isInfixOf)
+import           Data.List             (isInfixOf, sort)
 import qualified Data.Map.Strict       as M
 import           Test.Tasty.Config
 import           Test.Tasty.Discover   (ModuleTree (..), findTests,
@@ -21,7 +21,7 @@
                           mkTest "SubSubMod/PropTest.hs" "prop_additionCommutative" ]
         config        = defaultConfig { modules = Just "*Test.hs" }
     discoveredTests <- findTests "test/SubMod/" config
-    discoveredTests `shouldBe` expectedTests
+    sort discoveredTests `shouldBe` sort expectedTests
 
 spec_ignores :: Spec
 spec_ignores =