From a97640d56dcb1a32ea44cb3be6575d2a4d6136c9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Tue, 31 Oct 2017 15:04:00 +0000
Subject: Add informational responses to metrics

---
 test/metrics_SUITE.erl | 23 ++++++++++++++++++-----
 1 file changed, 18 insertions(+), 5 deletions(-)

(limited to 'test')

diff --git a/test/metrics_SUITE.erl b/test/metrics_SUITE.erl
index d41ae1d..1883014 100644
--- a/test/metrics_SUITE.erl
+++ b/test/metrics_SUITE.erl
@@ -143,7 +143,8 @@ do_get(Path, Config) ->
 				pid := From,
 				streamid := 1,
 				reason := normal,
-				req := #{}
+				req := #{},
+				informational := []
 			} = Metrics,
 			%% All good!
 			ok
@@ -205,7 +206,8 @@ post_body(Config) ->
 				pid := From,
 				streamid := 1,
 				reason := normal,
-				req := #{}
+				req := #{},
+				informational := []
 			} = Metrics,
 			%% All good!
 			ok
@@ -261,7 +263,8 @@ no_resp_body(Config) ->
 				pid := From,
 				streamid := 1,
 				reason := normal,
-				req := #{}
+				req := #{},
+				informational := []
 			} = Metrics,
 			%% All good!
 			ok
@@ -353,7 +356,7 @@ do_ws(Config) ->
 			%% is called. We therefore only check when it spawned.
 			#{procs := Procs} = Metrics,
 			[{_, #{
-				spawn := ProcSpawn
+				spawn := _
 			}}] = maps:to_list(Procs),
 			%% Confirm other metadata are as expected.
 			#{
@@ -361,7 +364,17 @@ do_ws(Config) ->
 				pid := From,
 				streamid := 1,
 				reason := switch_protocol,
-				req := #{}
+				req := #{},
+				%% A 101 upgrade response was sent.
+				informational := [#{
+					status := 101,
+					headers := #{
+						<<"connection">> := <<"Upgrade">>,
+						<<"upgrade">> := <<"websocket">>,
+						<<"sec-websocket-accept">> := _
+					},
+					time := _
+				}]
 			} = Metrics,
 			%% All good!
 			ok
-- 
cgit v1.2.3