1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
|
# GNU Shepherd --- Test whether 'system*' is blocking.
# Copyright © 2022-2023, 2025 Ludovic Courtès <ludo@gnu.org>
#
# This file is part of the GNU Shepherd.
#
# The GNU Shepherd is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or (at
# your option) any later version.
#
# The GNU Shepherd is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with the GNU Shepherd. If not, see <https://www.gnu.org/licenses/>.
shepherd --version
herd --version
socket="t-socket-$$"
conf="t-conf-$$"
log="t-log-$$"
stamp="t-stamp-$$"
pid="t-pid-$$"
herd="herd -s $socket"
trap "cat $log || true; rm -f $socket $conf $stamp $log;
test -f $pid && kill \`cat $pid\` || true; rm -f $pid" EXIT
script="while [ ! -f $PWD/$stamp ] ; do sleep 0.1 ; done ; exit \$(cat $PWD/$stamp)"
cat > "$conf" <<EOF
(use-modules ((shepherd support) #:select (with-directory-excursion)))
(register-services
(list (service
'(test)
#:start (lambda _
(list 'exit-code
(status:exit-val
(system* "$SHELL" "-c" "$script"))))
#:stop (lambda _
(system* "$SHELL" "-c" "echo STOPPING")
(delete-file "$stamp"))
#:respawn? #f)
(service
'(test-system-constructor)
#:start (make-system-constructor "date; echo SYSTEM-START")
#:stop (make-system-destructor "date; echo SYSTEM-STOP"))
(service
'(test-command-not-found)
#:start (lambda _
(zero? (system* "this command does not exist")))
#:stop (const #f)
#:respawn? #f)
(service
'(test-current-directory)
#:start (lambda _
(with-directory-excursion "${TMPDIR:-/tmp}"
(zero? (system "echo CWD: \$PWD"))))
#:respawn? #f)
(service
'(test-with-respawn)
#:start (make-forkexec-constructor
(list "$SHELL" "-cex"
"[ ! -f $PWD/$stamp ] ; touch $PWD/$stamp ; sleep 60"))
#:stop (lambda (process)
(and (zero? (system* "kill"
(number->string (process-id process))))
(begin
(delete-file "$stamp")
#f)))
#:respawn? #t)))
;; Start this one upfront. This ensures signal handling and the process
;; monitor are working as expected early on.
(start-service (lookup-service 'test-system-constructor))
EOF
rm -f "$pid"
shepherd -I -s "$socket" -c "$conf" -l "$log" --pid="$pid" &
# Wait till it's ready.
while ! test -f "$pid" ; do sleep 0.3 ; done
shepherd_pid="`cat $pid`"
kill -0 $shepherd_pid
# Did the 'test-system-destructor' start?
until $herd status test-system-constructor | grep running; do sleep 0.3; done
grep SYSTEM-START "$log"
$herd stop test-system-constructor
$herd status test-system-constructor | grep stopped
grep SYSTEM-STOP "$log"
# 'herd start' will block until the script exits...
$herd start test &
# ... so at this point the service is starting or about to start.
$herd status test | grep -E "(starting|stopped)"
# Touch $stamp. The shell script passed to 'system*' should complete shortly
# after that.
echo 123 > "$stamp"
n=0
while [ $n -lt 20 ]
do
if $herd status test | grep running
then
break
else
n=$(expr $n + 1)
sleep 1
fi
done
$herd status test | grep running
$herd status test | grep "exit-code 123"
$herd stop test
test -f "$stamp" && false
grep "STOPPING" "$log"
# This service uses 'system*' but the command is not found.
$herd start test-command-not-found && false
$herd status test-command-not-found
$herd status test-command-not-found | grep "stopped"
# Check that 'system*' and 'system' run commands from the current working
# directory rather than from (default-service-directory).
$herd start test-current-directory
$herd status test-current-directory | grep running
grep "CWD: ${TMPDIR:-/tmp}" "$log"
$herd stop test-current-directory
# What about a service with a custom 'stop' procedure that uses 'system*'?
# Stopping the service should not trigger the respawn machinery.
$herd start test-with-respawn
$herd status test-with-respawn | grep running
$herd stop test-with-respawn
$herd status test-with-respawn | grep "stopped"
for i in `seq 1 5`
do
$herd restart test-with-respawn
$herd status test-with-respawn | grep running
done
$herd stop test-with-respawn
if "$GUILE" -c "(setrlimit 'nproc 1 1) (primitive-fork) #t"
then
# On GNU/Hurd, 'fork' does not honor RLIMIT_NPROC.
echo "RLIMIT_NPROC is not honored; skipping" >&2
else
# What happens when we cause the process monitor to throw an exception while
# trying to fork? The process monitor fiber should remain alive.
$herd eval root "(setrlimit 'nproc 1 1)"
$herd start test && false
$herd status test
$herd status test | grep "stopped"
fi
$herd stop root
# Make sure 'shutdown-services' did its job.
if test -f "$stamp"; then false; else true; fi
|
