From 527dbeaa3b80be4777ece26e2920a54339c57adc Mon Sep 17 00:00:00 2001
From: Per Cederqvist <ceder@lysator.liu.se>
Date: Thu, 15 Oct 1998 22:46:11 +0000
Subject: [PATCH] Test call 27-29, 40.

---
 src/server/testsuite/lyskomd.0/03.exp | 178 +++++++++++++++++++++-----
 1 file changed, 148 insertions(+), 30 deletions(-)

diff --git a/src/server/testsuite/lyskomd.0/03.exp b/src/server/testsuite/lyskomd.0/03.exp
index 26e1ac97d..452d0e691 100644
--- a/src/server/testsuite/lyskomd.0/03.exp
+++ b/src/server/testsuite/lyskomd.0/03.exp
@@ -442,7 +442,7 @@ simple_expect "=1109 0 \\*"
 send "1110 26 1\n"
 simple_expect "=1110 $any_time 6 0 16 0 2 { 0 7 6 1 }"
 
-# test call 27 (mark-as-read)
+# test call 27 (mark-as-read) and 40 (set-unread)
 send "1111 9 6 7\n"
 simple_expect "=1111 $any_time 7 100 0 0 \\*"
 
@@ -486,11 +486,129 @@ simple_expect "=1126"
 send "1127 9 6 7\n"
 simple_expect "=1127 $any_time 7 100 6 0 \\*"
 
-# FIXME: test call 27 more (sequential, other orders, more than a
-# single argument at the same time).
+send "1128 40 7 6\n"
+simple_expect "=1128"
+send "1129 9 6 7\n"
+simple_expect "=1129 $any_time 7 100 0 0 \\*"
+
+send "1130 27 7 6 { 1 2 3 4 5 6 }\n"
+simple_expect "=1130"
+send "1131 9 6 7\n"
+simple_expect "=1131 $any_time 7 100 6 0 \\*"
+
+send "1132 40 7 6\n"
+simple_expect "=1132"
+send "1133 9 6 7\n"
+simple_expect "=1133 $any_time 7 100 0 0 \\*"
+
+send "1134 27 7 6 { 6 5 4 3 2 1 }\n"
+simple_expect "=1134"
+send "1135 9 6 7\n"
+simple_expect "=1135 $any_time 7 100 6 0 \\*"
+
+send "1136 40 7 6\n"
+simple_expect "=1136"
+send "1137 9 6 7\n"
+simple_expect "=1137 $any_time 7 100 0 0 \\*"
+
+send "1138 27 7 6 { 1 3 5 2 4 6 }\n"
+simple_expect "=1138"
+send "1139 9 6 7\n"
+simple_expect "=1139 $any_time 7 100 6 0 \\*"
+
+send "1140 40 7 6\n"
+simple_expect "=1140"
+send "1141 9 6 7\n"
+simple_expect "=1141 $any_time 7 100 0 0 \\*"
+
+send "1142 27 7 6 { 2 4 6 1 3 5 }\n"
+simple_expect "=1142"
+send "1143 9 6 7\n"
+simple_expect "=1143 $any_time 7 100 6 0 \\*"
+
+send "1144 40 7 6\n"
+simple_expect "=1144"
+send "1145 9 6 7\n"
+simple_expect "=1145 $any_time 7 100 0 0 \\*"
+
+send "1146 27 7 1 { 1 }\n"
+simple_expect "=1146"
+send "1147 9 6 7\n"
+simple_expect "=1147 $any_time 7 100 1 0 \\*"
+
+send "1148 27 7 1 { 1 }\n"
+simple_expect "=1148"
+send "1149 9 6 7\n"
+simple_expect "=1149 $any_time 7 100 1 0 \\*"
+
+send "1150 27 7 1 { 2 }\n"
+simple_expect "=1150"
+send "1151 9 6 7\n"
+simple_expect "=1151 $any_time 7 100 2 0 \\*"
+
+send "1152 27 7 1 { 3 }\n"
+simple_expect "=1152"
+send "1153 9 6 7\n"
+simple_expect "=1153 $any_time 7 100 3 0 \\*"
+
+send "1154 27 7 1 { 4 }\n"
+simple_expect "=1154"
+send "1155 9 6 7\n"
+simple_expect "=1155 $any_time 7 100 4 0 \\*"
+
+send "1156 27 7 1 { 5 }\n"
+simple_expect "=1156"
+send "1157 9 6 7\n"
+simple_expect "=1157 $any_time 7 100 5 0 \\*"
+
+send "1158 27 7 1 { 6 }\n"
+simple_expect "=1158"
+send "1159 9 6 7\n"
+simple_expect "=1159 $any_time 7 100 6 0 \\*"
+
+send "1160 40 7 5\n"
+simple_expect "=1160"
+send "1161 9 6 7\n"
+simple_expect "=1161 $any_time 7 100 1 0 \\*"
+
+send "1162 40 7 2\n"
+simple_expect "=1162"
+send "1163 9 6 7\n"
+simple_expect "=1163 $any_time 7 100 4 0 \\*"
+
+send "1164 40 7 1\n"
+simple_expect "=1164"
+send "1165 9 6 7\n"
+simple_expect "=1165 $any_time 7 100 5 0 \\*"
+
+send "1166 40 7 0\n"
+simple_expect "=1166"
+send "1167 9 6 7\n"
+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"
+
+talk_to client 1
+# FIXME: why is the text marked?
+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 28
-# FIXME: test call 29
 # FIXME: test call 30
 # FIXME: test call 31
 # FIXME: test call 32
@@ -501,7 +619,7 @@ simple_expect "=1127 $any_time 7 100 6 0 \\*"
 # FIXME: test call 37
 # FIXME: test call 38
 # FIXME: test call 39
-# FIXME: test call 40
+# call 40 is tested above
 # FIXME: test call 41
 # FIXME: test call 42
 # FIXME: test call 43
@@ -512,8 +630,8 @@ simple_expect "=1127 $any_time 7 100 6 0 \\*"
 # FIXME: test call 48
 # FIXME: test call 49
 # test call 50 (get-conf-stat-old)
-send "1128 50 7\n"
-simple_expect "=1128 [holl "PRIMa musik"] 0100 $any_time $any_time 6 3 7 8 4 2 144 2 1 6"
+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"
 # FIXME: test call 51
 # FIXME: test call 52
 # FIXME: test call 53
@@ -542,8 +660,8 @@ simple_expect "=1128 [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 "1129 78 7\n"
-simple_expect "=1129 [holl "PRIMa musik"] 01001000 6 144"
+send "1174 78 7\n"
+simple_expect "=1174 [holl "PRIMa musik"] 01001000 6 144"
 
 # FIXME: test call 79
 # call 80 is tested during startup of client 1.
@@ -573,32 +691,32 @@ simple_expect "=1129 [holl "PRIMa musik"] 01001000 6 144"
 # FIXME: test call 104
 
 # There is no call 105--yet.
-send "1130 105\n"
-simple_expect "%1130 2 0"
+send "1175 105\n"
+simple_expect "%1175 2 0"
 
 # There is no call 106--yet.
-send "1131 106\n"
-simple_expect "%1131 2 0"
+send "1176 106\n"
+simple_expect "%1176 2 0"
 
 # There is no call 107--yet.
-send "1132 107\n"
-simple_expect "%1132 2 0"
+send "1177 107\n"
+simple_expect "%1177 2 0"
 
 # There is no call 108--yet.
-send "1133 108\n"
-simple_expect "%1133 2 0"
+send "1178 108\n"
+simple_expect "%1178 2 0"
 
 # There is no call 109--yet.
-send "1134 109\n"
-simple_expect "%1134 2 0"
+send "1179 109\n"
+simple_expect "%1179 2 0"
 
 # There is no call 110--yet.
-send "1135 110\n"
-simple_expect "%1135 2 0"
+send "1180 110\n"
+simple_expect "%1180 2 0"
 
 talk_to client 1
-send "1136 55 2\n"
-simple_expect "=1136"
+send "1181 55 2\n"
+simple_expect "=1181"
 simple_expect ":2 13 8 2"
 client_death 1
 
@@ -606,15 +724,15 @@ client_death 1
 talk_to client 0
 simple_expect ":2 13 8 2"
 
-send "1137 62 5 [holl "bar"] 0\n"
+send "1182 62 5 [holl "bar"] 0\n"
 simple_expect ":2 13 6 1"
 simple_expect ":2 9 5 1"
-simple_expect "=1137"
+simple_expect "=1182"
 
-send "1138 42 255\n"
-simple_expect "=1138" "42=enable succeeded"
-send "1139 44 0\n"
-simple_expect "=1139" "44=shutdown-kom succeeded"
+send "1183 42 255\n"
+simple_expect "=1183" "42=enable succeeded"
+send "1184 44 0\n"
+simple_expect "=1184" "44=shutdown-kom succeeded"
 simple_expect ":2 13 5 1"
 client_death 0
 # FIXME: There are enqueued logout/disconnect messages to this client.
-- 
GitLab