diff options
author | Michael Gran <spk121@yahoo.com> | 2023-06-20 11:27:10 -0700 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2025-03-30 18:40:37 -0700 |
commit | 7aa3b482fb5d3dadbda7cbbc39b6cc3642c7c29d (patch) | |
tree | 4aded6ed2d5d4639d6b0a6100a97b798f1a485c5 | |
parent | e33dd7bfd8a29a75f7a094ca254e34afb71caa2d (diff) | |
download | guile-7aa3b482fb5d3dadbda7cbbc39b6cc3642c7c29d.tar.gz |
In posix test, skip ttyname test if not supported
* test-suite/tests/posix.test ("ttyname"): skip if unsupported
-rw-r--r-- | test-suite/tests/posix.test | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test-suite/tests/posix.test b/test-suite/tests/posix.test index c959bb2f7..ef8d3f47a 100644 --- a/test-suite/tests/posix.test +++ b/test-suite/tests/posix.test @@ -166,6 +166,8 @@ (pass-if-exception "non-tty argument" exception:system-error ;; This used to crash in 1.8.1 and earlier. + (unless (defined? 'ttyname) + (throw 'unsupported)) (let ((file (false-if-exception (open-output-file "/dev/null")))) (if (not file) |