Skip to content

Commit

Permalink
Remove ocaml/perftest (#6156)
Browse files Browse the repository at this point in the history
This appears to be entirely unused.
  • Loading branch information
robhoes authored Dec 4, 2024
2 parents c141b6d + fd011dd commit 26b6ed6
Show file tree
Hide file tree
Showing 17 changed files with 6 additions and 2,809 deletions.
6 changes: 0 additions & 6 deletions ocaml/libs/http-lib/http_client.ml
Original file line number Diff line number Diff line change
Expand Up @@ -200,9 +200,6 @@ let response_of_fd ?(use_fastpath = false) fd =
__FUNCTION__ (Printexc.to_string e) ;
None

(** See perftest/tests.ml *)
let last_content_length = ref 0L

let http_rpc_recv_response use_fastpath error_msg fd =
match response_of_fd ~use_fastpath fd with
| None ->
Expand All @@ -212,9 +209,6 @@ let http_rpc_recv_response use_fastpath error_msg fd =
| ("401" | "403" | "500") as http_code ->
raise (Http_error (http_code, error_msg))
| "200" ->
Option.iter
(fun x -> last_content_length := x)
response.Http.Response.content_length ;
response
| code ->
raise (Http_request_rejected (Printf.sprintf "%s: %s" code error_msg))
Expand Down
3 changes: 0 additions & 3 deletions ocaml/libs/http-lib/http_client.mli
Original file line number Diff line number Diff line change
Expand Up @@ -40,6 +40,3 @@ val rpc :
(** [rpc fd request body f] marshals the HTTP request represented by [request] and [body]
through file descriptor [fd] and then applies the response to [f]. On failure an
exception is thrown. *)

val last_content_length : int64 ref
(** See perftest/tests.ml *)
171 changes: 0 additions & 171 deletions ocaml/perftest/createVM.ml

This file was deleted.

Loading

0 comments on commit 26b6ed6

Please sign in to comment.