summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2023-06-20 11:27:10 -0700
committerMichael Gran <spk121@yahoo.com>2025-03-30 18:40:37 -0700
commit7aa3b482fb5d3dadbda7cbbc39b6cc3642c7c29d (patch)
tree4aded6ed2d5d4639d6b0a6100a97b798f1a485c5
parente33dd7bfd8a29a75f7a094ca254e34afb71caa2d (diff)
downloadguile-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.test2
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)