diff options
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")))) |