module http

import net
import time

fn test_tls_accept_timeouts_finite_handshake_for_infinite_accept() {
	// An infinite accept timeout (<= 0, or net.infinite_timeout) must still
	// yield a finite handshake timeout, so a client stalling mid-handshake
	// cannot wedge the accept thread or block shutdown.
	// net.infinite_timeout is i64.max (positive), so the > 0 guard alone is
	// insufficient — mbedtls treats it as an infinite deadline.
	accept_poll_timeout, handshake_timeout := tls_accept_timeouts(0, tls_handshake_timeout)
	assert accept_poll_timeout == tls_accept_poll_timeout
	assert handshake_timeout == tls_handshake_timeout
	_, neg_handshake_timeout := tls_accept_timeouts(-1, tls_handshake_timeout)
	assert neg_handshake_timeout == tls_handshake_timeout
	_, inf_handshake_timeout := tls_accept_timeouts(net.infinite_timeout, tls_handshake_timeout)
	assert inf_handshake_timeout == tls_handshake_timeout
}

fn test_tls_accept_timeouts_cap_poll_without_changing_handshake_timeout() {
	accept_poll_timeout, handshake_timeout := tls_accept_timeouts(time.second,
		tls_handshake_timeout)
	assert accept_poll_timeout == tls_accept_poll_timeout
	assert handshake_timeout == time.second
}

fn test_tls_accept_timeouts_keep_short_accept_timeout() {
	accept_poll_timeout, handshake_timeout := tls_accept_timeouts(50 * time.millisecond,
		tls_handshake_timeout)
	assert accept_poll_timeout == 50 * time.millisecond
	assert handshake_timeout == 50 * time.millisecond
}

fn test_tls_accept_timeouts_configurable_fallback() {
	// When accept_timeout is infinite, the handshake_fallback parameter
	// (Server.tls_handshake_timeout) governs the budget — not the constant.
	custom_fallback := 5 * time.second
	_, handshake_timeout := tls_accept_timeouts(0, custom_fallback)
	assert handshake_timeout == custom_fallback
}