mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-07-05 11:32:54 +00:00
Code Issues 1 Releases Wiki Activity

Get rid of test error.

Browse Source
This commit is contained in:
Calvin Rose 2025-04-05 20:52:47 -05:00
parent e8187fdee5
commit 38e841fc5c
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
test/suite-ev.janet
View File

@ -430,13 +430,7 @@
# Now do our telnet chat # Now do our telnet chat
(def bob (assert (net/connect test-host test-port :stream))) (def bob (assert (net/connect test-host test-port :stream)))
(expect-read bob "Whats your name?\n") (expect-read bob "Whats your name?\n")
(if (= :mingw (os/which))
(net/write bob "bob") (net/write bob "bob")
(do
(def fbob (ev/to-file bob))
(file/write fbob "bob")
(file/flush fbob)
(:close fbob)))
(expect-read bob "Welcome bob\n") (expect-read bob "Welcome bob\n")
(def alice (assert (net/connect test-host test-port))) (def alice (assert (net/connect test-host test-port)))
(expect-read alice "Whats your name?\n") (expect-read alice "Whats your name?\n")
@ -569,7 +563,8 @@
(ev/gather (ev/gather
(os/proc-wait p) (os/proc-wait p)
(ev/slurp (p :out)))) (ev/slurp (p :out))))
(def data (string/replace-all "\r" "" data))
(assert (zero? exit-code) "subprocess ran") (assert (zero? exit-code) "subprocess ran")
(assert (deep= data @"hi\nthere\n") "output is correct") (assert (= data "hi\nthere\n") "output is correct")
(end-suite) (end-suite)