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/018 | |
| 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/018')
| -rw-r--r-- | tests/018/crypt.tl | 9 | ||||
| -rw-r--r-- | tests/018/gzip.tl | 4 |
2 files changed, 9 insertions, 4 deletions
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")))) |