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 | 68ad6419262bf60874f034c62d29b83ed4bb2a48 (patch) | |
| tree | d76838bbc962fd545b23bd7008f723329b160622 /tests | |
| parent | c9006f7963382ba4ff4a0b37271f1cfbaae583d7 (diff) | |
| download | txr-68ad6419262bf60874f034c62d29b83ed4bb2a48.tar.gz txr-68ad6419262bf60874f034c62d29b83ed4bb2a48.tar.bz2 txr-68ad6419262bf60874f034c62d29b83ed4bb2a48.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.
Diffstat (limited to 'tests')
| -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))) |