~ruther/guix-local

f18eded8ec4df75444e4feaeb92b3cc1236c2253 — Paul Garlick 9 years ago af7d72b
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>
1 files changed, 1 insertions(+), 1 deletions(-)

M tests/syscalls.scm
M tests/syscalls.scm => tests/syscalls.scm +1 -1
@@ 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))))