diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2024-01-05 20:17:59 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2024-01-05 20:17:59 -0700 |
| commit | 27d3fc8a546716dca12e47d4eea8f3cec4bbf94a (patch) | |
| tree | 292dcaeddcc1842026afe8393b4195454f57305e | |
| parent | 7982070eecf514da2eaa0892537edc4bd2b17cfc (diff) | |
| download | txr-27d3fc8a546716dca12e47d4eea8f3cec4bbf94a.tar.gz txr-27d3fc8a546716dca12e47d4eea8f3cec4bbf94a.tar.bz2 txr-27d3fc8a546716dca12e47d4eea8f3cec4bbf94a.zip | |
openbsd: more tests fixes.
* tests/014/socket-basic.tl: Test for :openbsd also
were we test for :bsd.
* tests/014/glob-carray.tl: Likewise.
* tests/017/glob-zarray.tl: Likewise.
* tests/017/mmap.tl: Likewise.
* tests/018/chmod.tl: Likewise.
| -rw-r--r-- | tests/014/socket-basic.tl | 2 | ||||
| -rw-r--r-- | tests/017/glob-carray.tl | 2 | ||||
| -rw-r--r-- | tests/017/glob-zarray.tl | 2 | ||||
| -rw-r--r-- | tests/017/mmap.tl | 2 | ||||
| -rw-r--r-- | tests/018/chmod.tl | 2 |
5 files changed, 5 insertions, 5 deletions
diff --git a/tests/014/socket-basic.tl b/tests/014/socket-basic.tl index 1fe4beb2..2e4d57a0 100644 --- a/tests/014/socket-basic.tl +++ b/tests/014/socket-basic.tl @@ -3,7 +3,7 @@ (defvar *socktype*) -(defvarl %iters% (if (meql (os-symbol) :macos :bsd) 2000 5000)) +(defvarl %iters% (if (meql (os-symbol) :macos :bsd :openbsd) 2000 5000)) (defun client (addr) (with-stream (cli-sock (open-socket af-inet *socktype*)) diff --git a/tests/017/glob-carray.tl b/tests/017/glob-carray.tl index 4b95c526..8e43266f 100644 --- a/tests/017/glob-carray.tl +++ b/tests/017/glob-carray.tl @@ -12,7 +12,7 @@ (nil int) (pathv (carray str)) (nil (array 4 cptr))))) - ((:cygnal :cygwin :android :bsd) + ((:cygnal :cygwin :android :bsd :openbsd) (deffi-type glob-t (struct glob-t (pathc size-t) (nil size-t) diff --git a/tests/017/glob-zarray.tl b/tests/017/glob-zarray.tl index 22f87e33..a1e532fb 100644 --- a/tests/017/glob-zarray.tl +++ b/tests/017/glob-zarray.tl @@ -12,7 +12,7 @@ (nil int) (pathv (ptr-out (zarray str))) (nil (array 4 cptr))))) - ((:cygnal :cygwin :android :bsd) + ((:cygnal :cygwin :android :bsd :openbsd) (deffi-type glob-t (struct glob-t (pathc size-t) (nil size-t) diff --git a/tests/017/mmap.tl b/tests/017/mmap.tl index d6b2781f..8ec75364 100644 --- a/tests/017/mmap.tl +++ b/tests/017/mmap.tl @@ -48,5 +48,5 @@ (assert (equal (file-get-buf fname) rndbuf0))) (remove-path fname))) -(unless (eq (os-symbol) :bsd) +(unless (meq (os-symbol) :bsd :openbsd) (test (ignerr (mmap (ffi char) 4096 prot-read map-anon)) nil)) diff --git a/tests/018/chmod.tl b/tests/018/chmod.tl index 4349686c..d8663b5e 100644 --- a/tests/018/chmod.tl +++ b/tests/018/chmod.tl @@ -9,7 +9,7 @@ (defvarl os (os-symbol)) -(defvarl test-sticky (unless (eq os :bsd) +(defvarl test-sticky (unless (meq os :bsd :openbsd) (chmod tgt s-isvtx) (let ((st (stat tgt))) (plusp (logand s-isvtx st.mode))))) |