Skip to content
Snippets Groups Projects
Commit a83bca9b authored by Jean-Paul Calderone's avatar Jean-Paul Calderone
Browse files

The new redemption metric (global mutable state yaay) leaks in

So, let it.  Just demonstrate we at least see the test metric.
parent 00265d83
No related branches found
No related tags found
1 merge request!70Record first successful redemption of any voucher, counter pair
...@@ -35,7 +35,7 @@ import Network.Wai.Test ...@@ -35,7 +35,7 @@ import Network.Wai.Test
, request , request
, assertStatus , assertStatus
, assertContentType , assertContentType
, assertBody , assertBodyContains
) )
import Servant import Servant
...@@ -89,7 +89,7 @@ metricsTests = ...@@ -89,7 +89,7 @@ metricsTests =
response <- readMetrics response <- readMetrics
assertStatus 200 response assertStatus 200 response
assertContentType "text/plain" response assertContentType "text/plain" response
assertBody expectedMetrics response assertBodyContains expectedMetrics response
where where
expectedMetrics = pack . unlines $ expectedMetrics = pack . unlines $
[ "# HELP a_counter A test counter." [ "# HELP a_counter A test counter."
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment