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

1(import (sigil core)

2 (sigil websocket))

4(define port

5 (or (and (getenv "SIGIL_WS_TEST_PORT")

6 (string->number (getenv "SIGIL_WS_TEST_PORT")))

7 (error "native upgrade-timeout client requires a port")))

8(define started (current-milliseconds))

9(define conn

10 (ws-connect (string-append "ws://127.0.0.1:"

11 (number->string port) "/")

12 upgrade-timeout-ms: 250))

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

15(when conn (error "silent HTTP upgrade unexpectedly succeeded"))

16(unless (and (>= elapsed 150) (< elapsed 2000))

17 (error "HTTP upgrade timeout was not bounded" elapsed))

18(display "native-websocket-upgrade-timeout-ok")

19(newline)