diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-01-24 00:35:16 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-01-24 00:46:37 +0100 |
| commit | 3483f004a98f103acff96effe1309cc620372e79 (patch) | |
| tree | d88f597f5112645fdc4c4e578c1ae5eeae33e1cb /tests/syscalls.scm | |
| parent | 9475fd9217af370839cbfdb06b0a0a9a063d3469 (diff) | |
syscalls: Export 'read-utmpx'.
* guix/build/syscalls.scm (read-utmpx-from-port): New procedure.
* tests/syscalls.scm ("read-utmpx, EOF")
("read-utmpx"): New tests.
Diffstat (limited to 'tests/syscalls.scm')
| -rw-r--r-- | tests/syscalls.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm index fb2c8e71004..92e02f33037 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm | |||
| @@ -452,6 +452,15 @@ | |||
| 452 | #t))) | 452 | #t))) |
| 453 | entries)))) | 453 | entries)))) |
| 454 | 454 | ||
| 455 | (test-assert "read-utmpx, EOF" | ||
| 456 | (eof-object? (read-utmpx (%make-void-port "r")))) | ||
| 457 | |||
| 458 | (unless (access? "/var/run/utmpx" O_RDONLY) | ||
| 459 | (tes-skip 1)) | ||
| 460 | (test-assert "read-utmpx" | ||
| 461 | (let ((result (call-with-input-file "/var/run/utmpx" read-utmpx))) | ||
| 462 | (or (utmpx? result) (eof-object? result)))) | ||
| 463 | |||
| 455 | (test-end) | 464 | (test-end) |
| 456 | 465 | ||
| 457 | (false-if-exception (delete-file temp-file)) | 466 | (false-if-exception (delete-file temp-file)) |