diff --git a/CHANGELOG.txt b/CHANGELOG.txt
--- a/CHANGELOG.txt
+++ b/CHANGELOG.txt
@@ -1,3 +1,9 @@
+0.9.1, 2017-11-04:
+	Made Tests.Utils use Ints instead of Floats to avoid spurious failures
+	that aren't of any concern.
+
+	Updated test dependencies to allow HUnit-1.6.
+
 0.9.0, 2017-10-01:
 	Thanks to Harry Garrood for many contributions to this release.
 
diff --git a/Glob.cabal b/Glob.cabal
--- a/Glob.cabal
+++ b/Glob.cabal
@@ -1,7 +1,7 @@
 Cabal-Version: >= 1.9.2
 
 Name:        Glob
-Version:     0.9.0
+Version:     0.9.1
 Homepage:    http://iki.fi/matti.niemenmaa/glob/
 Synopsis:    Globbing library
 Category:    System
@@ -62,7 +62,7 @@
                 , filepath                   >= 1.1 && < 1.5
                 , transformers               >= 0.2 && < 0.6
                 , transformers-compat        >= 0.3 && < 0.6
-                , HUnit                      >= 1.2 && < 1.6
+                , HUnit                      >= 1.2 && < 1.7
                 , QuickCheck                 >= 2 && < 3
                 , test-framework             >= 0.2 && < 1
                 , test-framework-hunit       >= 0.2 && < 1
diff --git a/tests/Tests/Utils.hs b/tests/Tests/Utils.hs
--- a/tests/Tests/Utils.hs
+++ b/tests/Tests/Utils.hs
@@ -23,7 +23,7 @@
 validateRange :: Ord a => (a, a) -> (a, a)
 validateRange (a,b) = if b > a then (a,b) else (b,a)
 
-prop_overlapperLosesNoInfo :: (Float, Float) -> (Float, Float) -> Float -> Bool
+prop_overlapperLosesNoInfo :: (Int, Int) -> (Int, Int) -> Int -> Bool
 prop_overlapperLosesNoInfo x1 x2 c =
    let r1 = validateRange x1
        r2 = validateRange x2
@@ -37,12 +37,12 @@
         Just o  -> (inRange r1 c --> inRange o c) &&
                    (inRange r2 c --> inRange o c)
 
-prop_increasingSeq :: Float -> [Float] -> Property
+prop_increasingSeq :: Int -> [Int] -> Bool
 prop_increasingSeq a xs =
    let s = fst . increasingSeq $ a:xs
-    in abs a <= 2^(23 :: Int) ==> s == reverse [a .. head s]
+    in s == reverse [a .. head s]
 
-prop_addToRange :: (Float, Float) -> Float -> Property
+prop_addToRange :: (Int, Int) -> Int -> Property
 prop_addToRange x c =
    let r  = validateRange x
        r' = addToRange r c