Don't kill the process_label entry on each request

Author: mtrudel

lib/bandit/http1/handler.ex

@@ -43,7 +43,9 @@ defmodule Bandit.HTTP1.Handler do
 
   defp clear_process_dict do
     Process.get_keys()
-    |> Enum.each(&if &1 not in ~w[$ancestors $initial_call]a, do: Process.delete(&1))
+    |> Enum.each(
+      &if &1 not in ~w[$ancestors $initial_call $process_label]a, do: Process.delete(&1)
+    )
   end
 
   defp do_websocket_upgrade(upgrade_opts, state) do

test/bandit/http1/plug_test.exs

@@ -167,10 +167,19 @@ defmodule HTTP1PlugTest do
       client = SimpleHTTP1Client.tcp_client(context)
 
       SimpleHTTP1Client.send(client, "GET", "/pdict", ["host: localhost"])
-      assert {:ok, "200 OK", _headers, "[]"} = SimpleHTTP1Client.recv_reply(client)
+
+      # We should keep the process_label entry around
+      assert {:ok, "200 OK", _headers,
+              "[\"$process_label\": {:thousand_island, :connection, {Bandit.DelegatingHandler, {{127, 0, 0, 1}," <>
+                _dynamic_port} =
+               SimpleHTTP1Client.recv_reply(client)
 
       SimpleHTTP1Client.send(client, "GET", "/pdict", ["host: localhost"])
-      assert {:ok, "200 OK", _headers, "[]"} = SimpleHTTP1Client.recv_reply(client)
+
+      assert {:ok, "200 OK", _headers,
+              "[\"$process_label\": {:thousand_island, :connection, {Bandit.DelegatingHandler, {{127, 0, 0, 1}," <>
+                _dynamic_port} =
+               SimpleHTTP1Client.recv_reply(client)
     end
 
     def pdict(conn) do