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
|
# GNU Shepherd --- Test monitoring service.
# Copyright © 2023-2024 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-$$"
pid="t-pid-$$"
witness="t-repl-witness-$$"
repl_socket="$PWD/repl-socket-$$"
herd="herd -s $socket"
trap "cat $log || true;
rm -f $socket $repl_socket $conf $log $witness;
test -f $pid && kill \`cat $pid\` || true; rm -f $pid" EXIT
cat > "$conf" <<EOF
(use-modules (shepherd service repl))
(register-services (list (repl-service "$repl_socket")))
EOF
rm -f "$pid" "$log" "$repl_socket"
shepherd -I -s "$socket" -c "$conf" -l "$log" --pid="$pid" &
# Wait till it's ready.
while ! test -f "$pid" ; do sleep 0.3 ; done
$herd start repl
$herd status repl | grep running
$herd status
test $($herd status | grep '^ ' | wc -l) -eq 2
"$GUILE" -c '(let ((sock (socket AF_UNIX SOCK_STREAM 0)))
(connect sock PF_UNIX "'$repl_socket'")
(sleep 10))' &
child_pid=$!
$herd status
$herd status repl-client-1
$herd status repl-client-1 | grep running
$herd status repl-client-1 | grep "transient"
test $($herd status | grep '^ ' | wc -l) = 3
# Make sure 'repl-client-1' gets stopped as soon as the client disappears.
kill $child_pid
while test $($herd status | grep '^ ' | wc -l) -ne 2; do $herd status && sleep 1 ;done
$herd status repl-client-1 && false
"$GUILE" -c '
(use-modules (ice-9 rdelim))
(setvbuf (current-output-port) (string->symbol "none"))
(alarm 10)
(let ((sock (socket AF_UNIX SOCK_STREAM 0)))
(connect sock PF_UNIX "'$repl_socket'")
(format #t "connected!~%> ")
(let loop ()
(define chr (read-char sock))
(unless (eof-object? chr)
(display chr)
(when (eq? chr #\newline)
(display "> ")))
(cond ((eof-object? chr)
(format #t "done!~%"))
((eq? chr #\>)
(display "(+ 2 3)\n,q\n" sock)
(loop))
(else
(loop)))))
'
while test $($herd status | grep '^ ' | wc -l) -ne 2; do $herd status && sleep 1; done
# Register and start a service from the REPL.
"$GUILE" -c '
(alarm 10)
(let ((sock (socket AF_UNIX SOCK_STREAM 0)))
(connect sock PF_UNIX "'$repl_socket'")
(format #t "connected!~%> ")
(display
(object->string
(quote (begin
(use-modules (shepherd service) (shepherd service monitoring))
(register-services (list (monitoring-service #:period 2)))
(start-service (lookup-service (quote monitoring))))))
sock)
(display ",q\n" sock)
(let loop ()
(define chr (read-char sock))
(unless (eof-object? chr)
(display chr)
(when (eq? chr #\newline)
(display "> "))
(loop))))
'
$herd status monitoring
$herd status monitoring | grep running
grep "heap:" "$log"
$herd log monitoring | grep "heap:"
# What if we evaluate code that raises an exception? Does the REPL remain
# functional? It used to enter an infinite loop while spawning the debugger,
# due to non-suspendable continuations:
# <https://lists.gnu.org/archive/html/guix-devel/2024-01/msg00064.html>.
rm -f "$witness"
"$GUILE" -c '
(alarm 10)
(let ((sock (socket AF_UNIX SOCK_STREAM 0)))
(connect sock PF_UNIX "'$repl_socket'")
(format #t "connected!~%> ")
(display "this-is-unbound-and-thus-throws" sock)
(newline sock)
(display (object->string (quote (open-output-file "'$witness'"))) sock)
(newline sock)
(display ",q\n" sock)
(let loop ()
(define chr (read-char sock))
(unless (eof-object? chr)
(display chr)
(when (eq? chr #\newline)
(display "> "))
(loop))))'
test -f "$witness"
$herd stop repl
$herd status repl | grep "stopped"
# Now we can't connect anymore.
if "$GUILE" -c '(let ((sock (socket AF_UNIX SOCK_STREAM 0)))
(connect sock PF_UNIX "'$repl_socket'"))'
then false; else true; fi
|
