tests: Really skip /var/run/utmpx test when needed.
* tests/syscalls.scm: Change 'test-ski' to 'test-skip'. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
af7d72b16c
commit
f18eded8ec
|
@ -456,7 +456,7 @@
|
|||
(eof-object? (read-utmpx (%make-void-port "r"))))
|
||||
|
||||
(unless (access? "/var/run/utmpx" O_RDONLY)
|
||||
(tes-skip 1))
|
||||
(test-skip 1))
|
||||
(test-assert "read-utmpx"
|
||||
(let ((result (call-with-input-file "/var/run/utmpx" read-utmpx)))
|
||||
(or (utmpx? result) (eof-object? result))))
|
||||
|
|
Loading…
Reference in New Issue