diff options
Diffstat (limited to 'tests/syscalls.scm')
| -rw-r--r-- | tests/syscalls.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm index 92e02f33037..1934704375b 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm | |||
| @@ -456,7 +456,7 @@ | |||
| 456 | (eof-object? (read-utmpx (%make-void-port "r")))) | 456 | (eof-object? (read-utmpx (%make-void-port "r")))) |
| 457 | 457 | ||
| 458 | (unless (access? "/var/run/utmpx" O_RDONLY) | 458 | (unless (access? "/var/run/utmpx" O_RDONLY) |
| 459 | (tes-skip 1)) | 459 | (test-skip 1)) |
| 460 | (test-assert "read-utmpx" | 460 | (test-assert "read-utmpx" |
| 461 | (let ((result (call-with-input-file "/var/run/utmpx" read-utmpx))) | 461 | (let ((result (call-with-input-file "/var/run/utmpx" read-utmpx))) |
| 462 | (or (utmpx? result) (eof-object? result)))) | 462 | (or (utmpx? result) (eof-object? result)))) |
