module http

// Tests for the HTTP/2 <-> net.http conversion glue (h2_client.v). The
// request/response conversions are pure and need no socket; the end-to-end
// fetch test is opt-in and network-dependent.

fn test_to_h2_request_pseudo_headers_and_body() {
    req := Request{
        user_agent: 'v.http'
    }
    h2req := req.to_h2_request(.post, 'example.com', '/p?q=1', 'hello', new_header())
    assert h2req.method == 'POST'
    assert h2req.scheme == 'https'
    assert h2req.authority == 'example.com'
    assert h2req.path == '/p?q=1'
    assert h2req.body.bytestr() == 'hello'
    // user-agent (from the request) and a synthesized content-length.
    assert h2req.headers.any(it.name == 'user-agent' && it.value == 'v.http')
    assert h2req.headers.any(it.name == 'content-length' && it.value == '5')
}

fn test_to_h2_request_lowercases_and_keeps_custom_headers() {
    mut h := new_header()
    h.add_custom('Accept', 'application/json') or {}
    h.add(.content_type, 'text/plain')
    req := Request{}
    h2req := req.to_h2_request(.get, 'h.example', '/', '', h)
    assert h2req.headers.any(it.name == 'accept' && it.value == 'application/json')
    assert h2req.headers.any(it.name == 'content-type' && it.value == 'text/plain')
}

fn test_to_h2_request_strips_hop_by_hop_and_host() {
    mut h := new_header()
    h.add(.connection, 'keep-alive')
    h.add(.host, 'example.com')
    h.add_custom('Transfer-Encoding', 'chunked') or {}
    req := Request{}
    h2req := req.to_h2_request(.get, 'example.com', '/', '', h)
    assert !h2req.headers.any(it.name == 'connection')
    assert !h2req.headers.any(it.name == 'host')
    assert !h2req.headers.any(it.name == 'transfer-encoding')
}

fn test_to_h2_request_collapses_cookies() {
    mut h := new_header()
    h.add(.cookie, 'a=1')
    req := Request{
        cookies: {
            'sid': 'abc'
        }
    }
    h2req := req.to_h2_request(.get, 'h.example', '/', '', h)
    cookie := h2req.headers.filter(it.name == 'cookie')
    assert cookie.len == 1
    // Both the request cookie map and the Cookie header value are present.
    assert cookie[0].value.contains('sid=abc')
    assert cookie[0].value.contains('a=1')
}

fn test_h2_response_to_http() {
    h2resp := H2ClientResponse{
        status:  200
        headers: [H2HeaderField{'content-type', 'text/plain'},
            H2HeaderField{'x-foo', 'bar'}]
        body:    'hi'.bytes()
    }
    resp := h2_response_to_http(h2resp)
    assert resp.status_code == 200
    assert resp.http_version == '2.0'
    assert resp.version() == .v2_0
    assert resp.body == 'hi'
    assert (resp.header.get_custom('content-type') or { '' }) == 'text/plain'
    assert (resp.header.get_custom('x-foo') or { '' }) == 'bar'
}

fn test_h2_authority_omits_default_port() {
    assert h2_authority('example.com', 443) == 'example.com'
    assert h2_authority('example.com', 0) == 'example.com'
    assert h2_authority('example.com', 8443) == 'example.com:8443'
}

// End-to-end test against a real HTTP/2 server. Run with `-d network`,
// e.g. `v -d network test vlib/net/http/h2_client_test.v`.
fn test_http2_fetch_real_server() {
    $if !network ? {
        return
    }
    // HTTP/2 is negotiated by default for https requests. On Windows this runs
    // over the SChannel backend's ALPN + HTTP/2 path (vlang/v#27383).
    resp := get('https://www.google.com/')!
    assert resp.version() == .v2_0
    assert resp.status_code == 200
    assert resp.body.len > 0
    // Opting out forces HTTP/1.1 against the same server.
    plain := fetch(url: 'https://www.google.com/', enable_http2: false)!
    assert plain.version() == .v1_1
}

fn test_to_h2_request_authority_from_host_header() {
    mut h := new_header()
    h.add(.host, 'override.example:8443')
    req := Request{}
    // The URL host is origin.example, but an explicit Host header must win.
    h2req := req.to_h2_request(.get, 'origin.example', '/', '', h)
    assert h2req.authority == 'override.example:8443'
    assert !h2req.headers.any(it.name == 'host')
}