diff --git a/tests/dune b/tests/dune index d2246b32..2d608045 100644 --- a/tests/dune +++ b/tests/dune @@ -1,3 +1,6 @@ (tests - (names test_trace_context) - (libraries opentelemetry)) + (names test_trace_context test_get_url) + (libraries + opentelemetry + opentelemetry-client-ocurl + opentelemetry-client-cohttp-lwt)) diff --git a/tests/test_get_url.expected b/tests/test_get_url.expected new file mode 100644 index 00000000..37c0d86a --- /dev/null +++ b/tests/test_get_url.expected @@ -0,0 +1,2 @@ +ocurl url = http://localhost:4318 +cohttp url = http://localhost:4318 diff --git a/tests/test_get_url.ml b/tests/test_get_url.ml new file mode 100644 index 00000000..397996d3 --- /dev/null +++ b/tests/test_get_url.ml @@ -0,0 +1,17 @@ +let url = "http://localhost:3000" + +let ocurl () = + let config = Opentelemetry_client_ocurl.Config.make ~url () in + Opentelemetry_client_ocurl.with_setup ~config () @@ fun () -> + let url = Opentelemetry_client_ocurl.get_url () in + print_endline @@ Printf.sprintf "ocurl url = %s" url + +let cohttp () = + let config = Opentelemetry_client_cohttp_lwt.Config.make ~url () in + Opentelemetry_client_cohttp_lwt.with_setup ~config () @@ fun () -> + let url = Opentelemetry_client_cohttp_lwt.get_url () in + print_endline @@ Printf.sprintf "cohttp url = %s" url + +let () = + ocurl (); + cohttp ()