tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

tests: mpd: Remove race condition; use default MPD configuration.

Browse Source 
* gnu/tests/audio.scm (%mpd-os): Use the default 'mpd-configuration'.
(run-mpd-test)[test]("mpd listening"): New test.
("mpc connect"): Use 'system*' and 'test-equal'.
This commit is contained in:
Ludovic Courtès
2020-11-06 23:12:12 +01:00
parent bb124f6e9c
commit 9909eddbc5
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
gnu/tests/audio.scm
View File

@@ -28,9 +28,7 @@
(define %mpd-os
(simple-operating-system
(service mpd-service-type
(mpd-configuration
(user "root")))))
(service mpd-service-type)))
(define (run-mpd-test)
"Run tests in %mpd-os, which has mpd running."
@@ -62,9 +60,14 @@
(start-service 'mpd))
marionette))
(test-assert "mpc connect"
(test-assert "mpd listening"
;; Wait until mpd is actually listening before spawning 'mpc'.
(wait-for-tcp-port 6600 marionette))
(test-equal "mpc connect"
0
(marionette-eval
'(zero? (system #$(file-append mpd-mpc "/bin/mpc")))
'(system* #$(file-append mpd-mpc "/bin/mpc"))
marionette))
(test-end)