summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/syscalls.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm
index 895f90f4d8e..71bcbc4d324 100644
--- a/tests/syscalls.scm
+++ b/tests/syscalls.scm
@@ -259,15 +259,16 @@
259 (#f #f) 259 (#f #f)
260 (lo (interface-address lo))))))) 260 (lo (interface-address lo)))))))
261 261
262(test-equal "terminal-window-size ENOTTY" 262(test-assert "terminal-window-size ENOTTY"
263 ENOTTY
264 (call-with-input-file "/dev/null" 263 (call-with-input-file "/dev/null"
265 (lambda (port) 264 (lambda (port)
266 (catch 'system-error 265 (catch 'system-error
267 (lambda () 266 (lambda ()
268 (terminal-window-size port)) 267 (terminal-window-size port))
269 (lambda args 268 (lambda args
270 (system-error-errno args)))))) 269 ;; Accept EINVAL, which some old Linux versions might return.
270 (memv (system-error-errno args)
271 (list ENOTTY EINVAL)))))))
271 272
272(test-assert "terminal-columns" 273(test-assert "terminal-columns"
273 (> (terminal-columns) 0)) 274 (> (terminal-columns) 0))