mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-02-26 04:40:01 +00:00
Code Issues 1 Releases Wiki Activity

Remove wait from CI testing for networking tests.

Browse Source 
We want to expose any existing race conditions.
This commit is contained in:
Calvin Rose 2021-01-11 15:55:12 -06:00
parent 874cc79443
commit 80c5ba32b5
1 changed files with 4 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
test/suite0009.janet
View File

@ -36,12 +36,6 @@
(def s (net/server "127.0.0.1" "8000" handler)) (def s (net/server "127.0.0.1" "8000" handler))
(assert s "made server 1") (assert s "made server 1")
# We need some sleep for windows to let the server stabilize
# or else the first read can fail. Might be a strange windows
# "bug", but needs further investigating. Otherwise, `build_win test`
# can sometimes fail on windows, leading to flaky testing.
(ev/sleep 0.3)
(defn test-echo [msg] (defn test-echo [msg]
(with [conn (net/connect "127.0.0.1" "8000")] (with [conn (net/connect "127.0.0.1" "8000")]
(:write conn msg) (:write conn msg)
@ -59,7 +53,6 @@
(var pipe-counter 0) (var pipe-counter 0)
(def chan (ev/chan 10)) (def chan (ev/chan 10))
(let [[reader writer] (os/pipe)] (let [[reader writer] (os/pipe)]
(ev/sleep 0.3)
(ev/spawn (ev/spawn
(while (ev/read reader 3) (while (ev/read reader 3)
(++ pipe-counter)) (++ pipe-counter))
@ -73,13 +66,13 @@
(ev/take chan)) (ev/take chan))
(var result nil) (var result nil)
(def fiber (var fiber nil)
(set fiber
(ev/spawn (ev/spawn
(set result (protect (ev/sleep 0.4))) (set result (protect (ev/sleep 10)))
(assert (= result '(false "boop")) "ev/cancel 1"))) (assert (= result '(false "boop")) "ev/cancel 1")))
(ev/sleep 0.1) (ev/sleep 0)
(ev/cancel fiber "boop") (ev/cancel fiber "boop")
(ev/sleep 0.1)
(assert-error "bad arity to ev/call" (ev/call inc 1 2 3)) (assert-error "bad arity to ev/call" (ev/call inc 1 2 3))