test/integration/native-connect-timeout-client.sgl

1(import (sigil core)

2 (sigil websocket))

4;; TEST-NET-3 is non-routable public documentation space. A host may reject it

5;; immediately; it must never hold ws-connect beyond the caller's deadline.

6(define started (current-milliseconds))

7(define conn

8 (ws-connect "ws://203.0.113.1:32644/"

9 connect-timeout-ms: 250

10 upgrade-timeout-ms: 250))

11(define elapsed (- (current-milliseconds) started))

13(when conn (error "documentation endpoint unexpectedly connected"))

14(unless (< elapsed 2000)

15 (error "plain WebSocket TCP connect was not bounded" elapsed))

16(display "native-websocket-connect-timeout-ok")

17(newline)