simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-12 21:46:20 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

wip: comment out integration in test (for now)

Browse source
This commit is contained in:
Shon Feder 2025-05-25 19:12:22 -04:00
parent e5b2bab76f
commit d096b9de46
No known key found for this signature in database
1 changed files with 19 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
tests/bin/cohttp_client_eio.ml
View file

@ -9,24 +9,26 @@ let sleep_inner = ref 0.1
let sleep_outer = ref 2.0
let mk_client ~scope =
Opentelemetry_cohttp_lwt.client ~scope (module Cohttp_lwt_unix.Client)
let mk_client ~scope:_ = raise (Failure "TODO")
(* Opentelemetry_cohttp_lwt.client ~scope (module Cohttp_eio.Client) *)
let run () =
let open Lwt.Syntax in
let rec go () =
let@ scope =
Otel_lwt.Trace.with_ ~kind:T.Span.Span_kind_producer "loop.outer"
in
let () = Eio_unix.sleep !sleep_outer in
let module C = (val mk_client ~scope) in
let _res, body =
C.get (Uri.of_string "https://enec1hql02hz.x.pipedream.net")
in
let () = Cohttp_lwt.Body.drain_body body in
go ()
in
go ()
(* TODO *)
(* let open Lwt.Syntax in *)
(* let rec go () = *)
(* let@ scope = *)
(* Otel_lwt.Trace.with_ ~kind:T.Span.Span_kind_producer "loop.outer" *)
(* in *)
(* let () = Eio_unix.sleep !sleep_outer in *)
(* let module C = (val mk_client ~scope) in *)
(* let _res, body = *)
(* C.get (Uri.of_string "https://enec1hql02hz.x.pipedream.net") *)
(* in *)
(* let () = Cohttp_lwt.Body.drain_body body in *)
(* go () *)
(* in *)
(* go () *)
()
let () =
Sys.catch_break true;
@ -70,4 +72,4 @@ let () =
"Check HTTP requests at \
https://requestbin.com/r/enec1hql02hz/26qShWryt5vJc1JfrOwalhr5vQt@.";
Opentelemetry_client_cohttp_eio.with_setup ~config () run |> Lwt_main.run
Opentelemetry_client_cohttp_eio.with_setup ~config () run