Test call 30-45.

src/server/testsuite/lyskomd.0/03.exp

@@ -3,7 +3,7 @@
 # The following objects are created in this test case:
 #   Conferences
 #    7 "(So called) Christian Music", later "PRIMa musik"
-#    9 "Temporary Sancturay"
+#    9 "Temporary Sancturay" (immediately deleted)
 #   Persons
 #    6 "Per Cederqvist"
 #         Member of 7.
@@ -11,8 +11,8 @@
 #         Member of 7.
 #   Texts
 #    1 "Old-style text 1"    0 7 6 1
-#    2 "Old-style text 2"    0 7 6 2
-#    3 "Old-style text 3"    0 7 6 3
+#    2 "Old-style text 2"    0 7 6 2 (deleted at call 28)
+#    3 "Old-style text 3"    0 7 6 3 (; 0 2 6 1 at call 29)
 #    4 "New-style text 4"    0 7 6 4; 15 6 6 1
 #    5 "New-style text 5"    0 7 6 5; 15 6 6 2
 #    6 "New-style text 6"    0 7 6 6; 15 8 6 1
@@ -22,7 +22,8 @@
 #      or set_client_version or any other new and fancy stuff.
 #    1 logged in as person 8; all available asyncs; uses user_active;
 #      calls set_client_version("dgt03", "sc 1").
-#    2 logged in as person 8 for brief moments.  Mostly not logged in.
+#    2 logged in as person 8 for brief moments.  Logged in invisibly
+#      as person 5 from the testing of call 8 and onwards.
 #      Default asyncs; does not us user_active or set_client_version.
 read_versions
 
@@ -589,49 +590,146 @@ simple_expect "=1167 $any_time 7 100 6 0 \\*"
 # call 28 is tested above
 
 # test call 29 (delete-text)
-send "1168 29 2\n"
-# FIXME: why no async message here?
-# simple_expect ":18 14 2 $any_time 6 0 16 1 2 { 0 7 6 2 } 0 \\*"
-simple_expect "=1168"
+send "1168 98 6 7\n"
+simple_expect "=1168 .*"
+send "1169 29 2\n"
+# No new'n'fancy async message here.
+simple_expect "=1169"
 
 talk_to client 1
-# FIXME: why is the text marked?
+# The text is marked since it is motd of conference 7.
 simple_expect ":18 14 2 $any_time 6 0 16 1 2 { 0 7 6 2 } 0 \\*"
 talk_to client 0
 
-send "1169 40 7 6\n"
-simple_expect "=1169"
-send "1170 9 6 7\n"
-simple_expect "=1170 $any_time 7 100 0 0 \\*"
-
-send "1171 27 7 1 { 1 }\n"
-simple_expect "=1171"
-send "1172 9 6 7\n"
-simple_expect "=1172 $any_time 7 100 2 0 \\*"
-
-# FIXME: test call 30
-# FIXME: test call 31
-# FIXME: test call 32
-# FIXME: test call 33
-# FIXME: test call 34
-# FIXME: test call 35
-# FIXME: test call 36
-# FIXME: test call 37
-# FIXME: test call 38
-# FIXME: test call 39
-# call 40 is tested above
-# FIXME: test call 41
-# FIXME: test call 42
-# FIXME: test call 43
-# FIXME: test call 44
-# FIXME: test call 45
+send "1170 40 7 6\n"
+simple_expect "=1170"
+send "1171 9 6 7\n"
+simple_expect "=1171 $any_time 7 100 0 0 \\*"
+
+send "1172 27 7 1 { 1 }\n"
+simple_expect "=1172"
+send "1173 9 6 7\n"
+simple_expect "=1173 $any_time 7 100 2 0 \\*"
+
+# test call 30 (add-recipient)
+send "1174 30 3 2 0\n"
+simple_expect "=1174"
+send "1175 26 3\n"
+# This is marked since text 3 is presentation of conf 7.
+simple_expect "=1175 $any_time 6 0 16 1 5 { 0 7 6 3 0 2 6 1 9 $any_time }"
+
+# test call 31 (sub-recipient)
+send "1176 31 3 2\n"
+simple_expect "=1176"
+send "1177 26 3\n"
+# This is marked since text 3 is presentation of conf 7.
+simple_expect "=1177 $any_time 6 0 16 1 2 { 0 7 6 3 }"
+
+# test call 32 (add-comment)
+send "1178 32 3 1\n"
+simple_expect "=1178"
+send "1179 26 3\n"
+# This is marked since text 3 is presentation of conf 7.
+simple_expect "=1179 $any_time 6 0 16 1 4 { 0 7 6 3 2 1 9 $any_time }"
+send "1180 26 1\n"
+simple_expect "=1180 $any_time 6 0 16 0 3 { 0 7 6 1 3 3 }"
+
+# test call 33 (sub-comment)
+send "1181 33 3 1\n"
+simple_expect "=1181"
+send "1182 26 3\n"
+# This is marked since text 3 is presentation of conf 7.
+simple_expect "=1182 $any_time 6 0 16 1 2 { 0 7 6 3 }"
+send "1183 26 1\n"
+simple_expect "=1183 $any_time 6 0 16 0 2 { 0 7 6 1 }"
+
+# test call 34 (get-map)
+send "1184 34 7 1 50\n"
+simple_expect "=1184 1 6 { 1 0 3 4 5 6 }"
+
+# test call 35 (get-time)
+send "1185 35\n"
+simple_expect "=1185 $any_time"
+
+# test call 36 (get-info-old)
+send "1186 36\n"
+simple_expect "=1186 $server_compat_version 1 2 3 4 0"
+
+# test call 37 (add-footnote)
+send "1187 37 3 1\n"
+simple_expect "=1187"
+send "1188 26 3\n"
+# This is marked since text 3 is presentation of conf 7.
+simple_expect "=1188 $any_time 6 0 16 1 4 { 0 7 6 3 4 1 9 $any_time }"
+send "1189 26 1\n"
+simple_expect "=1189 $any_time 6 0 16 0 3 { 0 7 6 1 5 3 }"
+
+# test call 38 (sub-footnote)
+send "1190 38 3 1\n"
+simple_expect "=1190"
+send "1191 26 3\n"
+# This is marked since text 3 is presentation of conf 7.
+simple_expect "=1191 $any_time 6 0 16 1 2 { 0 7 6 3 }"
+send "1192 26 1\n"
+simple_expect "=1192 $any_time 6 0 16 0 2 { 0 7 6 1 }"
+
+# test call 39 (who-is-on-old)
+send "1193 39\n"
+simple_expect "=1193 2 { 8 0 [holl "Accepting i-am-on"] 6 6 [holl "Running a test suite"] }"
+
+# call 40 (set-unread) is tested above
+
+# test call 41 (set-motd-of-lyskom)
+talk_to client 2
+send "1194 42 255\n"
+simple_expect "=1194"
+send "1195 41 7\n"
+simple_expect "=1195"
+send "1196 42 0\n"
+simple_expect "=1196"
+
+send "1197 36\n"
+simple_expect "=1197 $server_compat_version 1 2 3 4 7"
+
+# call 42 (enable) is tested above
+
+# test call 43 (sync-kom)
+send "1198 43\n"
+simple_expect "%1198 12 0"
+send "1199 42 255\n"
+simple_expect "=1199"
+send "1200 43\n"
+simple_expect ":0 7"
+simple_expect ":0 7"
+simple_expect "=1200"
+talk_to client 0
+simple_expect ":0 7"
+simple_expect ":0 7"
+talk_to client 1
+simple_expect ":0 7"
+simple_expect ":0 7"
+talk_to client 2
+send "1201 42 0\n"
+simple_expect "=1201"
+
+# test call 44 (shutdown-kom) is tested below
+
+# test call 45 (broadcast)
+send "1202 45 [holl "a broadcast message"]\n"
+simple_expect ":3 12 0 5 [holl "a broadcast message"]"
+simple_expect "=1202"
+talk_to client 1
+simple_expect ":3 12 0 5 [holl "a broadcast message"]"
+talk_to client 0
+simple_expect ":3 12 0 5 [holl "a broadcast message"]"
+
 # FIXME: test call 46
 # FIXME: test call 47
 # FIXME: test call 48
 # FIXME: test call 49
 # test call 50 (get-conf-stat-old)
-send "1173 50 7\n"
-simple_expect "=1173 [holl "PRIMa musik"] 0100 $any_time $any_time 6 3 7 8 4 2 144 2 1 6"
+send "1203 50 7\n"
+simple_expect "=1203 [holl "PRIMa musik"] 0100 $any_time $any_time 6 3 7 8 4 2 144 2 1 6"
 # FIXME: test call 51
 # FIXME: test call 52
 # FIXME: test call 53
@@ -660,8 +758,8 @@ simple_expect "=1173 [holl "PRIMa musik"] 0100 $any_time $any_time 6 3 7 8 4 2 1
 # FIXME: test call 76
 # FIXME: test call 77
 # test call 78 (get-uconf-stat)
-send "1174 78 7\n"
-simple_expect "=1174 [holl "PRIMa musik"] 01001000 6 144"
+send "1204 78 7\n"
+simple_expect "=1204 [holl "PRIMa musik"] 01001000 6 144"
 
 # FIXME: test call 79
 # call 80 is tested during startup of client 1.
@@ -691,32 +789,32 @@ simple_expect "=1174 [holl "PRIMa musik"] 01001000 6 144"
 # FIXME: test call 104
 
 # There is no call 105--yet.
-send "1175 105\n"
-simple_expect "%1175 2 0"
+send "1205 105\n"
+simple_expect "%1205 2 0"
 
 # There is no call 106--yet.
-send "1176 106\n"
-simple_expect "%1176 2 0"
+send "1206 106\n"
+simple_expect "%1206 2 0"
 
 # There is no call 107--yet.
-send "1177 107\n"
-simple_expect "%1177 2 0"
+send "1207 107\n"
+simple_expect "%1207 2 0"
 
 # There is no call 108--yet.
-send "1178 108\n"
-simple_expect "%1178 2 0"
+send "1208 108\n"
+simple_expect "%1208 2 0"
 
 # There is no call 109--yet.
-send "1179 109\n"
-simple_expect "%1179 2 0"
+send "1209 109\n"
+simple_expect "%1209 2 0"
 
 # There is no call 110--yet.
-send "1180 110\n"
-simple_expect "%1180 2 0"
+send "1210 110\n"
+simple_expect "%1210 2 0"
 
 talk_to client 1
-send "1181 55 2\n"
-simple_expect "=1181"
+send "1211 55 2\n"
+simple_expect "=1211"
 simple_expect ":2 13 8 2"
 client_death 1
 
@@ -724,15 +822,15 @@ client_death 1
 talk_to client 0
 simple_expect ":2 13 8 2"
 
-send "1182 62 5 [holl "bar"] 0\n"
+send "1212 62 5 [holl "bar"] 0\n"
 simple_expect ":2 13 6 1"
 simple_expect ":2 9 5 1"
-simple_expect "=1182"
+simple_expect "=1212"
 
-send "1183 42 255\n"
-simple_expect "=1183" "42=enable succeeded"
-send "1184 44 0\n"
-simple_expect "=1184" "44=shutdown-kom succeeded"
+send "1213 42 255\n"
+simple_expect "=1213" "42=enable succeeded"
+send "1214 44 0\n"
+simple_expect "=1214" "44=shutdown-kom succeeded"
 simple_expect ":2 13 5 1"
 client_death 0
 # FIXME: There are enqueued logout/disconnect messages to this client.