01.exp 13.2 KB
Newer Older
1
2
3
4
# Check that all functions do the right thing when invoked before the
# user logs in.

read_versions
5

Per Cederqvist's avatar
Per Cederqvist committed
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
lyskomd_start

client_start 0
talk_to client 0
send "A\n"
send "[holl "DejaGnu test suite"]\n"
simple_expect "LysKOM" "connected"

send "1000 62 5 [holl "bogus"] 0\n"
simple_expect "%1000 4 5"

send "1001 62 4 [holl "nono"] 0\n"
simple_expect "%1001 10 4"

send "1002 62 6 [holl "nono"] 0\n"
simple_expect "%1002 10 6"

send "1003 62 60 [holl "nono"] 0\n"
simple_expect "%1003 10 60"

send "1004 62 0 [holl "zero"] 0\n"
simple_expect "%1004 8 0"

# Turn of async messages
send "1005 80 0 { }\n"
simple_expect "=1005"

# Test that most calls fail when the user isn't logged in.

# 0:login-old may succeed
# 1:logout always succeeds
send "1006 1\n"
David Byers's avatar
David Byers committed
38
simple_expect "=1006" "logout"
Per Cederqvist's avatar
Per Cederqvist committed
39
40
# 2:change-conference
send "1007 2 4\n"
David Byers's avatar
David Byers committed
41
simple_expect "%1007 6 0" "change-conference"
Per Cederqvist's avatar
Per Cederqvist committed
42
43
# 3:change-name
send "1008 3 1 [holl "new name"]\n"
David Byers's avatar
David Byers committed
44
simple_expect "%1008 6 0" "change-name"
Per Cederqvist's avatar
Per Cederqvist committed
45
46
# 4:change-what-i-am-doing
send "1009 4 [holl "testing lyskomd"]\n"
David Byers's avatar
David Byers committed
47
simple_expect "=1009" "change-what-i-am-doing"
Per Cederqvist's avatar
Per Cederqvist committed
48
49
# 5:create-person-old
send "1010 5 [holl "new person"] [holl "mypasswd"]\n"
David Byers's avatar
David Byers committed
50
simple_expect "=1010 6" "create-person-old"
51
send "1011 39\n"
David Byers's avatar
David Byers committed
52
simple_expect "=1011 1 { 6 0 [holl ""] }" "create-person-old"
53
send "1012 1\n"
David Byers's avatar
David Byers committed
54
simple_expect "=1012" "create-person-old"
Per Cederqvist's avatar
Per Cederqvist committed
55
# 6:get-person-stat-old
56
send "1013 6 6 1\n"
David Byers's avatar
David Byers committed
57
simple_expect "%1013 6 0" "get-person-stat-old"
58
59
# 7:set-priv-bits
send "1014 7 6 0000000000000000\n"
David Byers's avatar
David Byers committed
60
simple_expect "%1014 6 0" "set-priv-bits"
61
62
# 8:set-passwd
send "1015 8 5 [holl "old"] [holl "new"]\n"
David Byers's avatar
David Byers committed
63
simple_expect "%1015 6 0" "set-passwd"
Per Cederqvist's avatar
Per Cederqvist committed
64
# 9:query-read-texts-old
65
send "1016 9 6 6\n"
David Byers's avatar
David Byers committed
66
simple_expect "=1016 $any_time 6 255 0 0 \\*" "query-read-texts-old"
Per Cederqvist's avatar
Per Cederqvist committed
67
# 10:create-conf-old
David Byers's avatar
David Byers committed
68
69
send "1017 10 [holl "no way"] 0000\n" 
simple_expect "%1017 6 0" "create-conf-old"
70
71
# 11:delete-conf
send "1018 11 1\n"
David Byers's avatar
David Byers committed
72
simple_expect "%1018 6 0" "delete-conf"
Per Cederqvist's avatar
Per Cederqvist committed
73
# 12:lookup-name
74
send "1019 12 [holl "pres"]\n"
David Byers's avatar
David Byers committed
75
simple_expect "=1019 2 { 1 2 } { 0000 0000 }" "lookup-name"
76
send "1020 12 [holl "xyzzy does not exist"]\n"
David Byers's avatar
David Byers committed
77
simple_expect "=1020 0 \\* \\*" "lookup-name"
Per Cederqvist's avatar
Per Cederqvist committed
78
# 13:get-conf-stat-older
79
send "1021 13 1 0\n"
David Byers's avatar
David Byers committed
80
simple_expect "=1021 0H 0000 $any_time $any_time 0 0 0 0 0 0 77 0 1 0" "get-conf-stat-older"
81
send "1022 13 1 1\n"
David Byers's avatar
David Byers committed
82
simple_expect "=1022 [holl "Presentation .av nya. mten"] 0000 $any_time $any_time 0 0 0 0 0 0 77 0 1 0" "get-conf-stat-older"
Per Cederqvist's avatar
Per Cederqvist committed
83
# 14:add-member-old
84
send "1023 14 4 5 255 1\n"
David Byers's avatar
David Byers committed
85
simple_expect "%1023 6 0" "add-member-old"
86
87
# 15:sub-member
send "1024 15 4 5\n"
David Byers's avatar
David Byers committed
88
simple_expect "%1024 6 0" "sub-member"
89
90
# 16:set-presentation
send "1025 16 4 1\n"
David Byers's avatar
David Byers committed
91
simple_expect "%1025 6 0" "set-presentation"
92
93
# 17:set-etc-motd
send "1026 17 4 1\n"
David Byers's avatar
David Byers committed
94
simple_expect "%1026 6 0" "set-etc-motd"
95
96
# 18:set-supervisor
send "1027 18 4 1\n"
David Byers's avatar
David Byers committed
97
simple_expect "%1027 6 0" "set-supervisor"
98
99
# 19:set-permitted-submitters
send "1028 19 4 1\n"
David Byers's avatar
David Byers committed
100
simple_expect "%1028 6 0" "set-permitted-submitters"
101
102
# 20:set-super-conf
send "1029 20 4 1\n"
David Byers's avatar
David Byers committed
103
simple_expect "%1029 6 0" "set-super-conf"
104
105
# 21:set-conf-type
send "1030 21 4 0000\n"
David Byers's avatar
David Byers committed
106
simple_expect "%1030 6 0" "set-conf-type"
107
send "1031 21 4 00000000\n"
David Byers's avatar
David Byers committed
108
simple_expect "%1031 6 0" "set-conf-type"
109
110
# 22:set-garb-nice
send "1032 22 4 17\n"
David Byers's avatar
David Byers committed
111
simple_expect "%1032 6 0" "set-garb-nice"
112
113
# 23:get-marks
send "1033 23\n"
David Byers's avatar
David Byers committed
114
simple_expect "%1033 6 0" "get-marks"
115
116
# 24:mark-text-old
send "1034 24 1 243\n"
David Byers's avatar
David Byers committed
117
simple_expect "%1034 6 0" "mark-text-old"
Per Cederqvist's avatar
Per Cederqvist committed
118
# 25:get-text
119
send "1035 25 1 0 999\n"
David Byers's avatar
David Byers committed
120
simple_expect "%1035 14 1" "get-text"
121
122
# 26:get-text-stat-old
send "1036 26 1\n"
David Byers's avatar
David Byers committed
123
simple_expect "%1036 14 1" "get-text-stat-old"
Per Cederqvist's avatar
Per Cederqvist committed
124
# 27:mark-as-read
125
send "1037 27 3 1 { 1 }\n"
David Byers's avatar
David Byers committed
126
simple_expect "%1037 6 0" "mark-as-read"
127
128
# 28:create-text-old
send "1038 28 [holl "A sample text"] 1 { 0 2 }\n"
David Byers's avatar
David Byers committed
129
simple_expect "%1038 6 0" "create-text-old"
130
131
# 29:delete-text
send "1039 29 1\n"
David Byers's avatar
David Byers committed
132
simple_expect "%1039 6 0" "delete-text"
133
134
# 30:add-recipient
send "1040 30 1 4 0\n"
David Byers's avatar
David Byers committed
135
simple_expect "%1040 6 0" "add-recipient"
136
137
# 31:sub-recipient
send "1041 31 1 4\n"
David Byers's avatar
David Byers committed
138
simple_expect "%1041 6 0" "sub-recipient"
139
140
# 32:add-comment
send "1042 32 2 1\n"
David Byers's avatar
David Byers committed
141
simple_expect "%1042 6 0" "add-comment"
142
143
# 33:sub-comment
send "1043 33 2 1\n"
David Byers's avatar
David Byers committed
144
simple_expect "%1043 6 0" "sub-comment"
145
146
# 34:get-map
send "1044 34 1 0 99\n"
David Byers's avatar
David Byers committed
147
simple_expect "%1044 6 0" "get-map"
148
# 35:get-time
149
send "1045 35\n"
David Byers's avatar
David Byers committed
150
simple_expect "=1045 $any_time" "get-time"
151
# 36:get-info-old
152
send "1046 36\n"
David Byers's avatar
David Byers committed
153
simple_expect "=1046 $server_compat_version 1 2 3 4 0" "get-info-old"
154
# 37:add-footnote
155
send "1047 37 1 2\n"
David Byers's avatar
David Byers committed
156
simple_expect "%1047 6 0" "add-footnote"
157
158
# 38:sub-footnote
send "1048 38 1 2\n"
David Byers's avatar
David Byers committed
159
simple_expect "%1048 6 0" "sub-footnote"
160
# 39:who-is-on-old
161
send "1049 39\n"
David Byers's avatar
David Byers committed
162
simple_expect "=1049 0 \\*" "who-is-on-old"
163
# 40:set-unread
164
send "1050 40 1 3\n"
David Byers's avatar
David Byers committed
165
simple_expect "%1050 6 0" "set-unread"
166
167
# 41:set-motd-of-lyskom
send "1051 41 1\n"
David Byers's avatar
David Byers committed
168
simple_expect "%1051 6 0" "set-motd-of-lyskom"
169
170
# 42:enable
send "1052 42 255\n"
David Byers's avatar
David Byers committed
171
simple_expect "%1052 6 0" "enable"
172
173
# 43:sync-kom
send "1053 43\n"
David Byers's avatar
David Byers committed
174
simple_expect "%1053 6 0" "sync-kom"
175
176
# 44:shutdown-kom
send "1054 44 2\n"
David Byers's avatar
David Byers committed
177
simple_expect "%1054 6 0" "shutdown-kom"
178
179
# 45:broadcast
send "1055 45 [holl "broadcast-message"]\n"
David Byers's avatar
David Byers committed
180
simple_expect "%1055 6 0" "broadcast"
181
182
# 46:get-membership-old
send "1056 46 5 1 3 1\n"
David Byers's avatar
David Byers committed
183
simple_expect "%1056 6 0" "get-membership-old"
184
185
# 47:get-created-texts
send "1057 47 5 1 3\n"
David Byers's avatar
David Byers committed
186
simple_expect "%1057 6 0" "get-created-text"
187
# 48:get-members-old
188
send "1058 48 5 0 1\n"
David Byers's avatar
David Byers committed
189
simple_expect "=1058 1 { 5 }" "get-members-old"
190
send "1059 48 5 0 2\n"
David Byers's avatar
David Byers committed
191
simple_expect "=1059 1 { 5 }" "get-members-old"
192
send "1060 48 5 0 10\n"
David Byers's avatar
David Byers committed
193
simple_expect "=1060 1 { 5 }" "get-members-old"
194
send "1061 49 5\n"
David Byers's avatar
David Byers committed
195
simple_expect "=1061 [holl "X.unknown.@localhost"] 1111111111111111 00000000 $any_time 0 482 4 0 0 0 0 0 0 1 0 0 1" "get-members-old"
196
197
# 50:get-conf-stat-old
send "1062 50 1\n"
David Byers's avatar
David Byers committed
198
simple_expect "=1062 [holl "Presentation .av nya. mten"] 0000 $any_time $any_time 0 0 0 0 0 0 77 0 1 0" "get-conf-stat-old"
199
200
# 51:who-is-on
send "1063 51\n"
David Byers's avatar
David Byers committed
201
simple_expect "=1063 0 \\*" "who-is-on"
202
203
# 52:get-unread-confs
send "1064 52 5\n"
David Byers's avatar
David Byers committed
204
simple_expect "%1064 6 0" "get-unread-confs"
205
206
# 53:send-message
send "1065 53 1 [holl "holler"]\n"
David Byers's avatar
David Byers committed
207
simple_expect "%1065 6 0" "send-message"
208
209
# 54:get-session-info
send "1066 54 1\n"
David Byers's avatar
David Byers committed
210
simple_expect "%1066 6 0" "get-session-info"
211
212
# 55:disconnect
send "1067 55 2\n"
David Byers's avatar
David Byers committed
213
simple_expect "%1067 6 0" "disconnect"
214
215
# 56:who-am-i
send "1068 56\n"
David Byers's avatar
David Byers committed
216
simple_expect "=1068 1" "who-am-i"
217
218
# 57:set-user-area
send "1069 57 5 2\n"
David Byers's avatar
David Byers committed
219
simple_expect "%1069 6 0" "set-user-area"
220
221
# 58:get-last-text
send "1070 58 0 0 12 1 0 90 0 0 0\n"
David Byers's avatar
David Byers committed
222
simple_expect "=1070 0" "get-last-text"
223
224
# 59:create-anonymous-text-old
send "1071 59 [holl "anon-txt"] 1 { 0 2 }\n"
David Byers's avatar
David Byers committed
225
simple_expect "%1071 6 0" "create-anonymous-text-old"
226
227
# 60:find-next-text-no
send "1072 60 0\n"
David Byers's avatar
David Byers committed
228
simple_expect "%1072 14 0" "find-next-text-no"
229
send "1073 60 1\n"
David Byers's avatar
David Byers committed
230
simple_expect "%1073 14 1" "find-next-text-no"
231
send "1074 60 3\n"
David Byers's avatar
David Byers committed
232
simple_expect "%1074 14 3" "find-next-text-no"
233
234
# 61:find-previous-text-no
send "1075 61 18\n"
David Byers's avatar
David Byers committed
235
simple_expect "%1075 14 18" "find-previous-text-no"
236
237
# 62:login
send "1076 62 0 [holl "broken"] 1\n"
David Byers's avatar
David Byers committed
238
simple_expect "%1076 8 0" "login"
239
240
# 63:who-is-on-ident
send "1077 63\n"
David Byers's avatar
David Byers committed
241
simple_expect "=1077 0 \\*" "who-is-on-ident"
242
243
# 64:get-session-info-ident
send "1078 64 1\n"
David Byers's avatar
David Byers committed
244
simple_expect "%1078 6 0" "get-session-info-ident"
245
246
# 65:re-lookup-person
send "1079 65 [holl "."]\n"
David Byers's avatar
David Byers committed
247
simple_expect "=1079 2 { 5 6 }" "re-lookup-person"
248
249
# 66:re-lookup-conf
send "1080 66 [holl "Pre.*m.*"]\n"
David Byers's avatar
David Byers committed
250
simple_expect "=1080 2 { 1 2 }" "re-lookup-conf"
251
252
# 67:lookup-person
send "1081 67 [holl "ad"]\n"
David Byers's avatar
David Byers committed
253
simple_expect "=1081 1 { 5 }" "lookup-person"
254
255
# 68:lookup-conf
send "1082 68 [holl "n o lys"]\n"
David Byers's avatar
David Byers committed
256
simple_expect "=1082 1 { 4 }" "lookup-conf"
257
258
# 69:set-client-version
send "1083 69 [holl "DejaGnu"] [holl "1.3"]\n"
David Byers's avatar
David Byers committed
259
simple_expect "=1083" "set-client-version"
260
261
# 70:get-client-name
send "1084 70 1\n"
David Byers's avatar
David Byers committed
262
simple_expect "%1084 6 0" "get-client-name"
263
264
# 71:get-client-version
send "1085 71 1\n"
David Byers's avatar
David Byers committed
265
simple_expect "%1085 6 0" "get-clien-version"
266
267
# 72:mark-text
send "1086 72 1 239\n"
David Byers's avatar
David Byers committed
268
simple_expect "%1086 6 0" "mark-text"
269
270
# 73:unmark-text
send "1087 73 1\n"
David Byers's avatar
David Byers committed
271
simple_expect "%1087 6 0" "unmark-text"
272
273
# 74:re-z-lookup
send "1088 74 [holl "LysKOM"] 1 1\n"
David Byers's avatar
David Byers committed
274
simple_expect "=1088 2 { [holl "Nyheter om LysKOM"] 0000 4 [holl "Administratr .fr. LysKOM"] 1001 5 }" "re-z-lookup"
275
276
# 75:get-version-info
send "1089 75\n"
David Byers's avatar
David Byers committed
277
simple_expect "=1089 $protocol_a_level [holl "$server_software"] [holl "$server_version"]" "get-version-info"
278
279
# 76:lookup-z-name
send "1090 76 [holl "pre m"] 1 1\n"
David Byers's avatar
David Byers committed
280
simple_expect "=1090 2 { [holl "Presentation .av nya. mten"] 0000 1 [holl "Presentation .av nya. medlemmar"] 0000 2 }" "lookup-z-name"
281
282
# 77:set-last-read
send "1091 77 3 4\n"
David Byers's avatar
David Byers committed
283
simple_expect "%1091 6 0" "set-last-read"
284
285
# 78:get-uconf-stat
send "1092 78 3\n"
David Byers's avatar
David Byers committed
286
simple_expect "=1092 [holl "Lappar .p. drren"] 00001000 0 77" "get-uconf-stat"
287
288
# 79:set-info
send "1093 79 10901 1 2 3 4 1080\n"
David Byers's avatar
David Byers committed
289
simple_expect "%1093 6 0" "set-info"
290
291
# 80:accept-async
send "1094 80 0 { }\n"
David Byers's avatar
David Byers committed
292
simple_expect "=1094" "accept-async"
293
294
# 81:query-async
send "1095 81\n"
David Byers's avatar
David Byers committed
295
simple_expect "=1095 0 \\*" "query-async"
296
297
# 82:user-active
send "1096 82\n"
David Byers's avatar
David Byers committed
298
simple_expect "=1096" "user-active"
299
300
# 83:who-is-on-dynamic
send "1097 83 1 1 0\n"
David Byers's avatar
David Byers committed
301
simple_expect "=1097 1 { 1 0 0 $any_num 11000000 [holl ""] }" "who-is-on-dynamic"
302
303
# 84:get-static-session-info
send "1098 84 1\n"
David Byers's avatar
David Byers committed
304
simple_expect "%1098 6 0" "get-static-session-info"
305
306
# 85:get-collate-table
send "1099 85\n"
David Byers's avatar
David Byers committed
307
308
309
310
unanchored_expect "^MRK:client0: =1099 256H" "get-collate-table start"
unanchored_expect "0123456789" "get-collate-table digits"
unanchored_expect "ABCDEFGHIJKLMNOPQRSTUVWXYZ" "get-collate-table upper"
unanchored_expect "ABCDEFGHIJKLMNOPQRSTUVWXYZ" "get-collate-table lower"
311
312
313
unanchored_expect "\377$nl" "collate end"
# 86:create-text
send "1100 86 [holl "some text"] 1 { 0 4 } 0 { }\n"
David Byers's avatar
David Byers committed
314
simple_expect "%1100 6 0" "create-text"
315
316
# 87:create-anonymous-text
send "1101 87 [holl "some text"] 1 { 0 4 } 0 { }\n"
David Byers's avatar
David Byers committed
317
simple_expect "%1101 6 0" "create-anonymous-text"
318
# 88:create-conf
David Byers's avatar
David Byers committed
319
320
send "1102 88 [holl "new conf"] 0000 0 { }\n" 
simple_expect "%1102 6 0" "create-conf"
321
send "1103 88 [holl "new conf"] 00000000 0 { }\n"
David Byers's avatar
David Byers committed
322
simple_expect "%1103 6 0" "create-conf"
323
# 89:create-person
David Byers's avatar
David Byers committed
324
send "1104 89 [holl "new 89 person"] [holl "89pwd"] 00000000 0 { }\n"
David Byers's avatar
David Byers committed
325
simple_expect "=1104 7" "create-person"
326
327
send "1104 62 7 [holl "89pwd"] 0\n"
simple_expect "=1104"
328
send "1105 83 1 1 0\n"
David Byers's avatar
David Byers committed
329
simple_expect "=1105 1 { 1 7 0 $any_num 01000000 [holl ""] }" "create-person"
330
send "1106 1\n"
David Byers's avatar
David Byers committed
331
simple_expect "=1106" "create-person"
332
send "1107 83 1 1 0\n"
David Byers's avatar
David Byers committed
333
simple_expect "=1107 1 { 1 0 0 $any_num 11000000 [holl ""] }" "create-person"
334
335
# 90:get-text-stat
send "1108 90 1\n"
David Byers's avatar
David Byers committed
336
simple_expect "%1108 14 1" "get-text-stat"
337
338
# 91:get-conf-stat
send "1109 91 1\n"
339
simple_expect "=1109 [holl "Presentation .av nya. mten"] 00001000 $any_time $any_time 0 0 0 0 0 0 77 77 0 1 0 0 0 \\*" "get-conf-stat"
340
341
# 92:modify-text-info
send "1110 92 1 0 { } 0 { }\n"
David Byers's avatar
David Byers committed
342
simple_expect "%1110 6 0" "modify-text-info"
343
344
# 93:modify-conf-info
send "1111 93 1 0 { } 0 { }\n"
David Byers's avatar
David Byers committed
345
simple_expect "%1111 6 0" "modify-conf-info"
346
347
# 94:get-info
send "1112 94\n"
David Byers's avatar
David Byers committed
348
simple_expect "=1112 $server_compat_version 1 2 3 4 0 0 \\*" "get-info"
349
350
# 95:modify-system-info
send "1113 95 0 { } 0 { }\n"
David Byers's avatar
David Byers committed
351
simple_expect "%1113 6 0" "modify-system-info"
352
353
# 96:query-predefined-aux-items
send "1114 96\n"
David Byers's avatar
David Byers committed
354
simple_expect "=1114 26 { 28 27 24 23 22 21 20 19 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 }" "query-predefined-aux-items"
355
356
# 97:set-expire
send "1115 97 1 76\n"
David Byers's avatar
David Byers committed
357
simple_expect "%1115 6 0" "set-expire"
358
359
# 98:query-read-texts
send "1116 98 6 6\n"
360
simple_expect "=1116 0 $any_time 6 255 0 0 \\* 0 $any_time 00000000" "query-read-texts"
361
362
# 99:get-membership
send "1117 99 6 0 10 1\n"
David Byers's avatar
David Byers committed
363
simple_expect "%1117 6 0" "get-membership"
364
365
# 100:add-member
send "1118 100 5 3 250 1 00000000\n"
David Byers's avatar
David Byers committed
366
simple_expect "%1118 6 0" "add-member"
367
368
# 101:get-members
send "1119 101 5 0 10\n"
David Byers's avatar
David Byers committed
369
simple_expect "=1119 1 { 5 5 $any_time 00000000 }" "get-members"
370
371
# 102:set-membership-type
send "1120 102 5 5 01000000\n"
David Byers's avatar
David Byers committed
372
simple_expect "%1120 6 0" "set-membership-type"
373
374
# 103:local-to-global
send "1121 103 1 1 20\n"
David Byers's avatar
David Byers committed
375
simple_expect "%1121 6 0" "local-to-global"
376
377
# 104:map_created_texts
send "1122 104 5 1 20\n"
David Byers's avatar
David Byers committed
378
simple_expect "%1122 6 0" "map-created-texts"
379
380
381
# 105:set-keep-commented
send "1123 105 1 99\n"
simple_expect "%1123 6 0" "set-keep-commented"
David Byers's avatar
David Byers committed
382
383
384
# 106:set-pers-flags
send "1124 106 5 10101010\n"
simple_expect "%1124 6 0" "set-pers-flags"
385

386

David Byers's avatar
David Byers committed
387
388
# 107:does not exist (change this when you add a call)
send "2000 107\n"
389
simple_expect "%2000 2 0"
390
# finally, check that 55=disconnect actually works without logging in.
391
392
send "2001 55 1\n"
simple_expect "=2001" "disconnect (no login)"
393
394
395
396
397
398
399
400
client_death 0

client_start 0
talk_to client 0
send "A\n"
send "[holl "DejaGnu test suite"]\n"
simple_expect "LysKOM" "connected"
# Turn of async messages
401
402
send "30000 80 0 { }\n"
simple_expect "=30000"
Per Cederqvist's avatar
Per Cederqvist committed
403
404

# Log in
405
406
send "30001 62 5 [holl "gazonk"] 0\n"
simple_expect "=30001"
Per Cederqvist's avatar
Per Cederqvist committed
407

408
409
send "30002 9 5 5\n"
simple_expect "=30002 $any_time 5 255 0 0 \\*"
Per Cederqvist's avatar
Per Cederqvist committed
410

411
412
send "30003 27 5 0 { }\n"
simple_expect "=30003"
Per Cederqvist's avatar
Per Cederqvist committed
413

414
415
send "30004 9 5 5\n"
simple_expect "=30004 $any_time 5 255 0 0 \\*"
Per Cederqvist's avatar
Per Cederqvist committed
416

417
send "30005 6 6 1\n"
418
simple_expect "=30005 [holl "DejaGnu test suite.unknown.@localhost"] 0000010000000000 00000000 $any_time 0 $any_num 1 0 0 0 0 0 0 1 0 0 1"
419
send "30006 6 6 0\n"
420
simple_expect "=30006 0H 0000010000000000 00000000 $any_time 0 $any_num 1 0 0 0 0 0 0 1 0 0 1"
Per Cederqvist's avatar
Per Cederqvist committed
421
422
423

talk_to client 0

424
425
426
427
send "30007 42 255\n"
simple_expect "=30007" "42=enable succeeded"
send "30008 44 0\n"
simple_expect "=30008" "44=shutdown-kom succeeded"
Per Cederqvist's avatar
Per Cederqvist committed
428
429
client_death 0
lyskomd_death