From 68ad6419262bf60874f034c62d29b83ed4bb2a48 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 11 Sep 2021 11:49:30 -0700 Subject: sockets: add test for recent sock-peer place issue. * tests/014/socket-misc.tl: Test that we can perform a place update operation on a (sock-peer s) place. --- tests/014/socket-misc.tl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'tests/014/socket-misc.tl') 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))) -- cgit v1.2.3