Commit 957899f9 authored by Per Cederqvist's avatar Per Cederqvist

Test calls 86-90.

parent 0ebd599b
......@@ -4,11 +4,14 @@
# Conferences
# 7 "(So called) Christian Music", later "PRIMa musik"
# 9 "Temporary Sancturay" (immediately deleted)
# 10 "aux in general" (created at call 88)
# 11 "aux non anon" (created at call 88)
# Persons
# 6 "Per Cederqvist"
# Member of 7.
# 8 "Kelly Talisman" (all available aux-infos are set)
# Member of 7.
# 12 "aux person"
# Texts
# 1 "Old-style text 1" 0 7 6 1
# 2 "Old-style text 2" 0 7 6 2 (deleted at call 28)
......@@ -18,6 +21,8 @@
# 6 "New-style text 6" 0 7 6 6; 15 8 6 1
# 7 "New-style text 7" 0 1 6 1; 15 8 6 2
# 8 "Anon text 8" 0 1 6 2
# 9 "aux-style text 9" 0 7 6 7
# 10 "aux-style anon 10" 0 7 6 7 (FAQ for conf 10 and 11 after call 88)
# Sessions
# 1 logged in as person 6; default asyncs; does not use user_active
# or set_client_version or any other new and fancy stuff.
......@@ -1126,11 +1131,52 @@ unanchored_expect "ABCDEFGHIJKLMNOPQRSTUVWXYZ" "collate upper"
unanchored_expect "ABCDEFGHIJKLMNOPQRSTUVWXYZ" "collate lower"
unanchored_expect "\377$nl" "collate end"
# FIXME: test call 86
# FIXME: test call 87
# FIXME: test call 88
# FIXME: test call 89
# FIXME: test call 90
# test call 86 (create-text)
send "1322 86 [holl "aux-style text 9"] 2 { 0 7 6 7 } 1 { 1 11111111 7 [holl "text/plain"] }\n"
extracting_expect ":16 0 9 ($any_time) 8 0 16 0 2 { 0 7 6 7 }" time_9 1
# The last three bits in aux-flags had no defined meaning when this
# test was written.
simple_expect ":18 15 9 $time_9 8 0 16 0 2 { 0 7 6 7 } 1 { 1 1 8 $time_9 00000111 1 [holl "text/plain"] }"
simple_expect "=1322 9"
talk_to client 0
simple_expect ":16 0 9 $time_9 8 0 16 0 2 { 0 7 6 7 }"
talk_to client 1
# test call 87 (create-anonymous-text)
send "1323 87 [holl "aux-style anon 10"] 2 { 0 7 6 7 } 1 { 1 11111111 7 [holl "text/plain"] }\n"
extracting_expect ":16 0 10 ($any_time) 0 0 17 0 2 { 0 7 6 8 }" time_10 1
# The last three bits in aux-flags had no defined meaning when this
# test was written.
simple_expect ":18 15 10 $time_10 0 0 17 0 2 { 0 7 6 8 } 1 { 1 1 0 $time_10 00000111 1 [holl "text/plain"] }"
simple_expect "=1323 10"
talk_to client 0
simple_expect ":16 0 10 $time_10 0 0 17 0 2 { 0 7 6 8 }"
talk_to client 1
# test call 88 (create-conf)
send "1324 88 [holl "aux in general"] 0100 1 { 14 00000000 1 [holl "10"] }\n"
simple_expect "=1324 10"
send "1325 88 [holl "aux non anon"] 01000000 1 { 14 00000000 1 [holl "10"] }\n"
simple_expect "=1325 11"
# test call 89 (create-person)
send "1326 89 [holl "aux person"] [holl "secret"] 1 { 12 00000000 1 [holl "public"] }\n"
simple_expect "=1326 12"
# test call 90 (get-text-stat)
send "1327 90 10\n"
# Text 10 should have two marks since it is the FAQ of conferences 10 and 11.
extracting_expect "=1327 $time_10 0 0 17 (0|2) 2 { 0 7 6 8 } 1 { 1 1 0 $time_10 00000111 1 [holl "text/plain"] }" n_marks 1
setup_xfail "*"
if {$n_marks == 2} {
pass "correct number of marks on text 10"
} else {
fail "correct number of marks on text 10"
}
# FIXME: test call 91
# FIXME: test call 92
# FIXME: test call 93
......@@ -1147,32 +1193,38 @@ unanchored_expect "\377$nl" "collate end"
# FIXME: test call 104
# There is no call 105--yet.
send "1322 105\n"
simple_expect "%1322 2 0"
send "1328 105\n"
simple_expect "%1328 2 0"
# There is no call 106--yet.
send "1323 106\n"
simple_expect "%1323 2 0"
send "1329 106\n"
simple_expect "%1329 2 0"
# There is no call 107--yet.
send "1324 107\n"
simple_expect "%1324 2 0"
send "1330 107\n"
simple_expect "%1330 2 0"
# There is no call 108--yet.
send "1325 108\n"
simple_expect "%1325 2 0"
send "1331 108\n"
simple_expect "%1331 2 0"
# There is no call 109--yet.
send "1326 109\n"
simple_expect "%1326 2 0"
send "1332 109\n"
simple_expect "%1332 2 0"
# There is no call 110--yet.
send "1327 110\n"
simple_expect "%1327 2 0"
send "1333 110\n"
simple_expect "%1333 2 0"
# Disconnect all but the first session
talk_to client 2
send "1334 55 4\n"
simple_expect "=1334"
client_death 2
talk_to client 1
send "1328 55 2\n"
simple_expect "=1328"
send "1335 55 2\n"
simple_expect "=1335"
simple_expect ":2 13 8 2"
client_death 1
......@@ -1180,15 +1232,21 @@ client_death 1
talk_to client 0
simple_expect ":2 13 8 2"
send "1329 62 5 [holl "bar"] 0\n"
send "1336 62 5 [holl "bar"] 0\n"
simple_expect ":2 13 6 1"
simple_expect ":2 9 5 1"
simple_expect "=1329"
simple_expect "=1336"
send "1337 42 255\n"
simple_expect "=1337" "42=enable succeeded"
send "1338 43\n"
simple_expect ":0 7"
simple_expect ":0 7"
simple_expect "=1338"
talk_to client 0
send "1330 42 255\n"
simple_expect "=1330" "42=enable succeeded"
send "1331 44 0\n"
simple_expect "=1331" "44=shutdown-kom succeeded"
send "1339 44 0\n"
simple_expect "=1339" "44=shutdown-kom succeeded"
simple_expect ":2 13 5 1"
client_death 0
lyskomd_death
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment