diff options
| author | Mark H Weaver <mhw@netris.org> | 2018-01-23 17:01:07 -0500 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2018-01-23 17:01:07 -0500 |
| commit | a102d359a68ce7219a1880e47dd6f9332cbbce3a (patch) | |
| tree | d879e718f08d776ad84c456c91a349e59941d1f2 /gnu/tests/version-control.scm | |
| parent | 07b8ea841e1e2eda5b367f35cf68d23d0520cc4d (diff) | |
| parent | f3a13a21e50fa3751fc39e5768ea6843bfc19df2 (diff) | |
| download | guix-patches-a102d359a68ce7219a1880e47dd6f9332cbbce3a.tar guix-patches-a102d359a68ce7219a1880e47dd6f9332cbbce3a.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'gnu/tests/version-control.scm')
| -rw-r--r-- | gnu/tests/version-control.scm | 25 |
1 files changed, 20 insertions, 5 deletions
diff --git a/gnu/tests/version-control.scm b/gnu/tests/version-control.scm index 7367861b05..9882cdbe28 100644 --- a/gnu/tests/version-control.scm +++ b/gnu/tests/version-control.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2017 Oleg Pykhalov <go.wigust@gmail.com> -;;; Copyright © 2017 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2017, 2018 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org> ;;; ;;; This file is part of GNU Guix. @@ -88,8 +88,6 @@ (let ((base-os (simple-operating-system (dhcp-client-service) - (service nginx-service-type) - (service fcgiwrap-service-type) (service cgit-service-type (cgit-configuration (nginx %cgit-configuration-nginx))) @@ -130,8 +128,25 @@ HTTP-PORT." (test-begin "cgit") + ;; XXX: Shepherd reads the config file *before* binding its control + ;; socket, so /var/run/shepherd/socket might not exist yet when the + ;; 'marionette' service is started. + (test-assert "shepherd socket ready" + (marionette-eval + `(begin + (use-modules (gnu services herd)) + (let loop ((i 10)) + (cond ((file-exists? (%shepherd-socket-file)) + #t) + ((> i 0) + (sleep 1) + (loop (- i 1))) + (else + 'failure)))) + marionette)) + ;; Wait for nginx to be up and running. - (test-eq "service running" + (test-eq "nginx running" 'running! (marionette-eval '(begin @@ -141,7 +156,7 @@ HTTP-PORT." marionette)) ;; Wait for fcgiwrap to be up and running. - (test-eq "service running" + (test-eq "fcgiwrap running" 'running! (marionette-eval '(begin |