aboutsummaryrefslogtreecommitdiff
path: root/tests/syscalls.scm
diff options
context:
space:
mode:
authorPaul Garlick <pgarlick@tourbillion-technology.com>2017-01-30 14:48:37 +0000
committerLudovic Courtès <ludo@gnu.org>2017-01-31 00:10:44 +0100
commitf18eded8ec4df75444e4feaeb92b3cc1236c2253 (patch)
tree6940a15be138c269340ed395704d634de3dc2f42 /tests/syscalls.scm
parentaf7d72b16c7652e9ddc3c441017de5c9bb9205f2 (diff)
downloadgnu-guix-f18eded8ec4df75444e4feaeb92b3cc1236c2253.tar
gnu-guix-f18eded8ec4df75444e4feaeb92b3cc1236c2253.tar.gz
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>
Diffstat (limited to 'tests/syscalls.scm')
-rw-r--r--tests/syscalls.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm
index 92e02f3303..1934704375 100644
--- a/tests/syscalls.scm
+++ b/tests/syscalls.scm
@@ -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))))