me/guix
Archived
1
0
Fork 0
Code Activity

tests: Really skip /var/run/utmpx test when needed.

Browse source 
* tests/syscalls.scm: Change 'test-ski' to 'test-skip'.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Paul Garlick 2017-01-30 14:48:37 +00:00 • committed by Ludovic Courtès
parent af7d72b16c
commit f18eded8ec
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tests/syscalls.scm
View file

@ -456,7 +456,7 @@
(eof-object? (read-utmpx (%make-void-port "r")))) (eof-object? (read-utmpx (%make-void-port "r"))))
(unless (access? "/var/run/utmpx" O_RDONLY) (unless (access? "/var/run/utmpx" O_RDONLY)
(tes-skip 1)) (test-skip 1))
(test-assert "read-utmpx" (test-assert "read-utmpx"
(let ((result (call-with-input-file "/var/run/utmpx" read-utmpx))) (let ((result (call-with-input-file "/var/run/utmpx" read-utmpx)))
(or (utmpx? result) (eof-object? result)))) (or (utmpx? result) (eof-object? result))))