mirror of
https://github.com/c-cube/tiny_httpd.git
synced 2025-12-06 11:15:35 -05:00
39 lines
1.3 KiB
OCaml
39 lines
1.3 KiB
OCaml
module MFD = Tiny_httpd_multipart_form_data
|
|
|
|
let pf = Printf.printf
|
|
let spf = Printf.sprintf
|
|
|
|
let pp_headers hs =
|
|
spf "[%s]" (String.concat ";" @@ List.map (fun (k, v) -> spf "%S: %S" k v) hs)
|
|
|
|
let test_headers h (exp : _ option) =
|
|
match MFD.Content_disposition.parse h, exp with
|
|
| Some c1, Some c2 ->
|
|
pf "h %s: got %s, expected %s, same=%b\n" (pp_headers h)
|
|
(MFD.Content_disposition.to_string c1)
|
|
(MFD.Content_disposition.to_string c2)
|
|
(c1 = c2)
|
|
| Some c1, None ->
|
|
pf "h: %s, unexpected content disp %s\n" (pp_headers h)
|
|
(MFD.Content_disposition.to_string c1)
|
|
| None, Some c2 ->
|
|
pf "h: %s, expected content disp %s\n" (pp_headers h)
|
|
(MFD.Content_disposition.to_string c2)
|
|
| None, None -> pf "h: %s, no content disp\n" (pp_headers h)
|
|
|
|
let () =
|
|
test_headers [ "content-foobar", "yolo"; "other", "whatev" ] None;
|
|
test_headers
|
|
[
|
|
"content-disposition", "form-data; name=helloworld; junk";
|
|
"other", "whatev";
|
|
]
|
|
(Some { kind = "form-data"; name = Some "helloworld"; filename = None });
|
|
test_headers
|
|
[
|
|
( "content-disposition",
|
|
"form-data; lol=mdr; filename=\"some quoted stuff\"" );
|
|
]
|
|
(Some
|
|
{ kind = "form-data"; name = None; filename = Some "some quoted stuff" });
|
|
()
|