bug-37-3.exp 30.1 KB
Newer Older
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
# Test suite for lyskomd.
# Copyright (C) 2002  Lysator Academic Computer Association.
#
# This file is part of the LysKOM server.
# 
# LysKOM 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 1, or (at your option) 
# any later version.
# 
# LysKOM 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 LysKOM; see the file COPYING.  If not, write to
# Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN,
# or the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, 
# MA 02139, USA.
#
# Please mail bug reports to bug-lyskom@lysator.liu.se. 

# Test bug 37: get_unread_confs does not check that the caller is
# allowed to see the person, and returns the correct result even for
# secret persons, including secret confs!
#
# Variant three: the observer is supervisor of all conferences.
#
30
31
# We also check get-membership, get-membership-10, get-membership-old,
# query-read-texts, query-read-texts-10, and query-read-texts-old.
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
#
# While we are at it, we also test the unread-is-secret personal flag.

#
# Startup and create the players
#

# Start the server.
lyskomd_start

# Create and log in as foo (person 6).
client_start 0
send "A3Hfoo\n"
simple_expect "LysKOM"
send "1000 80 0 { }\n"
simple_expect "=1000"
send "1001 89 [holl "foo"] [holl "p6"] 00000000 0 { }\n"
simple_expect "=1001 6"
send "1002 62 6 [holl "p6"] 0\n"
simple_expect "=1002"

# Create and log in as bar (person 7; secret).
client_start 1
send "A3Hbar\n"
simple_expect "LysKOM"
send "1003 80 0 { }\n"
simple_expect "=1003"
send "1004 89 [holl "bar"] [holl "p7"] 00000000 0 { }\n"
simple_expect "=1004 7"
send "1005 62 7 [holl "p7"] 0\n"
simple_expect "=1005"
send "1006 21 7 10111000\n"
simple_expect "=1006"

# Create and log in as citrus (person 8; has unread-is-secret set).
client_start 2
send "A6Hcitrus\n"
simple_expect "LysKOM"
send "1007 80 0 { }\n"
simple_expect "=1007"
send "1008 89 [holl "citrus"] [holl "p8"] 10000000 0 { }\n"
simple_expect "=1008 8"
send "1009 62 8 [holl "p8"] 0\n"
simple_expect "=1009"

# Create and log in as gazonk (person 9).  This is the observer.
client_start 3
send "A6Hgazonk\n"
simple_expect "LysKOM"
send "1010 80 0 { }\n"
simple_expect "=1010"
send "1011 89 [holl "gazonk"] [holl "p9"] 00000000 0 { }\n"
simple_expect "=1011 9"
send "1012 62 9 [holl "p9"] 0\n"
simple_expect "=1012"

#
# Create conferences.
#

# As gazonk, create secret (conf 10; secret).
talk_to client 3
send "1013 88 [holl "secret"] 10101000 0 { }\n"
simple_expect "=1013 10"

# As gazonk, create rd-prot (conf 11; rd-prot).
send "1014 88 [holl "rd-prot"] 10001000 0 { }\n"
simple_expect "=1014 11"

# As gazonk, create public (conf 12).
send "1015 88 [holl "public"] 00001000 0 { }\n"
simple_expect "=1015 12"

#
# Join conferences
#

# gazonk invites bar to secret, rd-prot and public.
send "1016 100 10 7 200 1 00000000\n"
111
lyskomd_expect "Person 7 added to conference 10 by 9."
112
113
simple_expect "=1016"
send "1017 100 11 7 200 2 00000000\n"
114
lyskomd_expect "Person 7 added to conference 11 by 9."
115
116
simple_expect "=1017"
send "1018 100 12 7 200 3 00000000\n"
117
lyskomd_expect "Person 7 added to conference 12 by 9."
118
119
simple_expect "=1018"
# bar is secret, so gazonk should not be able to do the above.
120
121
# When bug 604 is fixed, this test should be rewritten so that
# bar is temporarily made public while being invited.
122
123
124
125
126
setup_xfail "*-*-*" "Bug 604"
fail "bar could add a secret person to a conference"

# gazonk invites foo to secret, rd-prot and public.
send "1019 100 10 6 200 1 00000000\n"
127
lyskomd_expect "Person 6 added to conference 10 by 9."
128
129
simple_expect "=1019"
send "1020 100 11 6 200 2 00000000\n"
130
lyskomd_expect "Person 6 added to conference 11 by 9."
131
132
simple_expect "=1020"
send "1021 100 12 6 200 3 00000000\n"
133
lyskomd_expect "Person 6 added to conference 12 by 9."
134
135
136
137
simple_expect "=1021"

# gazonk invites citrus to secret, rd-prot and public.
send "1022 100 10 8 200 1 00000000\n"
138
lyskomd_expect "Person 8 added to conference 10 by 9."
139
140
simple_expect "=1022"
send "1023 100 11 8 200 2 00000000\n"
141
lyskomd_expect "Person 8 added to conference 11 by 9."
142
143
simple_expect "=1023"
send "1024 100 12 8 200 3 00000000\n"
144
lyskomd_expect "Person 8 added to conference 12 by 9."
145
146
147
148
149
150
151
152
153
154
155
156
simple_expect "=1024"

#
# foo examines foo.
#

talk_to client 0

# foo does get-unread-confs of foo.  Should return the empty list.
send "1025 52 6\n"
simple_expect "=1025 0 \\*"

157
# foo does get-membership-10 of foo.  Should return 4 { 6 10 11 12 }.
158
159
160
161
162
163
164
send "1026 99 6 0 100 1\n"
simple_expect "=1026 4 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000 }"

# foo does get-membership-old of foo.  Should return 4 { 6 10 11 12 }.
send "1027 46 6 0 100 1\n"
simple_expect "=1027 4 { $any_time 6 255 0 0 \\* $any_time 10 200 0 0 \\* $any_time 11 200 0 0 \\* $any_time 12 200 0 0 \\* }"

165
# foo does get-membership of foo.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
166
167
send "1028 108 6 0 100 1 0\n"
simple_expect "=1028 4 { 0 $any_time 6 255 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 \\* 9 $any_time 10000000 }"
168
169

# foo does query-read-texts-10 on foo and 10, 11 and 12.  Should get results.
Per Cederqvist's avatar
Per Cederqvist committed
170
171
172
173
174
175
send "1029 98 6 10\n"
simple_expect "=1029 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000"
send "1030 98 6 11\n"
simple_expect "=1030 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000"
send "1031 98 6 12\n"
simple_expect "=1031 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000"
176
177

# foo does query-read-texts-old on foo and 10, 11 and 12.  Should get results.
Per Cederqvist's avatar
Per Cederqvist committed
178
179
180
181
182
183
send "1032 9 6 10\n"
simple_expect "=1032 $any_time 10 200 0 0 \\*"
send "1033 9 6 11\n"
simple_expect "=1033 $any_time 11 200 0 0 \\*"
send "1034 9 6 12\n"
simple_expect "=1034 $any_time 12 200 0 0 \\*"
184

185
# foo does query-read-texts on foo and 10, 11 and 12.  Should get results.
Per Cederqvist's avatar
Per Cederqvist committed
186
187
188
189
190
191
send "1035 107 6 10 1 0\n"
simple_expect "=1035 1 $any_time 10 200 0 \\* 9 $any_time 10000000"
send "1036 107 6 11 1 0\n"
simple_expect "=1036 2 $any_time 11 200 0 \\* 9 $any_time 10000000"
send "1037 107 6 12 1 0\n"
simple_expect "=1037 3 $any_time 12 200 0 \\* 9 $any_time 10000000"
192
193
194
195
196
197
198
199

#
# gazonk examines foo.
#

talk_to client 3

# gazonk does get-unread-confs of foo.  Should return the empty list.
Per Cederqvist's avatar
Per Cederqvist committed
200
201
send "1038 52 6\n"
simple_expect "=1038 0 \\*"
202

203
# gazonk does get-membership-10 of foo.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
204
205
send "1039 99 6 0 100 1\n"
simple_expect "=1039 4 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000 }"
206
207
# (Just a quick check: does the renumber work properly even if we don't
# start from the beginning of the list?)  (Hmm.  No renumber in this
208
# variant.  Oh well.)
Per Cederqvist's avatar
Per Cederqvist committed
209
210
send "1040 99 6 2 100 1\n"
simple_expect "=1040 2 { 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000 }"
211
212

# gazonk does get-membership-old of foo.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
213
214
send "1041 46 6 0 100 1\n"
simple_expect "=1041 4 { $any_time 6 255 0 0 \\* $any_time 10 200 0 0 \\* $any_time 11 200 0 0 \\* $any_time 12 200 0 0 \\* }"
215

216
# gazonk does get-membership of foo.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
217
218
send "1042 108 6 0 100 1 0\n"
simple_expect "=1042 4 { 0 $any_time 6 255 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 \\* 9 $any_time 10000000 }"
219
220
221
# (Just a quick check: does the renumber work properly even if we don't
# start from the beginning of the list?)  (Hmm.  No renumber in this
# variant.  Oh well.)
Per Cederqvist's avatar
Per Cederqvist committed
222
223
send "1043 108 6 2 100 1 0\n"
simple_expect "=1043 2 { 2 $any_time 11 200 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 \\* 9 $any_time 10000000 }"
224
225

# gazonk does query-read-texts-10 on foo and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
226
227
228
229
230
231
send "1044 98 6 10\n"
simple_expect "=1044 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000"
send "1045 98 6 11\n"
simple_expect "=1045 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000"
send "1046 98 6 12\n"
simple_expect "=1046 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000"
232
233

# gazonk does query-read-texts-old on foo and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
234
235
236
237
238
239
send "1047 9 6 10\n"
simple_expect "=1047 $any_time 10 200 0 0 \\*"
send "1048 9 6 11\n"
simple_expect "=1048 $any_time 11 200 0 0 \\*"
send "1049 9 6 12\n"
simple_expect "=1049 $any_time 12 200 0 0 \\*"
240

241
# gazonk does query-read-texts on foo and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
242
243
244
245
246
247
send "1050 107 6 10 1 0\n"
simple_expect "=1050 1 $any_time 10 200 0 \\* 9 $any_time 10000000"
send "1051 107 6 11 1 0\n"
simple_expect "=1051 2 $any_time 11 200 0 \\* 9 $any_time 10000000"
send "1052 107 6 12 1 0\n"
simple_expect "=1052 3 $any_time 12 200 0 \\* 9 $any_time 10000000"
248
249
250
251
252
253

#
# gazonk examines bar.
#

# gazonk does get-unread-confs of bar.  Should return undefined-person.
Per Cederqvist's avatar
Per Cederqvist committed
254
255
send "1053 52 7\n"
good_bad_expect "%1053 10 7" "=0 \\*" "Bug 37"
256

257
# gazonk does get-membership-10 of bar.  Should return undefined-person.
Per Cederqvist's avatar
Per Cederqvist committed
258
259
send "1054 99 7 0 100 1\n"
simple_expect "%1054 10 7"
260
261

# gazonk does get-membership-old of bar.  Should return undefined-person.
Per Cederqvist's avatar
Per Cederqvist committed
262
263
send "1055 46 7 0 100 1\n"
simple_expect "%1055 10 7"
264

265
# gazonk does get-membership of bar.  Should return undefined-person.
Per Cederqvist's avatar
Per Cederqvist committed
266
267
send "1056 108 7 0 100 1 0\n"
simple_expect "%1056 10 7"
268
269

# gazonk does query-read-texts-10 on bar and 10, 11 and 12.  undefined-person.
270
271
# FIXME (bug 703): This should not be censored.  But see Bug 70...
setup_xfail "*-*-*" "Bug 703"
272
fail "query-read-texts-10 returns info about secret persons to admin of conf"
Per Cederqvist's avatar
Per Cederqvist committed
273
274
275
276
277
278
send "1057 98 7 10\n"
simple_expect "%1057 10 7"
send "1058 98 7 11\n"
simple_expect "%1058 10 7"
send "1059 98 7 12\n"
simple_expect "%1059 10 7"
279
280

# gazonk does query-read-texts-old on bar and 10, 11 and 12.  undefined-person.
281
282
283
# FIXME (bug 703): This should not be censored.  But see Bug 70...
setup_xfail "*-*-*" "Bug 703"
fail "query-read-texts-old returns info about secret persons to admin of conf"
Per Cederqvist's avatar
Per Cederqvist committed
284
285
286
287
288
289
send "1060 9 7 10\n"
simple_expect "%1060 10 7"
send "1061 9 7 11\n"
simple_expect "%1061 10 7"
send "1062 9 7 12\n"
simple_expect "%1062 10 7"
290

291
292
293
294
# gazonk does query-read-texts on bar and 10, 11 and 12.  undefined-person.
# FIXME (bug 703): This should not be censored.  But see Bug 70...
setup_xfail "*-*-*" "Bug 703"
fail "query-read-texts returns info about secret persons to admin of conf"
Per Cederqvist's avatar
Per Cederqvist committed
295
296
297
298
299
300
send "1063 107 7 10 1 0\n"
simple_expect "%1063 10 7"
send "1064 107 7 11 1 0\n"
simple_expect "%1064 10 7"
send "1065 107 7 12 1 0\n"
simple_expect "%1065 10 7"
301
302
303
304
305
306

#
# gazonk examines citrus.
#

# gazonk does get-unread-confs of citrus.  Should return the empty list.
Per Cederqvist's avatar
Per Cederqvist committed
307
308
send "1066 52 8\n"
simple_expect "=1066 0 \\*"
309

310
# gazonk does get-membership-10 of citrus.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
311
312
send "1067 99 8 0 100 1\n"
simple_expect "=1067 4 { 0 $any_time 8 255 0 0 \\* 8 $any_time 00000000 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000 }"
313
314

# gazonk does get-membership-old of citrus.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
315
316
send "1068 46 8 0 100 1\n"
simple_expect "=1068 4 { $any_time 8 255 0 0 \\* $any_time 10 200 0 0 \\* $any_time 11 200 0 0 \\* $any_time 12 200 0 0 \\* }"
317

318
# gazonk does get-membership of citrus.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
319
320
send "1069 108 8 0 100 1 0\n"
simple_expect "=1069 4 { 0 $any_time 8 255 0 \\* 8 $any_time 00000000 1 $any_time 10 200 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 \\* 9 $any_time 10000000 }"
321
322

# gazonk does query-read-texts-10 on citrus and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
323
324
325
326
327
328
send "1070 98 8 10\n"
simple_expect "=1070 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000"
send "1071 98 8 11\n"
simple_expect "=1071 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000"
send "1072 98 8 12\n"
simple_expect "=1072 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000"
329
330

# gazonk does query-read-texts-old on citrus and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
331
332
333
334
335
336
send "1073 9 8 10\n"
simple_expect "=1073 $any_time 10 200 0 0 \\*"
send "1074 9 8 11\n"
simple_expect "=1074 $any_time 11 200 0 0 \\*"
send "1075 9 8 12\n"
simple_expect "=1075 $any_time 12 200 0 0 \\*"
337

338
# gazonk does query-read-texts on citrus and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
339
340
341
342
343
344
send "1076 107 8 10 1 0\n"
simple_expect "=1076 1 $any_time 10 200 0 \\* 9 $any_time 10000000"
send "1077 107 8 11 1 0\n"
simple_expect "=1077 2 $any_time 11 200 0 \\* 9 $any_time 10000000"
send "1078 107 8 12 1 0\n"
simple_expect "=1078 3 $any_time 12 200 0 \\* 9 $any_time 10000000"
345
346
347
348
349
350

#
# foo writes a text with secret, rd-prot and public as recipients.
#

talk_to client 0
Per Cederqvist's avatar
Per Cederqvist committed
351
352
send "1079 86 [holl "foo"] 3 { 0 10 0 11 0 12 } 0 { }\n"
simple_expect "=1079 1"
353
354
355
356
357
358

#
# foo examines foo
#

# foo does get-unread-confs of foo.  Should return 3 { 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
359
360
send "1080 52 6\n"
simple_expect "=1080 3 { 10 11 12 }"
361

362
# foo does get-membership-10 of foo.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
363
364
send "1081 99 6 0 100 1\n"
simple_expect "=1081 4 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000 }"
365
366

# foo does get-membership-old of foo.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
367
368
send "1082 46 6 0 100 1\n"
simple_expect "=1082 4 { $any_time 6 255 0 0 \\* $any_time 10 200 0 0 \\* $any_time 11 200 0 0 \\* $any_time 12 200 0 0 \\* }"
369

370
# foo does get-membership of foo.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
371
372
send "1083 108 6 0 100 1 0\n"
simple_expect "=1083 4 { 0 $any_time 6 255 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 \\* 9 $any_time 10000000 }"
373
374

# foo does query-read-texts-10 on foo and 10, 11 and 12.  Should get results.
Per Cederqvist's avatar
Per Cederqvist committed
375
376
377
378
379
380
send "1084 98 6 10\n"
simple_expect "=1084 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000"
send "1085 98 6 11\n"
simple_expect "=1085 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000"
send "1086 98 6 12\n"
simple_expect "=1086 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000"
381
382

# foo does query-read-texts-old on foo and 10, 11 and 12.  Should get results.
Per Cederqvist's avatar
Per Cederqvist committed
383
384
385
386
387
388
send "1087 9 6 10\n"
simple_expect "=1087 $any_time 10 200 0 0 \\*"
send "1088 9 6 11\n"
simple_expect "=1088 $any_time 11 200 0 0 \\*"
send "1089 9 6 12\n"
simple_expect "=1089 $any_time 12 200 0 0 \\*"
389

390
# foo does query-read-texts on foo and 10, 11 and 12.  Should get results.
Per Cederqvist's avatar
Per Cederqvist committed
391
392
393
394
395
396
send "1090 107 6 10 1 0\n"
simple_expect "=1090 1 $any_time 10 200 0 \\* 9 $any_time 10000000"
send "1091 107 6 11 1 0\n"
simple_expect "=1091 2 $any_time 11 200 0 \\* 9 $any_time 10000000"
send "1092 107 6 12 1 0\n"
simple_expect "=1092 3 $any_time 12 200 0 \\* 9 $any_time 10000000"
397
398
399
400
401
402
403
404

#
# gazonk examines foo.
#

talk_to client 3

# gazonk does get-unread-confs of foo.  Should return 3 { 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
405
send "1093 52 6\n"
406
# "Bug 596"
Per Cederqvist's avatar
Per Cederqvist committed
407
good_bad_expect "=1093 3 { 10 11 12 }" "=1 { 12 }"
408

409
# gazonk does get-membership-10 of foo.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
410
411
send "1094 99 6 0 100 1\n"
simple_expect "=1094 4 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000 }"
412
# This is a totally pointless test of renumber--no renumbering here!
Per Cederqvist's avatar
Per Cederqvist committed
413
414
send "1095 99 6 3 100 1\n"
simple_expect "=1095 1 { 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000 }"
415
416

# gazonk does get-membership-old of foo.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
417
418
send "1096 46 6 0 100 1\n"
simple_expect "=1096 4 { $any_time 6 255 0 0 \\* $any_time 10 200 0 0 \\* $any_time 11 200 0 0 \\* $any_time 12 200 0 0 \\* }"
419

420
# gazonk does get-membership of foo.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
421
422
send "1097 108 6 0 100 1 0\n"
simple_expect "=1097 4 { 0 $any_time 6 255 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 \\* 9 $any_time 10000000 }"
423
# This is a totally pointless test of renumber--no renumbering here!
Per Cederqvist's avatar
Per Cederqvist committed
424
425
send "1098 108 6 3 100 1 0\n"
simple_expect "=1098 1 { 3 $any_time 12 200 0 \\* 9 $any_time 10000000 }"
426
427

# gazonk does query-read-texts-10 on foo and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
428
429
430
431
432
433
send "1099 98 6 10\n"
simple_expect "=1099 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000"
send "1100 98 6 11\n"
simple_expect "=1100 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000"
send "1101 98 6 12\n"
simple_expect "=1101 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000"
434
435

# gazonk does query-read-texts-old on foo and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
436
437
438
439
440
441
send "1102 9 6 10\n"
simple_expect "=1102 $any_time 10 200 0 0 \\*"
send "1103 9 6 11\n"
simple_expect "=1103 $any_time 11 200 0 0 \\*"
send "1104 9 6 12\n"
simple_expect "=1104 $any_time 12 200 0 0 \\*"
442

443
# gazonk does query-read-texts on foo and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
444
445
446
447
448
449
send "1105 107 6 10 1 0\n"
simple_expect "=1105 1 $any_time 10 200 0 \\* 9 $any_time 10000000"
send "1106 107 6 11 1 0\n"
simple_expect "=1106 2 $any_time 11 200 0 \\* 9 $any_time 10000000"
send "1107 107 6 12 1 0\n"
simple_expect "=1107 3 $any_time 12 200 0 \\* 9 $any_time 10000000"
450
451
452
453
454
455
456
457



#
# gazonk examines bar
#

# gazonk does get-unread-confs of bar.  Should return undefined-person.
Per Cederqvist's avatar
Per Cederqvist committed
458
459
send "1108 52 7\n"
good_bad_expect "%1108 10 7" "=3 { 10 11 12 }" "Bug 37"
460

461
# gazonk does get-membership-10 of bar.  Should return undefined-person.
Per Cederqvist's avatar
Per Cederqvist committed
462
463
send "1109 99 7 0 100 1\n"
simple_expect "%1109 10 7"
464
465

# gazonk does get-membership-old of bar.  Should return undefined-person.
Per Cederqvist's avatar
Per Cederqvist committed
466
467
send "1110 46 7 0 100 1\n"
simple_expect "%1110 10 7"
468

469
# gazonk does get-membership of bar.  Should return undefined-person.
Per Cederqvist's avatar
Per Cederqvist committed
470
471
send "1111 108 7 0 100 1 0\n"
simple_expect "%1111 10 7"
472
473

# gazonk does query-read-texts-10 on bar and 10, 11 and 12.  undefined-person.
474
475
476
# FIXME (bug 703): This should not be censored.  But see Bug 70...
setup_xfail "*-*-*" "Bug 703"
fail "query-read-texts returns info about secret persons to admin of conf"
Per Cederqvist's avatar
Per Cederqvist committed
477
478
479
480
481
482
send "1112 98 7 10\n"
simple_expect "%1112 10 7"
send "1113 98 7 11\n"
simple_expect "%1113 10 7"
send "1114 98 7 12\n"
simple_expect "%1114 10 7"
483
484

# gazonk does query-read-texts-old on bar and 10, 11 and 12.  undefined-person.
485
486
487
# FIXME (bug 703): This should not be censored.  But see Bug 70...
setup_xfail "*-*-*" "Bug 703"
fail "query-read-texts-old returns info about secret persons to admin of conf"
Per Cederqvist's avatar
Per Cederqvist committed
488
489
490
491
492
493
send "1115 9 7 10\n"
simple_expect "%1115 10 7"
send "1116 9 7 11\n"
simple_expect "%1116 10 7"
send "1117 9 7 12\n"
simple_expect "%1117 10 7"
494

495
496
497
498
# gazonk does query-read-texts on bar and 10, 11 and 12.  undefined-person.
# FIXME (bug 703): This should not be censored.  But see Bug 70...
setup_xfail "*-*-*" "Bug 703"
fail "query-read-texts returns info about secret persons to admin of conf"
Per Cederqvist's avatar
Per Cederqvist committed
499
500
501
502
503
504
send "1118 107 7 10 1 0\n"
simple_expect "%1118 10 7"
send "1119 107 7 11 1 0\n"
simple_expect "%1119 10 7"
send "1120 107 7 12 1 0\n"
simple_expect "%1120 10 7"
505
506
507
508
509
510
511


#
# gazonk examines citrus.
#

# gazonk does get-unread-confs of citrus.  Should return the empty list.
Per Cederqvist's avatar
Per Cederqvist committed
512
513
send "1121 52 8\n"
good_bad_expect "=1121 0 \\*" "=3 { 10 11 12 }" "Bug 595"
514

515
# gazonk does get-membership-10 of citrus.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
516
517
send "1122 99 8 0 100 1\n"
simple_expect "=1122 4 { 0 $any_time 8 255 0 0 \\* 8 $any_time 00000000 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000 }"
518
519

# gazonk does get-membership-old of citrus.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
520
521
send "1123 46 8 0 100 1\n"
simple_expect "=1123 4 { $any_time 8 255 0 0 \\* $any_time 10 200 0 0 \\* $any_time 11 200 0 0 \\* $any_time 12 200 0 0 \\* }"
522

523
# gazonk does get-membership of citrus.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
524
525
send "1124 108 8 0 100 1 0\n"
simple_expect "=1124 4 { 0 $any_time 8 255 0 \\* 8 $any_time 00000000 1 $any_time 10 200 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 \\* 9 $any_time 10000000 }"
526
527

# gazonk does query-read-texts-10 on citrus and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
528
529
530
531
532
533
send "1125 98 8 10\n"
simple_expect "=1125 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000"
send "1126 98 8 11\n"
simple_expect "=1126 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000"
send "1127 98 8 12\n"
simple_expect "=1127 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000"
534
535

# gazonk does query-read-texts-old on citrus and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
536
537
538
539
540
541
send "1128 9 8 10\n"
simple_expect "=1128 $any_time 10 200 0 0 \\*"
send "1129 9 8 11\n"
simple_expect "=1129 $any_time 11 200 0 0 \\*"
send "1130 9 8 12\n"
simple_expect "=1130 $any_time 12 200 0 0 \\*"
542

543
# gazonk does query-read-texts on citrus and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
544
545
546
547
548
549
send "1131 107 8 10 1 0\n"
simple_expect "=1131 1 $any_time 10 200 0 \\* 9 $any_time 10000000"
send "1132 107 8 11 1 0\n"
simple_expect "=1132 2 $any_time 11 200 0 \\* 9 $any_time 10000000"
send "1133 107 8 12 1 0\n"
simple_expect "=1133 3 $any_time 12 200 0 \\* 9 $any_time 10000000"
550
551
552
553
554
555
556
557


#
# mark as read
#

# foo marks the text as read
talk_to client 0
Per Cederqvist's avatar
Per Cederqvist committed
558
559
560
561
562
563
send "1134 27 10 1 { 1 }\n"
simple_expect "=1134"
send "1135 27 11 1 { 1 }\n"
simple_expect "=1135"
send "1136 27 12 1 { 1 }\n"
simple_expect "=1136"
564
565
566

# bar marks the text as read
talk_to client 1
Per Cederqvist's avatar
Per Cederqvist committed
567
568
569
570
571
572
send "1137 27 10 1 { 1 }\n"
simple_expect "=1137"
send "1138 27 11 1 { 1 }\n"
simple_expect "=1138"
send "1139 27 12 1 { 1 }\n"
simple_expect "=1139"
573
574
575

# citrus marks the text as read
talk_to client 2
Per Cederqvist's avatar
Per Cederqvist committed
576
577
578
579
580
581
send "1140 27 10 1 { 1 }\n"
simple_expect "=1140"
send "1141 27 11 1 { 1 }\n"
simple_expect "=1141"
send "1142 27 12 1 { 1 }\n"
simple_expect "=1142"
582
583
584
585
586
587
588
589

#
# foo examines foo.
#

talk_to client 0

# foo does get-unread-confs of foo.  Should return the empty list.
Per Cederqvist's avatar
Per Cederqvist committed
590
591
send "1143 52 6\n"
simple_expect "=1143 0 \\*"
592

593
# foo does get-membership-10 of foo.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
594
595
send "1144 99 6 0 100 1\n"
simple_expect "=1144 4 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 1 $any_time 10 200 1 0 \\* 9 $any_time 10000000 2 $any_time 11 200 1 0 \\* 9 $any_time 10000000 3 $any_time 12 200 1 0 \\* 9 $any_time 10000000 }"
596
597

# foo does get-membership-old of foo.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
598
599
send "1145 46 6 0 100 1\n"
simple_expect "=1145 4 { $any_time 6 255 0 0 \\* $any_time 10 200 1 0 \\* $any_time 11 200 1 0 \\* $any_time 12 200 1 0 \\* }"
600

601
# foo does get-membership of foo.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
602
603
send "1146 108 6 0 100 1 0\n"
simple_expect "=1146 4 { 0 $any_time 6 255 0 \\* 6 $any_time 00000000 1 $any_time 10 200 1 { 1 1 } 9 $any_time 10000000 2 $any_time 11 200 1 { 1 1 } 9 $any_time 10000000 3 $any_time 12 200 1 { 1 1 } 9 $any_time 10000000 }"
604
605

# foo does query-read-texts-10 on foo and 10, 11 and 12.  Should get results.
Per Cederqvist's avatar
Per Cederqvist committed
606
607
608
609
610
611
send "1147 98 6 10\n"
simple_expect "=1147 1 $any_time 10 200 1 0 \\* 9 $any_time 10000000"
send "1148 98 6 11\n"
simple_expect "=1148 2 $any_time 11 200 1 0 \\* 9 $any_time 10000000"
send "1149 98 6 12\n"
simple_expect "=1149 3 $any_time 12 200 1 0 \\* 9 $any_time 10000000"
612
613

# foo does query-read-texts-old on foo and 10, 11 and 12.  Should get results.
Per Cederqvist's avatar
Per Cederqvist committed
614
615
616
617
618
619
send "1150 9 6 10\n"
simple_expect "=1150 $any_time 10 200 1 0 \\*"
send "1151 9 6 11\n"
simple_expect "=1151 $any_time 11 200 1 0 \\*"
send "1152 9 6 12\n"
simple_expect "=1152 $any_time 12 200 1 0 \\*"
620

621
# foo does query-read-texts on foo and 10, 11 and 12.  Should get results.
Per Cederqvist's avatar
Per Cederqvist committed
622
623
624
625
626
627
send "1153 107 6 10 1 0\n"
simple_expect "=1153 1 $any_time 10 200 1 { 1 1 } 9 $any_time 10000000"
send "1154 107 6 11 1 0\n"
simple_expect "=1154 2 $any_time 11 200 1 { 1 1 } 9 $any_time 10000000"
send "1155 107 6 12 1 0\n"
simple_expect "=1155 3 $any_time 12 200 1 { 1 1 } 9 $any_time 10000000"
628
629
630
631
632
633
634
635

#
# gazonk examines foo.
#

talk_to client 3

# gazonk does get-unread-confs of foo.  Should return the empty list.
Per Cederqvist's avatar
Per Cederqvist committed
636
637
send "1156 52 6\n"
simple_expect "=1156 0 \\*"
638

639
# gazonk does get-membership-10 of foo.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
640
641
send "1157 99 6 0 100 1\n"
simple_expect "=1157 4 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 1 $any_time 10 200 1 0 \\* 9 $any_time 10000000 2 $any_time 11 200 1 0 \\* 9 $any_time 10000000 3 $any_time 12 200 1 0 \\* 9 $any_time 10000000 }"
642
643

# gazonk does get-membership-old of foo.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
644
645
send "1158 46 6 0 100 1\n"
simple_expect "=1158 4 { $any_time 6 255 0 0 \\* $any_time 10 200 1 0 \\* $any_time 11 200 1 0 \\* $any_time 12 200 1 0 \\* }"
646

647
# gazonk does get-membership of foo.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
648
649
send "1159 108 6 0 100 1 0\n"
simple_expect "=1159 4 { 0 $any_time 6 255 0 \\* 6 $any_time 00000000 1 $any_time 10 200 1 { 1 1 } 9 $any_time 10000000 2 $any_time 11 200 1 { 1 1 } 9 $any_time 10000000 3 $any_time 12 200 1 { 1 1 } 9 $any_time 10000000 }"
650
651

# gazonk does query-read-texts-10 on foo and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
652
653
654
655
656
657
send "1160 98 6 10\n"
simple_expect "=1160 1 $any_time 10 200 1 0 \\* 9 $any_time 10000000"
send "1161 98 6 11\n"
simple_expect "=1161 2 $any_time 11 200 1 0 \\* 9 $any_time 10000000"
send "1162 98 6 12\n"
simple_expect "=1162 3 $any_time 12 200 1 0 \\* 9 $any_time 10000000"
658
659

# gazonk does query-read-texts-old on foo and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
660
661
662
663
664
665
send "1163 9 6 10\n"
simple_expect "=1163 $any_time 10 200 1 0 \\*"
send "1164 9 6 11\n"
simple_expect "=1164 $any_time 11 200 1 0 \\*"
send "1165 9 6 12\n"
simple_expect "=1165 $any_time 12 200 1 0 \\*"
666

667
# gazonk does query-read-texts on foo and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
668
669
670
671
672
673
send "1166 107 6 10 1 0\n"
simple_expect "=1166 1 $any_time 10 200 1 { 1 1 } 9 $any_time 10000000"
send "1167 107 6 11 1 0\n"
simple_expect "=1167 2 $any_time 11 200 1 { 1 1 } 9 $any_time 10000000"
send "1168 107 6 12 1 0\n"
simple_expect "=1168 3 $any_time 12 200 1 { 1 1 } 9 $any_time 10000000"
674

675
# gazonk does <FIXME (bug 590)> on foo and 10, 11 and 12.  Should work.
676
677
678
679
680
681

#
# gazonk examines bar.
#

# gazonk does get-unread-confs of bar.  Should return undefined-person.
Per Cederqvist's avatar
Per Cederqvist committed
682
683
send "1169 52 7\n"
good_bad_expect "%1169 10 7" "=0 \\*" "Bug 37"
684

685
# gazonk does get-membership-10 of bar.  Should return undefined-person.
Per Cederqvist's avatar
Per Cederqvist committed
686
687
send "1170 99 7 0 100 1\n"
simple_expect "%1170 10 7"
688
689

# gazonk does get-membership-old of bar.  Should return undefined-person.
Per Cederqvist's avatar
Per Cederqvist committed
690
691
send "1171 46 7 0 100 1\n"
simple_expect "%1171 10 7"
692

693
# gazonk does get-membership of bar.  Should return undefined-person.
Per Cederqvist's avatar
Per Cederqvist committed
694
695
send "1172 108 7 0 100 1 0\n"
simple_expect "%1172 10 7"
696
697

# gazonk does query-read-texts-10 on bar and 10, 11 and 12.  undefined-person.
698
699
# FIXME (bug 703): This should not be censored.  But see Bug 70...
setup_xfail "*-*-*" "Bug 703"
700
fail "query-read-texts-10 returns info about secret persons to admin of conf"
Per Cederqvist's avatar
Per Cederqvist committed
701
702
703
704
705
706
send "1173 98 7 10\n"
simple_expect "%1173 10 7"
send "1174 98 7 11\n"
simple_expect "%1174 10 7"
send "1175 98 7 12\n"
simple_expect "%1175 10 7"
707
708

# gazonk does query-read-texts-old on bar and 10, 11 and 12.  undefined-person.
709
710
711
# FIXME (bug 703): This should not be censored.  But see Bug 70...
setup_xfail "*-*-*" "Bug 703"
fail "query-read-texts-old returns info about secret persons to admin of conf"
Per Cederqvist's avatar
Per Cederqvist committed
712
713
714
715
716
717
send "1176 9 7 10\n"
simple_expect "%1176 10 7"
send "1177 9 7 11\n"
simple_expect "%1177 10 7"
send "1178 9 7 12\n"
simple_expect "%1178 10 7"
718

719
720
721
722
# gazonk does query-read-texts on bar and 10, 11 and 12.  undefined-person.
# FIXME (bug 703): This should not be censored.  But see Bug 70...
setup_xfail "*-*-*" "Bug 703"
fail "query-read-texts returns info about secret persons to admin of conf"
Per Cederqvist's avatar
Per Cederqvist committed
723
724
725
726
727
728
send "1179 107 7 10 1 0\n"
simple_expect "%1179 10 7"
send "1180 107 7 11 1 0\n"
simple_expect "%1180 10 7"
send "1181 107 7 12 1 0\n"
simple_expect "%1181 10 7"
729
730

# FIXME (bug 704): Now, set unread-is-secret for bar, and let gazonk
731
732
# redo the query-read-texts-10, query-read-texts-old, and
# query-read-texts requests.  Check that unread-is-secret is
733
734
# respected.  Then change unread-is-secret back.

735
736
737
738
739
740

#
# gazonk examines citrus.
#

# gazonk does get-unread-confs of citrus.  Should return the empty list.
Per Cederqvist's avatar
Per Cederqvist committed
741
742
send "1182 52 8\n"
simple_expect "=1182 0 \\*"
743

744
# gazonk does get-membership-10 of citrus.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
745
746
send "1183 99 8 0 100 1\n"
simple_expect "=1183 4 { 0 $any_time 8 255 0 0 \\* 8 $any_time 00000000 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000 }"
747
748

# gazonk does get-membership-old of citrus.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
749
750
send "1184 46 8 0 100 1\n"
simple_expect "=1184 4 { $any_time 8 255 0 0 \\* $any_time 10 200 0 0 \\* $any_time 11 200 0 0 \\* $any_time 12 200 0 0 \\* }"
751

752
# gazonk does get-membership of citrus.  Should return 4 { 6 10 11 12 }.
Per Cederqvist's avatar
Per Cederqvist committed
753
754
send "1185 108 8 0 100 1 0\n"
simple_expect "=1185 4 { 0 $any_time 8 255 0 \\* 8 $any_time 00000000 1 $any_time 10 200 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 \\* 9 $any_time 10000000 }"
755
756

# gazonk does query-read-texts-10 on citrus and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
757
758
759
760
761
762
send "1186 98 8 10\n"
simple_expect "=1186 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000"
send "1187 98 8 11\n"
simple_expect "=1187 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000"
send "1188 98 8 12\n"
simple_expect "=1188 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000"
763

764
# gazonk does query-read-texts-old on citrus and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
765
766
767
768
769
770
send "1189 9 8 10\n"
simple_expect "=1189 $any_time 10 200 0 0 \\*"
send "1190 9 8 11\n"
simple_expect "=1190 $any_time 11 200 0 0 \\*"
send "1191 9 8 12\n"
simple_expect "=1191 $any_time 12 200 0 0 \\*"
771

772
# gazonk does query-read-texts on citrus and 10, 11 and 12.
Per Cederqvist's avatar
Per Cederqvist committed
773
774
775
776
777
778
send "1192 107 8 10 1 0\n"
simple_expect "=1192 1 $any_time 10 200 0 \\* 9 $any_time 10000000"
send "1193 107 8 11 1 0\n"
simple_expect "=1193 2 $any_time 11 200 0 \\* 9 $any_time 10000000"
send "1194 107 8 12 1 0\n"
simple_expect "=1194 3 $any_time 12 200 0 \\* 9 $any_time 10000000"
779

780
781
782
783
784
#
# gazonk examines the conferences
#

# Test get-members-old
Per Cederqvist's avatar
Per Cederqvist committed
785
786
787
788
789
790
send "1195 48 10 0 100\n"
simple_expect "=1195 3 { 7 6 8 }"
send "1196 48 11 0 100\n"
simple_expect "=1196 3 { 7 6 8 }"
send "1197 48 12 0 100\n"
simple_expect "=1197 3 { 7 6 8 }"
791
792

# Test get-members.
Per Cederqvist's avatar
Per Cederqvist committed
793
794
795
796
797
798
send "1198 101 10 0 100\n"
simple_expect "=1198 3 { 7 9 $any_time 10000000 6 9 $any_time 10000000 8 9 $any_time 10000000 }"
send "1199 101 11 0 100\n"
simple_expect "=1199 3 { 7 9 $any_time 10000000 6 9 $any_time 10000000 8 9 $any_time 10000000 }"
send "1200 101 12 0 100\n"
simple_expect "=1200 3 { 7 9 $any_time 10000000 6 9 $any_time 10000000 8 9 $any_time 10000000 }"
799

800
801
802

# Shut down.
talk_to client 3
Per Cederqvist's avatar
Per Cederqvist committed
803
804
805
806
807
808
send "1201 0 5 [holl "gazonk"]\n"
simple_expect "=1201"
send "1202 42 255\n"
simple_expect "=1202"
send "1203 44 0\n"
simple_expect "=1203"
809
810
811
812
813
client_death 3
client_death 2
client_death 1
client_death 0
lyskomd_death