From a1a8b7f2e20513a3ad968e74e7ec52546404e3c6 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sat, 11 Feb 2017 22:26:36 +0100
Subject: tests: Relax test on utmpx entries.

Partly fixes <http://bugs.gnu.org/25476>.
Reported by Paul Garlick <pgarlick@tourbillion-technology.com>.

* tests/syscalls.scm ("utmpx-entries"): Check whether ENTRY is of type
'BOOT_TIME', in which case PID may be 0.
---
 tests/syscalls.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'tests')

diff --git a/tests/syscalls.scm b/tests/syscalls.scm
index 1934704375..8db45b41b6 100644
--- a/tests/syscalls.scm
+++ b/tests/syscalls.scm
@@ -447,7 +447,8 @@
      (every (lambda (entry)
               (match (utmpx-user entry)
                 ((? string?)
-                 (> (utmpx-pid entry) 0))
+                 (or (eqv? (login-type BOOT_TIME) (utmpx-login-type entry))
+                     (> (utmpx-pid entry) 0)))
                 (#f                               ;might be DEAD_PROCESS
                  #t)))
             entries))))
-- 
cgit v1.2.3