From 7872378ee23adf65c2bed5819a74811ed6e954fc Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 13 May 2017 18:52:18 -0700 Subject: 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. --- tests/014/dgram-stream.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests/014/dgram-stream.tl') 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) -- cgit v1.2.3