From 186d053bbbb3fbea2513e9b34bcfbb2515cb89a2 Mon Sep 17 00:00:00 2001 From: Edsko de Vries Date: Sat, 16 Nov 2024 10:23:00 +0100 Subject: [PATCH] Fix `Invalid.requestMetadata` test Not sure why we didn't see this bug before, but a recent change to `http2` make it visible. --- grapesy/test-grapesy/Test/Sanity/BrokenDeployments.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/grapesy/test-grapesy/Test/Sanity/BrokenDeployments.hs b/grapesy/test-grapesy/Test/Sanity/BrokenDeployments.hs index d5ff176f..58b63157 100644 --- a/grapesy/test-grapesy/Test/Sanity/BrokenDeployments.hs +++ b/grapesy/test-grapesy/Test/Sanity/BrokenDeployments.hs @@ -272,6 +272,7 @@ test_invalidRequestMetadata = respondWith response $ \addr -> do (Client.ResponseHeaders' HandledSynthesized) <- Client.withConnection connParams' (Client.ServerInsecure addr) $ \conn -> Client.withRPC conn def (Proxy @Ping) $ \call -> do + Client.sendEndOfInput call Client.recvInitialResponse call case mResp of Right headers