mirror of
https://github.com/c-cube/tiny_httpd.git
synced 2026-03-07 21:37:57 -05:00
24 lines
693 B
OCaml
24 lines
693 B
OCaml
open Tiny_httpd_core
|
|
|
|
(* Test that header size limits are enforced *)
|
|
let test_header_too_large () =
|
|
(* Create a header that's larger than 16KB *)
|
|
let large_value = String.make 20000 'x' in
|
|
let q =
|
|
"GET / HTTP/1.1\r\n\
|
|
Host: example.com\r\n\
|
|
X-Large: " ^ large_value ^ "\r\n\
|
|
\r\n"
|
|
in
|
|
let str = IO.Input.of_string q in
|
|
let client_addr = Unix.(ADDR_INET (inet_addr_loopback, 1024)) in
|
|
let buf = Buf.create () in
|
|
try
|
|
let _ = Request.Private_.parse_req_start_exn ~client_addr ~buf
|
|
~get_time_s:(fun _ -> 0.) str in
|
|
failwith "should have failed with 431"
|
|
with Common_.Bad_req (431, _) ->
|
|
() (* expected *)
|
|
|
|
let () =
|
|
test_header_too_large ()
|