Improved support for #as_json and #to_json.

- `Async::HTTP::Client` and `Async::HTTP::Server`.
- `Async::HTTP::Protocol::*::Connection` for HTTP/1 and HTTP/2.

lib/async/http/client.rb

@@ -42,6 +42,20 @@ def initialize(endpoint, protocol: endpoint.protocol, scheme: endpoint.scheme, a
 				@authority = authority
 			end
 
+			def as_json(...)
+				{
+					endpoint: @endpoint.to_s,
+					protocol: @protocol,
+					retries: @retries,
+					scheme: @scheme,
+					authority: @authority,
+				}
+			end
+
+			def to_json(...)
+				as_json.to_json(...)
+			end
+
 			attr :endpoint
 			attr :protocol
 

lib/async/http/protocol/http1/connection.rb

@@ -20,6 +20,18 @@ def initialize(stream, version)
 						@version = version
 					end
 
+					def to_s
+						"\#<#{self.class} negotiated #{@version}, currently #{@ready ? 'ready' : 'in-use'}>"
+					end
+
+					def as_json(...)
+						to_s
+					end
+
+					def to_json(...)
+						as_json.to_json(...)
+					end
+
 					attr :version
 
 					def http1?

lib/async/http/protocol/http2/connection.rb

@@ -36,7 +36,15 @@ def initialize(*)
 					end
 
 					def to_s
-						"\#<#{self.class} #{@streams.count} active streams>"
+						"\#<#{self.class} #{@count} requests, #{@streams.count} active streams>"
+					end
+
+					def as_json(...)
+						to_s
+					end
+
+					def to_json(...)
+						as_json.to_json(...)
 					end
 
 					attr :stream

lib/async/http/server.rb

@@ -28,6 +28,18 @@ def initialize(app, endpoint, protocol: endpoint.protocol, scheme: endpoint.sche
 				@scheme = scheme
 			end
 
+			def as_json(...)
+				{
+					endpoint: @endpoint.to_s,
+					protocol: @protocol,
+					scheme: @scheme,
+				}
+			end
+
+			def to_json(...)
+				as_json.to_json(...)
+			end
+
 			attr :endpoint
 			attr :protocol
 			attr :scheme

test/async/http/client.rb

@@ -23,6 +23,40 @@
 			response.read
 			expect(response).to be(:success?)
 		end
+
+		with 'client' do
+			with "#as_json" do
+				it "generates a JSON representation" do
+					expect(client.as_json).to be == {
+						endpoint: client.endpoint.to_s,
+						protocol: client.protocol,
+						retries: client.retries,
+						scheme: endpoint.scheme,
+						authority: endpoint.authority,
+					}
+				end
+
+				it 'generates a JSON string' do
+					expect(JSON.dump(client)).to be == client.to_json
+				end
+			end
+		end
+
+		with 'server' do
+			with "#as_json" do
+				it "generates a JSON representation" do
+					expect(server.as_json).to be == {
+						endpoint: server.endpoint.to_s,
+						protocol: server.protocol,
+						scheme: server.scheme,
+					}
+				end
+
+				it 'generates a JSON string' do
+					expect(JSON.dump(server)).to be == server.to_json
+				end
+			end
+		end
 	end
 
 	with 'non-existant host' do

test/async/http/protocol/http11.rb

@@ -11,6 +11,29 @@
 describe Async::HTTP::Protocol::HTTP11 do
 	it_behaves_like Async::HTTP::AProtocol
 
+	with '#as_json' do
+		include Sus::Fixtures::Async::HTTP::ServerContext
+		let(:protocol) {subject}
+
+		it "generates a JSON representation" do
+			response = client.get("/")
+			connection = response.connection
+
+			expect(connection.as_json).to be == "#<Async::HTTP::Protocol::HTTP1::Client negotiated HTTP/1.1, currently ready>"
+		ensure
+			response&.close
+		end
+
+		it "generates a JSON string" do
+			response = client.get("/")
+			connection = response.connection
+
+			expect(JSON.dump(connection)).to be == connection.to_json
+		ensure
+			response&.close
+		end
+	end
+
 	with 'server' do
 		include Sus::Fixtures::Async::HTTP::ServerContext
 		let(:protocol) {subject}
@@ -90,13 +113,13 @@ def around
 				::Protocol::HTTP::Middleware.for do |request|
 					peer = request.hijack!
 
-          peer.write(
-            "#{request.version} 200 It worked!\r\n" +
-            "connection: close\r\n" +
-            "\r\n" +
-            "Hello World!"
-          )
-          peer.close
+					peer.write(
+						"#{request.version} 200 It worked!\r\n" +
+						"connection: close\r\n" +
+						"\r\n" +
+						"Hello World!"
+					)
+					peer.close
 
 					::Protocol::HTTP::Response[-1, {}, body]
 				end

test/async/http/protocol/http2.rb

@@ -9,6 +9,29 @@
 describe Async::HTTP::Protocol::HTTP2 do
 	it_behaves_like Async::HTTP::AProtocol
 
+	with '#as_json' do
+		include Sus::Fixtures::Async::HTTP::ServerContext
+		let(:protocol) {subject}
+
+		it "generates a JSON representation" do
+			response = client.get("/")
+			connection = response.connection
+
+			expect(connection.as_json).to be == "#<Async::HTTP::Protocol::HTTP2::Client 1 requests, 0 active streams>"
+		ensure
+			response&.close
+		end
+
+		it "generates a JSON string" do
+			response = client.get("/")
+			connection = response.connection
+
+			expect(JSON.dump(connection)).to be == connection.to_json
+		ensure
+			response&.close
+		end
+	end
+
 	with 'server' do
 		include Sus::Fixtures::Async::HTTP::ServerContext
 		let(:protocol) {subject}