mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-31 15:43:01 +00:00
Code Issues 1 Releases Wiki Activity

Make host and port configurable for suite-ev.janet

Browse Source
This commit is contained in:
Calvin Rose
2024-01-28 07:56:59 -06:00
parent 5e75963312
commit 3a4f86c3d7
2 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/core/abstract.c
View File

@@ -32,7 +32,7 @@
#ifdef JANET_WINDOWS #ifdef JANET_WINDOWS
#include <windows.h> #include <windows.h>
#else #else
#include <stdatomic.h> //#include <stdatomic.h>
#endif #endif
#endif #endif

19
test/suite-ev.janet
View File

@@ -21,6 +21,9 @@
(import ./helper :prefix "" :exit true) (import ./helper :prefix "" :exit true)
(start-suite) (start-suite)
(def test-port (os/getenv "JANET_TEST_PORT" "8761"))
(def test-host (os/getenv "JANET_TEST_HOST" "127.0.0.1"))
# Subprocess # Subprocess
# 5e1a8c86f # 5e1a8c86f
(def janet (dyn *executable*)) (def janet (dyn *executable*))
@@ -192,11 +195,11 @@
(net/write stream b) (net/write stream b)
(buffer/clear b))) (buffer/clear b)))
(def s (net/server "127.0.0.1" "8000" handler)) (def s (net/server test-host test-port handler))
(assert s "made server 1") (assert s "made server 1")
(defn test-echo [msg] (defn test-echo [msg]
(with [conn (net/connect "127.0.0.1" "8000")] (with [conn (net/connect test-host test-port)]
(net/write conn msg) (net/write conn msg)
(def res (net/read conn 1024)) (def res (net/read conn 1024))
(assert (= (string res) msg) (string "echo " msg)))) (assert (= (string res) msg) (string "echo " msg))))
@@ -216,18 +219,18 @@
# prevent immediate close # prevent immediate close
(ev/read stream 1) (ev/read stream 1)
(def [host port] (net/localname stream)) (def [host port] (net/localname stream))
(assert (= host "127.0.0.1") "localname host server") (assert (= host test-host) "localname host server")
(assert (= port 8000) "localname port server"))) (assert (= port (scan-number test-port)) "localname port server")))
# Test localname and peername # Test localname and peername
# 077bf5eba # 077bf5eba
(repeat 10 (repeat 10
(with [s (net/server "127.0.0.1" "8000" names-handler)] (with [s (net/server test-host test-port names-handler)]
(repeat 10 (repeat 10
(with [conn (net/connect "127.0.0.1" "8000")] (with [conn (net/connect test-host test-port)]
(def [host port] (net/peername conn)) (def [host port] (net/peername conn))
(assert (= host "127.0.0.1") "peername host client ") (assert (= host test-host) "peername host client ")
(assert (= port 8000) "peername port client") (assert (= port (scan-number test-port)) "peername port client")
# let server close # let server close
(ev/write conn " ")))) (ev/write conn " "))))
(gccollect)) (gccollect))