test(http): line folding (#1064)

Signed-off-by: Rudi Grinberg <[email protected]>

http/test/expect/dune

@@ -0,0 +1,6 @@
+(library
+ (name http_tests)
+ (libraries http)
+ (inline_tests)
+ (preprocess
+  (pps ppx_expect)))

http/test/expect/http_tests.ml

@@ -0,0 +1,20 @@
+module Parser = Http.Private.Parser
+
+let print_request = function
+  | Error Parser.Partial -> print_endline "partial header"
+  | Error (Msg m) -> print_endline m
+  | Ok (req, n) ->
+      Format.printf "%a@." Http.Request.pp req;
+      if n > 0 then Format.printf "leftover: %d@." n
+
+let%expect_test "line folding" =
+  let buf =
+    "GET / HTTP/1.1\r\n\
+     Host: localhost:8080\r\n\
+     Line-Folded: foo\r\n\
+    \ bar\r\n\
+     \r\n\
+     foboar"
+  in
+  print_request (Parser.parse_request buf);
+  [%expect {| partial header |}]