diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-09-11 11:49:30 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-09-11 11:49:30 -0700 |
| commit | a8d0668cd7220ac525f72ee8c2feef2539aea85e (patch) | |
| tree | d76838bbc962fd545b23bd7008f723329b160622 | |
| parent | 30d89e097b9ccc46de833a6bbe2013f223f299dd (diff) | |
| download | txr-a8d0668cd7220ac525f72ee8c2feef2539aea85e.tar.gz txr-a8d0668cd7220ac525f72ee8c2feef2539aea85e.tar.bz2 txr-a8d0668cd7220ac525f72ee8c2feef2539aea85e.zip | |
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.
| -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))) |