simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-13 05:56: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 sleep_outer = ref 2.0
let mk_client ~scope = let mk_client ~scope:_ = raise (Failure "TODO")
Opentelemetry_cohttp_lwt.client ~scope (module Cohttp_lwt_unix.Client) (* Opentelemetry_cohttp_lwt.client ~scope (module Cohttp_eio.Client) *)
let run () = let run () =
let open Lwt.Syntax in (* TODO *)
let rec go () = (* let open Lwt.Syntax in *)
let@ scope = (* let rec go () = *)
Otel_lwt.Trace.with_ ~kind:T.Span.Span_kind_producer "loop.outer" (* let@ scope = *)
in (* Otel_lwt.Trace.with_ ~kind:T.Span.Span_kind_producer "loop.outer" *)
let () = Eio_unix.sleep !sleep_outer in (* in *)
let module C = (val mk_client ~scope) in (* let () = Eio_unix.sleep !sleep_outer in *)
let _res, body = (* let module C = (val mk_client ~scope) in *)
C.get (Uri.of_string "https://enec1hql02hz.x.pipedream.net") (* let _res, body = *)
in (* C.get (Uri.of_string "https://enec1hql02hz.x.pipedream.net") *)
let () = Cohttp_lwt.Body.drain_body body in (* in *)
go () (* let () = Cohttp_lwt.Body.drain_body body in *)
in (* go () *)
go () (* in *)
(* go () *)
()
let () = let () =
Sys.catch_break true; Sys.catch_break true;
@ -70,4 +72,4 @@ let () =
"Check HTTP requests at \ "Check HTTP requests at \
https://requestbin.com/r/enec1hql02hz/26qShWryt5vJc1JfrOwalhr5vQt@."; 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