~ruther/guix-local

4aac8d059a2bec9f075ceea2a089ca029a71912c — Ludovic Courtès 8 years ago 1e0ea1d 
syscalls: Adjust utmpx test.

Fixes <https://bugs.gnu.org/29426>.
Reported by Adonay Felipe Nogueira <adfeno@hyperbola.info>.

* tests/syscalls.scm ("utmpx-entries"): Check the value
of (utmpx-entries entry) only for INIT_PROCESS, LOGIN_PROCESS, and
USER_PROCESS entries.
patch browse .tar.gz .zip 
1 files changed, 6 insertions(+), 1 deletions(-)

M tests/syscalls.scm

M tests/syscalls.scm => tests/syscalls.scm +6 -1
@@ 525,7 525,12 @@
     (every (lambda (entry)
              (match (utmpx-user entry)
                ((? string?)
                 (or (eqv? (login-type BOOT_TIME) (utmpx-login-type entry))
                 ;; Ensure we have a valid PID for those entries where it
                 ;; makes sense.
                 (or (not (memv (utmpx-login-type entry)
                                (list (login-type INIT_PROCESS)
                                      (login-type LOGIN_PROCESS)
                                      (login-type USER_PROCESS))))
                     (> (utmpx-pid entry) 0)))
                (#f                               ;might be DEAD_PROCESS
                 #t)))