tests: server-name should not include port

I happened to notice...

That our current integration tests include the port in the :server-name:

clj-http-lite/test/clj_http/test/core_test.clj

Lines 84 to 86 in 0219dc9

    
           {:scheme      :http 
        
            :server-name (str "localhost:" (current-port)) 
        
            :port        (current-port)})

But this is because...

The we expect :server-port, and not as we see above :port.

clj-http-lite/src/clj_http/lite/core.clj

Lines 67 to 73 in 0219dc9

    
           (defn request 
        
             "Executes the HTTP request corresponding to the given Ring `req` map and 
        
              returns the Ring response map corresponding to the resulting HTTP response." 
        
             [{:keys [request-method scheme server-name server-port uri query-string 
        
                      headers content-type character-encoding body socket-timeout 
        
                      conn-timeout insecure? save-request? follow-redirects 
        
                      chunk-size] :as req}]

Soo...

I'll fix that up. It happens to work, but it is not proper usage and misleading to anyone reading our tests.

	{:scheme :http
	:server-name (str "localhost:" (current-port))
	:port (current-port)})

	(defn request
	"Executes the HTTP request corresponding to the given Ring `req` map and
	returns the Ring response map corresponding to the resulting HTTP response."
	[{:keys [request-method scheme server-name server-port uri query-string
	headers content-type character-encoding body socket-timeout
	conn-timeout insecure? save-request? follow-redirects
	chunk-size] :as req}]