diff options
| author | Paul A. Patience <paul@apatience.com> | 2024-01-05 06:30:06 +0000 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2024-01-05 18:03:52 -0800 |
| commit | 05f23c3977d8b68b1946abfb01432e69f3a433a3 (patch) | |
| tree | f67547c1d7b1f3dbe66d873aa6d4d39c49588b61 /tests | |
| parent | 93c17118815ef50f6d4fa728a87129abbdde3f50 (diff) | |
| download | txr-05f23c3977d8b68b1946abfb01432e69f3a433a3.tar.gz txr-05f23c3977d8b68b1946abfb01432e69f3a433a3.tar.bz2 txr-05f23c3977d8b68b1946abfb01432e69f3a433a3.zip | |
tests: fix on OpenBSD.
* tests/common.tl (os-symbol): Add :openbsd.
* tests/007/except-4.txr: Skip.
* tests/018/crypt.tl: Skip unsupported salts, i.e., without leading "$".
* tests/018/gzip.tl: Add -f to gzip command to force compression even if
it does not make the file smaller.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/007/except-4.txr | 2 | ||||
| -rw-r--r-- | tests/018/crypt.tl | 9 | ||||
| -rw-r--r-- | tests/018/gzip.tl | 4 | ||||
| -rw-r--r-- | tests/common.tl | 1 |
4 files changed, 11 insertions, 5 deletions
diff --git a/tests/007/except-4.txr b/tests/007/except-4.txr index 3f0ab9e5..3c19cb89 100644 --- a/tests/007/except-4.txr +++ b/tests/007/except-4.txr @@ -1,5 +1,5 @@ @(include "../common") -@(if (eq (os-symbol) :solaris)) +@(if (meq (os-symbol) :openbsd :solaris)) @ (do (put-line "bar") (exit t)) @(end) @(try) diff --git a/tests/018/crypt.tl b/tests/018/crypt.tl index cdc51841..dc044878 100644 --- a/tests/018/crypt.tl +++ b/tests/018/crypt.tl @@ -4,9 +4,12 @@ (exit)) (mtest - (crypt nil nil) :error - (crypt "a" "bc") "bcshMw5X24ayQ" - (crypt "a" "bcd") "bcshMw5X24ayQ") + (crypt nil nil) :error) + +(if (neq :openbsd (os-symbol)) + (mtest + (crypt "a" "bc") "bcshMw5X24ayQ" + (crypt "a" "bcd") "bcshMw5X24ayQ")) (if (eq :linux (os-symbol)) (mtest diff --git a/tests/018/gzip.tl b/tests/018/gzip.tl index c6d5767e..712ade3c 100644 --- a/tests/018/gzip.tl +++ b/tests/018/gzip.tl @@ -28,7 +28,9 @@ (when %have-gzip% (file-put-string "test-file" "Hello, World!") (remove-path "test-file.gz") - (shchk "gzip test-file") + (cond ((eq (os-symbol) :openbsd) + (shchk "gzip -f test-file")) + (t (shchk "gzip test-file"))) (test (file-get-string "test-file.gz" "z") "Hello, World!") (each ((mode (cons "z" (list-seq "z0".."z9")))) diff --git a/tests/common.tl b/tests/common.tl index e6697f47..57f411fa 100644 --- a/tests/common.tl +++ b/tests/common.tl @@ -78,6 +78,7 @@ (iff (f^ #/CYGWIN/) (ret :cygwin)) (iff (f^ #/CYGNAL/) (ret :cygnal)) (iff (f^ #/Darwin/) (ret :macos)) + (iff (f^ #/OpenBSD/) (ret :openbsd)) (iff #/BSD/ (ret :bsd)) (ret :unknown)) u.sysname]))) |