bug#47745: ldap test is failing

[Mathieu Othacehe]

Hello,

The "ldap" system test is failing this way:

--8<---------------cut here---------------start------------->8---
mathieu@meije ~/guix [env]$ cat 
/gnu/store/5qq5ql92k9n57hx5l6ysk1rwnb0diwsv-ldap-test/ldap.log 
%%%% Starting test ldap
Group begin: ldap
Test begin:
  test-name: "LDAP server instance running"
  source-file: "/gnu/store/jscgawp3wfrykgs67dpy106ys16r8d5h-ldap-test-builder"
  source-line: 1
  source-form: (test-assert "LDAP server instance running" (marionette-eval 
(quote (begin (with-output-to-file "instance.inf" (lambda () (display 
"[general]\nconfig_version = 2\n\n\n[slapd]\nroot_password = SEC)
Test end:
  result-kind: fail
  actual-value: #f
Test begin:
  test-name: "Manager can bind to LDAP server instance"
  source-file: "/gnu/store/jscgawp3wfrykgs67dpy106ys16r8d5h-ldap-test-builder"
  source-line: 1
  source-form: (test-assert "Manager can bind to LDAP server instance" 
(marionette-eval (quote (zero? (system* 
"/gnu/store/zgbzw97lyw6nbq5id5qaznjz7vh3vf06-openldap-2.4.57/bin/ldapwhoami" 
"-H" "ldap://localhost)
Test end:
  result-kind: fail
  actual-value: #f
Test begin:
  test-name: "nslcd service running"
  source-file: "/gnu/store/jscgawp3wfrykgs67dpy106ys16r8d5h-ldap-test-builder"
  source-line: 1
  source-form: (test-assert "nslcd service running" (marionette-eval (quote 
(begin (use-modules (gnu services herd)) (match (start-service (quote nslcd)) 
(#f #f) (((quote service) response-parts ...) (match (as)
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "nslcd produces a log file"
  source-file: "/gnu/store/jscgawp3wfrykgs67dpy106ys16r8d5h-ldap-test-builder"
  source-line: 1
  source-form: (test-assert "nslcd produces a log file" (marionette-eval (quote 
(file-exists? "/var/log/nslcd")) marionette))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "Can query LDAP user accounts"
  source-file: "/gnu/store/jscgawp3wfrykgs67dpy106ys16r8d5h-ldap-test-builder"
  source-line: 1
  source-form: (test-assert "Can query LDAP user accounts" (marionette-eval 
(quote (begin (setenv "LD_LIBRARY_PATH" 
"/gnu/store/k77355jbp6xllysx34rrgkhwrmbdh7zw-nss-pam-ldapd-0.9.11/lib") (zero? 
(system* "/gnu/)
Test end:
  result-kind: fail
  actual-value: #f
Test begin:
  test-name: "Can become LDAP user"
  source-file: "/gnu/store/jscgawp3wfrykgs67dpy106ys16r8d5h-ldap-test-builder"
  source-line: 1
  source-form: (test-assert "Can become LDAP user" (marionette-eval (quote 
(zero? (system* "/run/setuid-programs/su" "eva" "-c" 
"/gnu/store/n8awazyldv9hbzb7pjcw76hiifmvrpvd-coreutils-8.32/bin/true"))) 
marionett)
Test end:
  result-kind: fail
  actual-value: #f
Group end: ldap
# of expected passes      2
# of unexpected failures  4
--8<---------------cut here---------------end--------------->8---

Ricardo, any clues :) ?

Thanks,

Mathieu