diff options
| -rw-r--r-- | test/native/dune | 3 | ||||
| -rw-r--r-- | test/native/native_hello.ml | 5 |
2 files changed, 6 insertions, 2 deletions
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) |