mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

In posix test, skip ttyname test if not supported

Browse source 
* test-suite/tests/posix.test ("ttyname"): skip if unsupported
This commit is contained in:
Michael Gran 2023-06-20 11:27:10 -07:00
parent e33dd7bfd8
commit 7aa3b482fb
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test-suite/tests/posix.test
View file

@ -166,6 +166,8 @@
(pass-if-exception "non-tty argument" exception:system-error (pass-if-exception "non-tty argument" exception:system-error
;; This used to crash in 1.8.1 and earlier. ;; This used to crash in 1.8.1 and earlier.
(unless (defined? 'ttyname)
(throw 'unsupported))
(let ((file (false-if-exception (let ((file (false-if-exception
(open-output-file "/dev/null")))) (open-output-file "/dev/null"))))
(if (not file) (if (not file)