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
|
# GNU Shepherd --- Test the "starting" status.
# 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-$$"
confdir="t-confdir-$$"
datadir="t-datadir-$$"
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
cat > "$conf" <<EOF
(register-services
(list (service
'(test)
#:start (lambda _
(let loop ((n 30))
(if (or (file-exists? "$stamp") (zero? n))
(> n 0)
(begin
((@ (fibers) sleep) 1)
(loop (- n 1))))))
#:stop (lambda _
(delete-file "$stamp"))
#:respawn? #f)))
EOF
rm -f "$pid" "$stamp"
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`"
$herd start test &
herd_pid=$!
$herd status
until $herd status | grep ' ^ test' ; do sleep 0.3 ; done
$herd status test
$herd status test | grep starting
$herd start test &
herd_pid2=$!
sleep 1
kill -0 "$herd_pid"
kill -0 "$herd_pid2"
# Trigger actual service start.
touch "$stamp"
# Make sure the service is marked as "started" soon shortly after.
n=0
while : ; do
if $herd status test | grep running
then break
else n=$(expr $n + 1)
fi
test $n -le 10
sleep 1
done
# Make sure the 'herd' processes terminated.
n=0
while : ; do
if kill -0 "$herd_pid" || kill -0 "$herd_pid2"
then
n=$(expr $n + 1)
test $n -le 10
sleep 1
else
break
fi
done
$herd stop test
test -f "$stamp" && false
test $(grep "Starting service test" "$log" | wc -l) = 1
# Now, once 'test' is stopped, start it. While it is being started, attempt
# to stop it: this should do nothing until it has started. Cause it to start,
# and check that the 'herd start' and 'herd stop' processes have completed,
# and that it has stopped.
echo "Now trying to stop a service in 'starting' state."
$herd start test &
herd_start_pid=$!
while ! $herd status test | grep starting; do sleep 0.5; done
$herd stop test &
herd_stop_pid1=$!
$herd stop test &
herd_stop_pid2=$!
for i in $(seq 1 3)
do
$herd status test | grep "starting"
sleep 0.3
done
grep "Waiting for test to start" "$log"
touch "$stamp" # trigger starting->running transition
wait $herd_start_pid
wait $herd_stop_pid1
wait $herd_stop_pid2
$herd status test | grep stopped
$herd stop root
rm -rf "$confdir"
rm -rf "$datadir"
|
