From 47d5feb3175a8cd1dfb515c0f552eb50d2edad47 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 20 Apr 2021 02:25:04 -0700 Subject: openbsd: fix tests. * tests/014/socket-basic.tl (%iters%): Also reduce to 2000 on OpenBSD, to avoid the default limit on UDP datagram size. * tests/017/glob-carray.tl: Use the BSD-style struct glob-t on OpenBSD also. * tests/017/glob-zarray.tl: Likewise. * tests/018/chmod.tl (os): New global variable. (test-sticky): s-isvtx not allowed for non-root user on OpenBSD, so we falsify this variable. * tests/common.tl (os-symbol): Add OpenBSD case, producing :openbsd keyword symbol. (libc): Let's just use (dlopen nil) for any platform that isn't Cygwin or Cygnal. --- tests/common.tl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'tests/common.tl') diff --git a/tests/common.tl b/tests/common.tl index accbf1f7..157cd7e1 100644 --- a/tests/common.tl +++ b/tests/common.tl @@ -32,13 +32,14 @@ (iff (f^ #/CYGWIN/) (ret :cygwin)) (iff (f^ #/CYGNAL/) (ret :cygnal)) (iff (f^ #/Darwin/) (ret :macos)) + (iff (f^ #/OpenBSD/) (ret :openbsd)) (ret :unknown)) u.sysname]))) (defun libc () (caseql (os-symbol) - ((:linux :solaris :macos :android) (dlopen nil)) - ((:cygwin) (dlopen "cygwin1.dll")))) + ((:cygwin :cygnal) (dlopen "cygwin1.dll")) + (t (dlopen nil)))) (defmacro macro-time-let (:env env bindings . body) (with-gensyms (invoke) -- cgit v1.2.3