diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-05-13 18:52:18 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-05-13 18:52:18 -0700 |
| commit | 7872378ee23adf65c2bed5819a74811ed6e954fc (patch) | |
| tree | 6505d0bb50f6329fd3472ba45416088ebee8ad72 /tests/014 | |
| parent | b0c58add3f8ad3da79c6c536925cc7377d59612b (diff) | |
| download | txr-7872378ee23adf65c2bed5819a74811ed6e954fc.tar.gz txr-7872378ee23adf65c2bed5819a74811ed6e954fc.tar.bz2 txr-7872378ee23adf65c2bed5819a74811ed6e954fc.zip | |
tests: use internal OS identification method.
* tests/common.tl (osname): Function based on calling
shell command removed.
(os-symbol): New symbol-returning function based on
uname system call.
* tests/014/dgram-stream.tl (dgram-test): Use os-symbol
function rather than osname.
Diffstat (limited to 'tests/014')
| -rw-r--r-- | tests/014/dgram-stream.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/014/dgram-stream.tl b/tests/014/dgram-stream.tl index b2ac1165..5902a84d 100644 --- a/tests/014/dgram-stream.tl +++ b/tests/014/dgram-stream.tl @@ -35,7 +35,7 @@ (if (and (fboundp 'open-socket) (fboundp 'fork)) - (let ((maybe-ipv6 (if (memqual (osname) '("GNU/Linux" "Darwin" "Cygwin")) + (let ((maybe-ipv6 (if (memq (os-symbol) '(:linux :macos :cygwin :cygnal)) (list af-inet6)))) (each ((family ^(,af-inet ,*maybe-ipv6))) (unless (dgram-test) |