File tree 2 files changed +12
-8
lines changed
2 files changed +12
-8
lines changed Original file line number Diff line number Diff line change @@ -336,7 +336,7 @@ static REBOOL Nonblocking_Mode(SOCKET sock)
336
336
337
337
sock -> error = GET_ERROR ;
338
338
Signal_Device (sock , EVT_ERROR );
339
- return DR_ERROR ; // Remove it from pending list
339
+ return DR_DONE ; // Using DONE instead of ERROR -> https://github.com/Oldes/Rebol-issues/issues/2441
340
340
}
341
341
342
342
Original file line number Diff line number Diff line change @@ -314,18 +314,22 @@ if system/platform = 'Windows [
314
314
error? e: try [read http://www.r ]
315
315
e/id = 'no-connect
316
316
]
317
+ ;@@ https://github.com/Oldes/Rebol-issues/issues/2441
318
+ --assert string? try [read http://www.rebol.com ]
319
+
320
+ ===end-group===
321
+
322
+
323
+ ===start-group=== "WHOIS scheme"
324
+ --test-- "read WHOIS"
325
+ --assert string? probe try [read whois://google.com ]
326
+ --test-- "write WHOIS"
327
+ --assert string? try [write whois://whois.nic.cz "seznam.cz" ]
317
328
===end-group===
318
329
319
330
320
331
if "true" <> get-env "CONTINUOUS_INTEGRATION" [
321
332
;- don't do these tests on Travis CI
322
- ===start-group=== "WHOIS scheme"
323
- --test-- "read WHOIS"
324
- --assert string? probe try [read whois://google.com ]
325
- --test-- "write WHOIS"
326
- --assert string? try [write whois://whois.nic.cz "seznam.cz" ]
327
- ===end-group===
328
-
329
333
===start-group=== "console port"
330
334
--test-- "query input port"
331
335
--assert port? system/ports/input
You can’t perform that action at this time.
0 commit comments