Commit 3e718519 authored by Per Cederqvist's avatar Per Cederqvist

Set allow_anon, and expect it to be set. Test call 92-94.

parent 19edf2ae
......@@ -15,7 +15,7 @@
# Texts
# 1 "Old-style text 1" 0 7 6 1
# 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)
# 3 "Old-style text 3" 0 7 6 3 (; 0 2 6 1 during 29..31)
# 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
......@@ -372,7 +372,7 @@ simple_expect "%1079 9 9"
send "1080 10 [holl "Temporary Sanctuary"] 1010\n"
simple_expect "=1080 9"
send "1081 78 9\n"
simple_expect "=1081 [holl "Temporary Sanctuary"] 10100000 0 77"
simple_expect "=1081 [holl "Temporary Sanctuary"] 10101000 0 77"
# test call 11 (delete-conf)
send "1082 11 9\n"
......@@ -1179,13 +1179,51 @@ if {$n_marks == 2} {
# test call 91 (get-conf-stat)
send "1328 91 10\n"
extracting_expect "=1328 [holl "aux in general"] 01000000 ($any_time) $any_time 8 0 8 0 8 0 77 0 1 0 0 1 { 1 14 8 $any_time 00000000 1 [holl "10"] }" time_c_10 1
extracting_expect "=1328 [holl "aux in general"] 01001000 ($any_time) $any_time 8 0 8 0 8 0 77 0 1 0 0 1 { 1 14 8 $any_time 00000000 1 [holl "10"] }" time_c_10 1
send "1329 91 10\n"
simple_expect "=1329 [holl "aux in general"] 01000000 $time_c_10 $time_c_10 8 0 8 0 8 0 77 0 1 0 0 1 { 1 14 8 $time_c_10 00000000 1 [holl "10"] }"
simple_expect "=1329 [holl "aux in general"] 01001000 $time_c_10 $time_c_10 8 0 8 0 8 0 77 0 1 0 0 1 { 1 14 8 $time_c_10 00000000 1 [holl "10"] }"
# test call 92 (modify-text-info)
# Add a short notice.
send "1330 92 3 0 { } 1 { 2 00000000 1 [holl "Du har fel"] }\n"
simple_expect "=1330"
send "1331 90 3\n"
# This text is marked twice: user area of person 6, presentation for 7.
simple_expect "=1331 $time_3 6 0 16 2 2 { 0 7 6 3 } 1 { 1 2 8 $any_time 00000000 1 [holl "Du har fel"] }"
# Remove it.
# FIXME: should we really be allowed to see the value?
send "1332 92 3 1 { 1 } 0 { }\n"
simple_expect "=1332"
send "1333 90 3\n"
# This text is marked twice: user area of person 6, presentation for 7.
simple_expect "=1333 $time_3 6 0 16 2 2 { 0 7 6 3 } 1 { 1 2 8 $any_time 10000000 1 [holl "Du har fel"] }"
# Add a couple of more comments
send "1334 92 3 0 { } 2 { 2 00000000 1 [holl "Du har massor fel"] 2 00000000 1 [holl "Du har felast av alla"] }\n"
simple_expect "=1334"
send "1335 90 3\n"
# This text is marked twice: user area of person 6, presentation for 7.
simple_expect "=1335 $time_3 6 0 16 2 2 { 0 7 6 3 } 3 { 1 2 8 $any_time 10000000 1 [holl "Du har fel"] 2 2 8 $any_time 00000000 1 [holl "Du har massor fel"] 3 2 8 $any_time 00000000 1 [holl "Du har felast av alla"] }"
# test call 93 (modify-conf-info)
send "1336 91 8\n"
# FIXME: should 8:redirect be inheritable?
# FIXME: should 10:alternate-name be inheritable?
extracting_expect "=1336 [holl "Kelly Talisman"] 10011000 ($any_time) $any_time 8 0 8 0 0 0 77 1 1 2 0 7 { 1 3 8 $any_time 00000000 1 [holl "C6 My Creator"] 2 3 8 $any_time 00000000 1 [holl "C7 Slightly offensive name, huh"] 3 8 8 $any_time 00000000 0 [holl "E-mail:kelly@hotbox.com"] 4 9 8 $any_time 00000000 1 [holl "compface must die"] 5 10 8 $any_time 00000000 0 [holl "Air"] 6 12 8 $any_time 00000000 1 [holl "PGP public key"] 7 13 8 $any_time 00000000 1 [holl "kelly@hotbox.com"] }" time_c_8 1
send "1337 91 8\n"
simple_expect "=1337 [holl "Kelly Talisman"] 10011000 $time_c_8 $time_7 8 0 8 0 0 0 77 1 1 2 0 7 { 1 3 8 $time_c_8 00000000 1 [holl "C6 My Creator"] 2 3 8 $time_c_8 00000000 1 [holl "C7 Slightly offensive name, huh"] 3 8 8 $time_c_8 00000000 0 [holl "E-mail:kelly@hotbox.com"] 4 9 8 $time_c_8 00000000 1 [holl "compface must die"] 5 10 8 $time_c_8 00000000 0 [holl "Air"] 6 12 8 $time_c_8 00000000 1 [holl "PGP public key"] 7 13 8 $time_c_8 00000000 1 [holl "kelly@hotbox.com"] }"
send "1338 93 8 2 { 7 1 } 1 { 13 00000000 1 [holl "kelly@lysator.liu.se"] }\n"
simple_expect "=1338"
send "1339 91 8\n"
simple_expect "=1339 [holl "Kelly Talisman"] 10011000 $time_c_8 $time_7 8 0 8 0 0 0 77 1 1 2 0 8 { 1 3 8 $time_c_8 10000000 1 [holl "C6 My Creator"] 2 3 8 $time_c_8 00000000 1 [holl "C7 Slightly offensive name, huh"] 3 8 8 $time_c_8 00000000 0 [holl "E-mail:kelly@hotbox.com"] 4 9 8 $time_c_8 00000000 1 [holl "compface must die"] 5 10 8 $time_c_8 00000000 0 [holl "Air"] 6 12 8 $time_c_8 00000000 1 [holl "PGP public key"] 7 13 8 $time_c_8 10000000 1 [holl "kelly@hotbox.com"] 8 13 8 $any_time 00000000 1 [holl "kelly@lysator.liu.se"] }"
# test call 94 (get-info)
send "1340 94\n"
simple_expect "=1340 $server_compat_version 1 2 3 4 0 0 \\*"
# FIXME: test call 92
# FIXME: test call 93
# FIXME: test call 94
# FIXME: test call 95
# FIXME: test call 96
# FIXME: test call 97
......@@ -1198,38 +1236,38 @@ simple_expect "=1329 [holl "aux in general"] 01000000 $time_c_10 $time_c_10 8 0
# FIXME: test call 104
# There is no call 105--yet.
send "1330 105\n"
simple_expect "%1330 2 0"
send "1341 105\n"
simple_expect "%1341 2 0"
# There is no call 106--yet.
send "1331 106\n"
simple_expect "%1331 2 0"
send "1342 106\n"
simple_expect "%1342 2 0"
# There is no call 107--yet.
send "1332 107\n"
simple_expect "%1332 2 0"
send "1343 107\n"
simple_expect "%1343 2 0"
# There is no call 108--yet.
send "1333 108\n"
simple_expect "%1333 2 0"
send "1344 108\n"
simple_expect "%1344 2 0"
# There is no call 109--yet.
send "1334 109\n"
simple_expect "%1334 2 0"
send "1345 109\n"
simple_expect "%1345 2 0"
# There is no call 110--yet.
send "1335 110\n"
simple_expect "%1335 2 0"
send "1346 110\n"
simple_expect "%1346 2 0"
# Disconnect all but the first session
talk_to client 2
send "1336 55 4\n"
simple_expect "=1336"
send "1347 55 4\n"
simple_expect "=1347"
client_death 2
talk_to client 1
send "1337 55 2\n"
simple_expect "=1337"
send "1348 55 2\n"
simple_expect "=1348"
simple_expect ":2 13 8 2"
client_death 1
......@@ -1237,21 +1275,21 @@ client_death 1
talk_to client 0
simple_expect ":2 13 8 2"
send "1338 62 5 [holl "bar"] 0\n"
send "1349 62 5 [holl "bar"] 0\n"
simple_expect ":2 13 6 1"
simple_expect ":2 9 5 1"
simple_expect "=1338"
simple_expect "=1349"
send "1339 42 255\n"
simple_expect "=1339" "42=enable succeeded"
send "1340 43\n"
send "1350 42 255\n"
simple_expect "=1350" "42=enable succeeded"
send "1351 43\n"
simple_expect ":0 7"
simple_expect ":0 7"
simple_expect "=1340"
simple_expect "=1351"
talk_to client 0
send "1341 44 0\n"
simple_expect "=1341" "44=shutdown-kom succeeded"
send "1352 44 0\n"
simple_expect "=1352" "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