diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/syscalls.scm | 7 |
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)) |
