From 6363eac43fe5e7df6ece304b59a57aad0925596a Mon Sep 17 00:00:00 2001 From: Clombrong Date: Wed, 25 Jun 2025 11:21:32 +0200 Subject: feat(native_hello): test portal --- test/native/dune | 3 ++- test/native/native_hello.ml | 5 ++++- 2 files changed, 6 insertions(+), 2 deletions(-) (limited to 'test/native') diff --git a/test/native/dune b/test/native/dune index 6ce5a45..36b5af5 100644 --- a/test/native/dune +++ b/test/native/dune @@ -1,2 +1,3 @@ (test - (name native_hello)) + (name native_hello) + (libraries portal_tcp)) diff --git a/test/native/native_hello.ml b/test/native/native_hello.ml index bb38ee6..b5456c1 100644 --- a/test/native/native_hello.ml +++ b/test/native/native_hello.ml @@ -1,5 +1,8 @@ +open! Portal_tcp + let () = let jid = Sys.getenv "FLESH_JID" and _password = Sys.getenv "FLESH_PASSWORD" in let domain = (List.nth (String.split_on_char '@' jid) 1) - in print_endline domain + in let port = tcp_endpoint domain + in print_endline (string_of_int port) -- cgit v1.2.3