bug#52571: System tests evaluation is broken

[Mathieu Othacehe]

Hello,

System tests evaluation is broken: https://ci.guix.gnu.org/eval/2279.

It is possible to have more details my editing the
build-aux/cuirass/evaluate file and replacing all by system-tests. Then,
running the following command:

--8<---------------cut here---------------start------------->8---
make cuirass-jobs
[...]
uncaught throw to %exception: (#<&inferior-exception arguments: (%exception 
#<inferior-object #<&message message: "service 'xorg-server' provided more than 
once">>) inferior: #<inferior pipe (0 1 1) 7f9533fdf7c0> stack: ((#f 
("ice-9/boot-9.scm" 1779 13)) (raise-exception ("ice-9/boot-9.scm" 1682 16)) 
(raise-exception ("ice-9/boot-9.scm" 1684 16)) (for-each ("srfi/srfi-1.scm" 633 
9)) (#f ("gnu/services/shepherd.scm" 237 12)) (fold ("srfi/srfi-1.scm" 459 18)) 
(assert-valid-graph ("gnu/services/shepherd.scm" 228 4)) 
(shepherd-configuration-file ("gnu/services/shepherd.scm" 330 2)) 
(shepherd-boot-gexp ("gnu/services/shepherd.scm" 120 15)) (map1 
("srfi/srfi-1.scm" 585 17)) (#f ("gnu/services.scm" 1140 36)) (#f 
("guix/monads.scm" 470 9)) (#f ("gnu/services.scm" 1137 16)) (#f 
("gnu/system.scm" 1221 19)) (#f ("guix/store.scm" 1994 38)) (#f 
("guix/gexp.scm" 295 22)) (#f ("guix/store.scm" 1959 8)) (#f ("guix/gexp.scm" 
896 13)) (run-with-store ("guix/store.scm" 2122 24)) (call-with-build-handler 
("guix/store.scm" 1319 8)) (map/accumulate-builds ("guix/store.scm" 1384 9)) 
(#f ("guix/store.scm" 2007 12)) (#f ("guix/gexp.scm" 891 4)) (#f 
("guix/gexp.scm" 1045 2)) (#f ("guix/gexp.scm" 1179 2)) (#f ("gnu/services.scm" 
897 2)) (run-with-store ("guix/store.scm" 2122 24)) (call-with-build-handler 
("guix/store.scm" 1319 8)) (map/accumulate-builds ("guix/store.scm" 1384 9)) 
(#f ("guix/store.scm" 2007 12)) (#f ("gnu/services.scm" 359 2)) (run-with-store 
("guix/store.scm" 2122 24)) (#f ("guix/store.scm" 1994 38)) (#f 
("guix/gexp.scm" 295 22)) (#f ("guix/store.scm" 1959 8)) (#f ("guix/gexp.scm" 
896 13)) (run-with-store ("guix/store.scm" 2122 24)) (call-with-build-handler 
("guix/store.scm" 1319 8)) (map/accumulate-builds ("guix/store.scm" 1384 9)) 
(#f ("guix/store.scm" 2007 12)) (#f ("guix/gexp.scm" 891 4)) (#f 
("guix/gexp.scm" 1045 2)) (#f ("guix/gexp.scm" 1179 2)) (#f ("guix/gexp.scm" 
295 22)) (#f ("guix/store.scm" 1959 8)) (#f ("guix/gexp.scm" 896 13)) 
(run-with-store ("guix/store.scm" 2122 24)) (call-with-build-handler 
("guix/store.scm" 1319 8)) (map/accumulate-builds ("guix/store.scm" 1384 9)) 
(#f ("guix/store.scm" 2007 12)) (#f ("guix/gexp.scm" 891 4)) (#f 
("guix/gexp.scm" 1045 2)) (#f ("guix/gexp.scm" 1179 2)) (#f ("guix/gexp.scm" 
295 22)) (#f ("guix/store.scm" 1959 8)) (#f ("guix/gexp.scm" 896 13)) 
(run-with-store ("guix/store.scm" 2122 24)) (call-with-build-handler 
("guix/store.scm" 1319 8)) (map/accumulate-builds ("guix/store.scm" 1384 9)) 
(#f ("guix/store.scm" 2007 12)) (#f ("guix/gexp.scm" 891 4)) (#f 
("guix/gexp.scm" 1045 2)) (#f ("guix/gexp.scm" 1179 2)) (#f ("guix/gexp.scm" 
295 22)) (#f ("guix/store.scm" 1959 8)) (#f ("guix/gexp.scm" 896 13)) 
(run-with-store ("guix/store.scm" 2122 24)) (call-with-build-handler 
("guix/store.scm" 1319 8)) (map/accumulate-builds ("guix/store.scm" 1384 9)) 
(#f ("guix/store.scm" 2007 12)) (#f ("guix/gexp.scm" 891 4)) (#f 
("guix/gexp.scm" 1045 2)) (#f ("guix/gexp.scm" 1179 2)) (#f ("guix/gexp.scm" 
295 22)) (#f ("guix/store.scm" 1959 8)) (#f ("guix/gexp.scm" 295 22)) (#f 
("guix/store.scm" 1959 8)) (#f ("guix/gexp.scm" 896 13)) (run-with-store 
("guix/store.scm" 2122 24)) (call-with-build-handler ("guix/store.scm" 1319 8)) 
(map/accumulate-builds ("guix/store.scm" 1384 9)) (#f ("guix/store.scm" 2007 
12)) (#f ("guix/gexp.scm" 891 4)) (#f ("guix/gexp.scm" 1045 2)) (#f 
("guix/gexp.scm" 1179 2)) (#f ("gnu/tests/install.scm" 529 4)) (run-with-store 
("guix/store.scm" 2122 24)) (->job ("gnu/ci.scm" 343 15)) (map1 
("srfi/srfi-1.scm" 585 17)) (map1 ("srfi/srfi-1.scm" 585 29)) (map1 
("srfi/srfi-1.scm" 585 29)) (map1 ("srfi/srfi-1.scm" 585 29)) (map1 
("srfi/srfi-1.scm" 585 29)) (map1 ("srfi/srfi-1.scm" 585 29)) (map1 
("srfi/srfi-1.scm" 585 29)) (map1 ("srfi/srfi-1.scm" 585 29)) (map1 
("srfi/srfi-1.scm" 585 29)) (map1 ("srfi/srfi-1.scm" 585 29)) (map1 
("srfi/srfi-1.scm" 585 29)) (map1 ("srfi/srfi-1.scm" 585 29)) (map1 
("srfi/srfi-1.scm" 585 29)) (map1 ("srfi/srfi-1.scm" 585 29)) (map1 
("srfi/srfi-1.scm" 585 29)) (map1 ("srfi/srfi-1.scm" 585 29)) (map1 
("srfi/srfi-1.scm" 585 29)) (map1 ("srfi/srfi-1.scm" 585 29)) (map1 
("srfi/srfi-1.scm" 585 29)) (map1 ("srfi/srfi-1.scm" 585 29)) (map1 
("srfi/srfi-1.scm" 585 29)) (system-test-jobs ("gnu/ci.scm" 359 8)) (map1 
("srfi/srfi-1.scm" 585 17)) (append-map ("srfi/srfi-1.scm" 672 15)) 
(cuirass-jobs ("gnu/ci.scm" 516 4)) (#f ("ice-9/eval.scm" 158 9)) 
(with-exception-handler ("ice-9/boot-9.scm" 1751 10)) (call-with-prompt 
("ice-9/boot-9.scm" 723 2)) (dynamic-wind ("ice-9/boot-9.scm" 141 2)) (#f (#f 
#f #f)) (#f ("guix/repl.scm" 98 21)) (with-exception-handler 
("ice-9/boot-9.scm" 1751 10)) (with-exception-handler ("ice-9/boot-9.scm" 1746 
15)) (#f ("guix/repl.scm" 125 7)))>)
--8<---------------cut here---------------end--------------->8---

Looks like "xorg-server" is provisioned by multiple services.

Thanks,

Mathieu