bug#31789: nss-mdns test is failing

[Clément Lassieur]

nss-mdns test is failing.  Here is the output:

--8<---------------cut here---------------start------------->8---
%%%% Starting test avahi
Group begin: avahi
Test begin:
  test-name: "wait for services"
  source-file: "/gnu/store/b5gvmlh78s40xvxq73dpdqr7sv0skhmy-nss-mdns-builder"
  source-line: 1
  source-form: (test-assert "wait for services" (marionette-eval (quote (begin 
(use-modules (gnu services herd)) (start-service (quote nscd)) (let ((sock 
(socket PF_UNIX SOCK_STREAM 0))) (let try () (catch (quote system-error) 
(lambda () (connect sock AF_UNIX "/var/run/nscd/socket") (close-port sock) 
(format #t "nscd is ready~%")) (lambda args (format #t "waiting for nscd...~%") 
(usleep 500000) (try))))) (start-service (quote avahi-daemon)) (start-service 
(quote networking)) #t)) marionette))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "avahi-resolve-host-name"
  source-file: "/gnu/store/b5gvmlh78s40xvxq73dpdqr7sv0skhmy-nss-mdns-builder"
  source-line: 1
  source-form: (test-equal "avahi-resolve-host-name" 0 (marionette-eval (quote 
(system* "/run/current-system/profile/bin/avahi-resolve-host-name" "-v" 
"komputilo.local")) marionette))
Test end:
  result-kind: pass
  actual-value: 0
  expected-value: 0
Test begin:
  test-name: "avahi-browse"
  source-file: "/gnu/store/b5gvmlh78s40xvxq73dpdqr7sv0skhmy-nss-mdns-builder"
  source-line: 1
  source-form: (test-equal "avahi-browse" 0 (marionette-eval (quote (system* 
"avahi-browse" "-avt")) marionette))
Test end:
  result-kind: pass
  actual-value: 0
  expected-value: 0
Test begin:
  test-name: "getaddrinfo .local"
  source-file: "/gnu/store/b5gvmlh78s40xvxq73dpdqr7sv0skhmy-nss-mdns-builder"
  source-line: 1
  source-form: (test-assert "getaddrinfo .local" (match (marionette-eval (quote 
(getaddrinfo "komputilo.local")) marionette) (((? vector? addrinfos) ..1) (pk 
(quote getaddrinfo) addrinfos) (and (any (lambda (ai) (= AF_INET (addrinfo:fam 
ai))) addrinfos) (any (lambda (ai) (= AF_INET6 (addrinfo:fam ai))) 
addrinfos)))))
Test end:
  result-kind: fail
  actual-value: #f
  actual-error: (match-error "match" "no matching pattern" #f)
Test begin:
  test-name: "gethostbyname .local"
  source-file: "/gnu/store/b5gvmlh78s40xvxq73dpdqr7sv0skhmy-nss-mdns-builder"
  source-line: 1
  source-form: (test-assert "gethostbyname .local" (match (pk (quote 
gethostbyname) (marionette-eval (quote (gethostbyname "komputilo.local")) 
marionette)) ((? vector? result) (and (string=? (hostent:name result) 
"komputilo.local") (= (hostent:addrtype result) AF_INET)))))
Test end:
  result-kind: fail
  actual-value: #f
  actual-error: (match-error "match" "no matching pattern" #f)
Group end: avahi
# of expected passes      3
# of unexpected failures  2
--8<---------------cut here---------------end--------------->8---