diff --git a/test/Metrics.hs b/test/Metrics.hs
index 54eca21d6760afba4d65108af98511eab0d0561d..67392b2b6f3e68b8e978197a614e996fdebff4a9 100644
--- a/test/Metrics.hs
+++ b/test/Metrics.hs
@@ -35,7 +35,7 @@ import Network.Wai.Test
   , request
   , assertStatus
   , assertContentType
-  , assertBody
+  , assertBodyContains
   )
 
 import Servant
@@ -89,7 +89,7 @@ metricsTests =
       response <- readMetrics
       assertStatus 200 response
       assertContentType "text/plain" response
-      assertBody expectedMetrics response
+      assertBodyContains expectedMetrics response
       where
         expectedMetrics = pack . unlines $
           [ "# HELP a_counter A test counter."