14_range_response.kc3

Branch :

Show log
Commit
Author : Thomas de Grivel
Date : 2026-09-25 19:53:54
Hash : 5b5973b6
Message : detect TLS over HTTP connection and refuse to answer with an error log message.

test/http/14_range_response.kc3

require HTTPd.Static

do
  root = "."
  File.write_str("14_range_response_fixture.txt", "Test\n\nOK !\n")
  request = %HTTP.Request{method: GET,
                          headers: [{"Range", "bytes=7-9"}]}
  response = HTTPd.Static.show(request, root,
                               "/14_range_response_fixture.txt")
  buf = Buf.new_alloc((Uw) 1024)
  HTTP.Response.buf_write(response, buf, true)
  raw = Buf.read_to_str(buf)
  Buf.delete(buf)
  body_start = Str.position_str(raw, "\r\n\r\n") + 4
  {response.code,
   HTTP.Response.header_get(response, "Accept-Ranges"),
   HTTP.Response.header_get(response, "Content-Length"),
   HTTP.Response.header_get(response, "Content-Range"),
   Str.slice(raw, body_start, -1)}
end

do
  request = %HTTP.Request{method: GET,
                          headers: [{"Range", "bytes=99-"}]}
  response = HTTPd.Static.show(request, ".",
    "/14_range_response_fixture.txt")
  {response.code,
   HTTP.Response.header_get(response, "Accept-Ranges"),
   HTTP.Response.header_get(response, "Content-Range")}
end

do
  request = %HTTP.Request{method: GET,
                          headers: [{"Range", "bytes=0-10"}]}
  response = HTTPd.Static.show(request, ".",
    "/14_range_response_fixture.txt")
  buf = Buf.new_alloc((Uw) 1024)
  HTTP.Response.buf_write(response, buf, true)
  Buf.delete(buf)
  {response.code,
   HTTP.Response.header_get(response, "Content-Length"),
   HTTP.Response.header_get(response, "Content-Range")}
end

do
  request = %HTTP.Request{method: GET,
                          headers: [{"Range", "bytes=broken"}]}
  response = HTTPd.Static.show(request, ".",
    "/14_range_response_fixture.txt")
  buf = Buf.new_alloc((Uw) 1024)
  HTTP.Response.buf_write(response, buf, true)
  Buf.delete(buf)
  {response.code,
   HTTP.Response.header_get(response, "Content-Length"),
   HTTP.Response.header_get(response, "Content-Range")}
end

do
  request = %HTTP.Request{method: HEAD,
                          headers: [{"Range", "bytes=7-9"}]}
  response = HTTPd.Static.show(request, ".",
    "/14_range_response_fixture.txt")
  buf = Buf.new_alloc((Uw) 1024)
  HTTP.Response.buf_write(response, buf, false)
  Buf.delete(buf)
  {response.code,
   HTTP.Response.header_get(response, "Content-Length"),
   HTTP.Response.header_get(response, "Content-Range")}
end

do
  response = HTTPd.Static.response_full("", :text, (Uw) 0, "")
  result = {response.code,
            response.body,
            HTTP.Response.header_get(response, "Content-Length")}
  File.unlink("14_range_response_fixture.txt")
  result
end

kc3-lang/kc3/test/http/14_range_response.kc3

Commit