diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-06-25 11:21:32 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-06-25 11:21:32 +0200 |
| commit | 6363eac43fe5e7df6ece304b59a57aad0925596a (patch) | |
| tree | 9b97d225c1867a574d4777562092664ef855fa35 /test | |
| parent | 100b8ef0782844881e25d10f0b0f12d78e33771e (diff) | |
feat(native_hello): test portal
Diffstat (limited to 'test')
| -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) |