From a83bca9b62ab6b80112116e26bb83d9beb69e015 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Tue, 22 Sep 2020 08:12:44 -0400
Subject: [PATCH] The new redemption metric (global mutable state yaay) leaks
in
So, let it. Just demonstrate we at least see the test metric.
---
test/Metrics.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/test/Metrics.hs b/test/Metrics.hs
index 54eca21..67392b2 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."
--
GitLab