mirror of
https://github.com/janet-lang/janet
synced 2025-09-13 00:06:06 +00:00
Raise error if using ev/to-file
on MinGW
This commit is contained in:
@@ -420,9 +420,13 @@
|
||||
# Now do our telnet chat
|
||||
(def bob (net/connect test-host test-port :stream))
|
||||
(expect-read bob "Whats your name?\n")
|
||||
(def fbob (ev/to-file bob))
|
||||
(file/write fbob "bob")
|
||||
(:close fbob)
|
||||
(if (= :mingw (os/which))
|
||||
(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")
|
||||
(def alice (net/connect test-host test-port))
|
||||
(expect-read alice "Whats your name?\n")
|
||||
|
Reference in New Issue
Block a user