diff options
Diffstat (limited to 'tests/014/socket-misc.tl')
| -rw-r--r-- | tests/014/socket-misc.tl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/014/socket-misc.tl b/tests/014/socket-misc.tl index 39045c1d..de57e465 100644 --- a/tests/014/socket-misc.tl +++ b/tests/014/socket-misc.tl @@ -1,4 +1,8 @@ (load "../common") (with-stream (s (open-socket af-inet (logior sock-dgram sock-nonblock))) - (test (sock-listen s) t)) + (test (sock-listen s) t) + (let* ((orig #S(sockaddr-in)) + (addr orig)) + (rotate addr (sock-peer s)) + (vtest (sock-peer s) orig))) |