Skip to content

GitLab

Commit b05c8635 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

Test suite implemented.

parent 8ff5c829
Hide whitespace changes
Inline Side-by-side
src/server/testsuite/lyskomd.0/23.exp
View file @ b05c8635
......@@ -21,8 +21,15 @@
#
# Please mail bug reports to bug-lyskom@lysator.liu.se.
# Check the aux-item send-comments-to (33).
# FIXME (bug 314): When a mirror aux-item is implemented, this test
# should be extended with get-conf-stat calls that checks that the
# mirroring aux-item is set and removed appropriately.
# There are three major players:
#
# 5. (client 0) The administrator.
......@@ -31,9 +38,9 @@
#
# There are a few major conferences:
#
# 8. Created by 6. Secret. Members: 6.
# 8. Created by 6. Public. Members: 6.
# 9. Created by 6. Rd-prot. Members: 6.
# 10. Created by 6. Public. Members: 6.
# 10. Created by 6. Secret. Members: 6.
#
# Some texts:
#
......@@ -81,8 +88,10 @@ client_start 0
talk_to client 0
send "A3Hfoo\n"
simple_expect "LysKOM" "connected"
send "1000 62 5 [holl "gazonk"] 1\n"
simple_expect "=1000"
send "1000 94\n"
simple_expect "=1000 $server_compat_version 1 2 3 4 0 0 \\*"
send "1001 62 5 [holl "gazonk"] 1\n"
simple_expect "=1001"
# Populate the database.
......@@ -90,41 +99,41 @@ client_start 1
talk_to client 1
send "A3Hbar\n"
simple_expect "LysKOM"
send "1001 89 [holl "Person 6"] [holl "pswd6"] 00 0 { }\n"
simple_expect "=1001 6"
send "1002 62 6 [holl "pswd6"] 1\n"
simple_expect "=1002"
send "1002 89 [holl "Person 6"] [holl "pswd6"] 00 0 { }\n"
simple_expect "=1002 6"
send "1003 62 6 [holl "pswd6"] 1\n"
simple_expect "=1003"
client_start 2
talk_to client 2
send "A 10Hfoo@bar.se\n"
simple_expect "LysKOM"
send "1003 89 [holl "Person 7"] [holl "pswd7"] 00 0 { }\n"
simple_expect "=1003 7"
send "1004 62 7 [holl "pswd7"] 1\n"
simple_expect "=1004"
send "1004 89 [holl "Person 7"] [holl "pswd7"] 00 0 { }\n"
simple_expect "=1004 7"
send "1005 62 7 [holl "pswd7"] 1\n"
simple_expect "=1005"
talk_to client 1
send "1005 88 [holl "conf 8"] 0000 0 { }\n"
simple_expect "=1005 8"
send "1006 88 [holl "conf 9"] 1000 0 { }\n"
simple_expect "=1006 9"
send "1007 88 [holl "conf 10"] 1010 0 { }\n"
simple_expect "=1007 10"
send "1006 88 [holl "conf 8"] 0000 0 { }\n"
simple_expect "=1006 8"
send "1007 88 [holl "conf 9"] 1000 0 { }\n"
simple_expect "=1007 9"
send "1008 88 [holl "conf 10"] 1010 0 { }\n"
simple_expect "=1008 10"
# (Test to create a public-secret conf with four-bit conference type.)
send "1008 88 [holl "conf 11"] 0010 0 { }\n"
simple_expect "%1008 22 0"
# (Test to create a public-secret conf using create-conf-old.)
send "1009 10 [holl "conf 11"] 0010\n"
send "1009 88 [holl "conf 11"] 0010 0 { }\n"
simple_expect "%1009 22 0"
# (Test to create a public-secret conf using create-conf-old.)
send "1010 10 [holl "conf 11"] 0010\n"
simple_expect "%1010 22 0"
send "1010 86 [holl "text 1"] 1 { 0 8 } 0 { }\n"
simple_expect "=1010 1"
send "1011 86 [holl "text 2"] 1 { 0 9 } 0 { }\n"
simple_expect "=1011 2"
send "1012 86 [holl "text 3"] 1 { 0 10 } 0 { }\n"
simple_expect "=1012 3"
send "1011 86 [holl "text 1"] 1 { 0 8 } 0 { }\n"
simple_expect "=1011 1"
send "1012 86 [holl "text 2"] 1 { 0 9 } 0 { }\n"
simple_expect "=1012 2"
send "1013 86 [holl "text 3"] 1 { 0 10 } 0 { }\n"
simple_expect "=1013 3"
#
# Test send-comments-to
......@@ -135,65 +144,65 @@ set next_conf 11
# Attempt to set "0" while creating a conference.
# Should fail, since we can only set send-comments-to on letterboxes.
talk_to client 1
send "1013 88 [holl "conf $next_conf"] 00000000 1 { 33 00000000 1 [holl "0"] }\n"
extracting_expect "%1013 (48|49) 0" errorcode 1
send "1014 88 [holl "conf $next_conf I"] 00000000 1 { 33 00000000 1 [holl "0"] }\n"
extracting_expect "%1014 (48|49) 0" errorcode 1
want_illegal_aux_item "Correct error code for send-comments-to on conference"
# Attempt to set "1" while creating a conference.
# Should fail, since we can only set send-comments-to on letterboxes.
send "1014 88 [holl "conf $next_conf"] 00000000 1 { 33 00000000 1 [holl "1"] }\n"
extracting_expect "%1014 (48|49) 0" errorcode 1
send "1015 88 [holl "conf $next_conf II"] 00000000 1 { 33 00000000 1 [holl "1"] }\n"
extracting_expect "%1015 (48|49) 0" errorcode 1
want_illegal_aux_item "Correct error code for send-comments-to on conference"
# Attempt to set "0" while creating a text.
# Should fail, since we can only set send-comments-to on letterboxes.
send "1015 86 [holl "text N"] 1 { 0 1 } 1 { 33 00000000 1 [holl "0"] }\n"
extracting_expect "%1015 (48|49) 0" errorcode 1
send "1016 86 [holl "text N"] 1 { 0 1 } 1 { 33 00000000 1 [holl "0"] }\n"
extracting_expect "%1016 (48|49) 0" errorcode 1
want_illegal_aux_item "Correct error code for send-comments-to on texts"
# Attempt to set "1" while creating a text.
# Should fail, since we can only set send-comments-to on letterboxes.
send "1016 86 [holl "text N"] 1 { 0 1 } 1 { 33 00000000 1 [holl "1"] }\n"
extracting_expect "%1016 (48|49) 0" errorcode 1
send "1017 86 [holl "text N"] 1 { 0 1 } 1 { 33 00000000 1 [holl "1"] }\n"
extracting_expect "%1017 (48|49) 0" errorcode 1
want_illegal_aux_item "Correct error code for send-comments-to on texts"
# Attempt to set "0" on system while enabled.
# Should fail, since we can only set send-comments-to on letterboxes.
talk_to client 0
enable
send "1017 95 0 { } 1 { 33 00000000 1 [holl "0"] }\n"
extracting_expect "%1017 (48|49) 0" errorcode 1
send "1018 95 0 { } 1 { 33 00000000 1 [holl "0"] }\n"
extracting_expect "%1018 (48|49) 0" errorcode 1
want_illegal_aux_item "Correct error code for send-comments-to on system"
# Attempt to set "1" on system while enabled.
# Should fail, since we can only set send-comments-to on letterboxes.
send "1018 95 0 { } 1 { 33 00000000 1 [holl "1"] }\n"
extracting_expect "%1018 (48|49) 0" errorcode 1
send "1019 95 0 { } 1 { 33 00000000 1 [holl "1"] }\n"
extracting_expect "%1019 (48|49) 0" errorcode 1
want_illegal_aux_item "Correct error code for send-comments-to on system"
# Attempt to set "0" on an existing conference.
# Should fail, since we can only set send-comments-to on letterboxes.
talk_to client 1
send "1019 93 10 0 { } 1 { 33 00000000 1 [holl "0"] }\n"
extracting_expect "%1019 (48|49) 0" errorcode 1
send "1020 93 10 0 { } 1 { 33 00000000 1 [holl "0"] }\n"
extracting_expect "%1020 (48|49) 0" errorcode 1
want_illegal_aux_item "Correct error code for send-comments-to on conference"
# Attempt to set "1" on an existing conference.
# Should fail, since we can only set send-comments-to on letterboxes.
send "1020 93 10 0 { } 1 { 33 00000000 1 [holl "1"] }\n"
extracting_expect "%1020 (48|49) 0" errorcode 1
send "1021 93 10 0 { } 1 { 33 00000000 1 [holl "1"] }\n"
extracting_expect "%1021 (48|49) 0" errorcode 1
want_illegal_aux_item "Correct error code for send-comments-to on conference"
# Attempt to set "0" on an existing text.
# Should fail, since we can only set send-comments-to on letterboxes.
send "1021 92 3 0 { } 1 { 33 00000000 1 [holl "0"] }\n"
extracting_expect "%1021 (48|49) 0" errorcode 1
send "1022 92 3 0 { } 1 { 33 00000000 1 [holl "0"] }\n"
extracting_expect "%1022 (48|49) 0" errorcode 1
want_illegal_aux_item "Correct error code for send-comments-to on text"
# Attempt to set "1" on an existing text.
# Should fail, since we can only set send-comments-to on letterboxes.
send "1022 92 3 0 { } 1 { 33 00000000 1 [holl "1"] }\n"
extracting_expect "%1022 (48|49) 0" errorcode 1
send "1023 92 3 0 { } 1 { 33 00000000 1 [holl "1"] }\n"
extracting_expect "%1023 (48|49) 0" errorcode 1
want_illegal_aux_item "Correct error code for send-comments-to on text"
# Attempt to set "0" while creating a person.
......@@ -202,8 +211,8 @@ client_start 3
talk_to client 3
send "A4Hheja\n"
simple_expect "LysKOM"
send "1023 89 [holl "person $next_conf"] [holl "pwd"] 00000000 1 { 33 00000000 1 [holl "0"] }\n"
extracting_expect "=1023 (\[0-9\]*)" conf_no 1
send "1024 89 [holl "person $next_conf III"] [holl "pwd"] 00000000 1 { 33 00000000 1 [holl "0"] }\n"
extracting_expect "=1024 (\[0-9\]*)" conf_no 1
setup_xfail "*-*-*" "Bug 146"
if {$conf_no == $next_conf} {
pass
......@@ -215,183 +224,353 @@ if {$conf_no == $next_conf} {
# Attempt to set "1" while creating a person.
# Should work.
send "1024 89 [holl "person $next_conf"] [holl "pwd"] 00000000 1 { 33 00000000 1 [holl "1"] }\n"
simple_expect "=1024 $next_conf"
send "1025 89 [holl "person $next_conf IV"] [holl "pwd"] 00000000 1 { 33 00000000 1 [holl "1"] }\n"
simple_expect "=1025 $next_conf"
set conf_IV $next_conf
set next_conf [expr {1 + $next_conf}]
# Attempt to set "99" while creating a person.
# Should fail, because no such conference exists, but because there is
# no mirror aux item (bug 314) this will work.
send "1025 89 [holl "person $next_conf"] [holl "pwd"] 00000000 1 { 33 00000000 1 [holl "99"] }\n"
send "1026 89 [holl "person $next_conf V"] [holl "pwd"] 00000000 1 { 33 00000000 1 [holl "99"] }\n"
# We need a version of simple_expect with a list of expected errors...
# For now, we only list the error we expect.
simple_expect "=1025 $next_conf"
setup_xfail "*-*-*" "Bug 314"
fail "Creation of person with send-comments-to to nonexisting conference forbidden"
set next_conf [expr {1 + $next_conf}]
if {0} {
pass "Creation of person with send-comments-to to nonexisting conference forbidden"
simple_expect "%1026 49 0"
} else {
fail "Creation of person with send-comments-to to nonexisting conference forbidden"
simple_expect "=1026 $next_conf"
set next_conf [expr {1 + $next_conf}]
}
# Attempt to set "8", a secret conference, while creating a person.
# Attempt to set "10", a secret conference, while creating a person.
# Should fail, because no such conference exists, but because there is
# no mirror aux item (bug 314) this will work.
send "1026 89 [holl "person $next_conf"] [holl "pwd"] 00000000 1 { 33 00000000 1 [holl "8"] }\n"
# We need a version of simple_expect with a list of expected errors...
# For now, we only list the error we expect.
simple_expect "=1026 $next_conf"
send "1027 89 [holl "person $next_conf VI"] [holl "pwd"] 00000000 1 { 33 00000000 1 [holl "10"] }\n"
setup_xfail "*-*-*" "Bug 314"
fail "Creation of person with send-comments-to to secret conference forbidden"
set next_conf [expr {1 + $next_conf}]
if {0} {
pass "Creation of person with send-comments-to to secret conference forbidden"
simple_expect "=1027 49 0"
} else {
fail "Creation of person with send-comments-to to secret conference forbidden"
simple_expect "=1027 $next_conf"
set next_conf [expr {1 + $next_conf}]
}
# Attempt to set "9", an rd-prot conference, while creating a person.
# Should work.
send "1027 89 [holl "person $next_conf"] [holl "pwd"] 00000000 1 { 33 00000000 1 [holl "9"] }\n"
simple_expect "=1027 $next_conf"
send "1028 89 [holl "person $next_conf VII"] [holl "pwd"] 00000000 1 { 33 00000000 1 [holl "9"] }\n"
simple_expect "=1028 $next_conf"
set created_person $next_conf
set next_conf [expr {1 + $next_conf}]
# Set "9", an rd-prot conference, on person 6.
# Should work.
talk_to client 1
send "1028 93 6 0 { } 1 { 33 00000000 1 [holl "9"] }\n"
simple_expect "=1028"
send "1029 93 6 0 { } 1 { 33 00000000 1 [holl "9"] }\n"
simple_expect "=1029"
# Set "10", a secret conference that is visible to the administrator,
# on person 6. Should fail -- there can be only one send-comments-to.
talk_to client 0
enable
send "1029 93 6 0 { } 1 { 33 00000000 1 [holl "10"] }\n"
send "1030 93 6 0 { } 1 { 33 00000000 1 [holl "10"] }\n"
setup_xfail "*-*-*" "Bug 327"
if {0} {
simple_expect "%1029 49 0"
} else {
fail "unique dosen't mean globally unique"
simple_expect "=1029"
simple_expect "=1030"
# Remove the send-comments-to.
send "900 93 6 1 { 2 } 0 { }\n"
simple_expect "=900"
}
# Remove the send-comments-to.
send "1030 93 6 1 { 1 } 0 { }\n"
simple_expect "=1030"
send "1031 93 6 1 { 1 } 0 { }\n"
simple_expect "=1031"
# Set "10", a secret conference that is visible to the
# administrator and to person 6. Should work.
send "1031 93 6 0 { } 1 { 33 00000000 1 [holl "10"] }\n"
simple_expect "=1031"
send "1032 93 6 0 { } 1 { 33 00000000 1 [holl "10"] }\n"
simple_expect "=1032"
# Fetch the conference status of person 6. The aux-item should be
# visible.
FIXME
send "1033 91 6\n"
extracting_expect "=1033 [holl "Person 6"] 10011000 $any_time $any_time 6 0 6 0 0 0 77 77 1 1 0 0 1 { (2|3) 33 5 $any_time 00000000 1 [holl "10"] }" auxno 1
setup_xfail "*-*-*" "Bug 327"
if {$auxno == 2} {
pass "Correct aux-no"
} else {
# We were able to create an aux-item above that should have failed,
# so the numbers are now wrong.
fail "Correct aux-no"
}
# Fetch the conference status of person 6. The aux-item should be
# visible.
talk_to client 1
FIXME
send "1034 91 6\n"
simple_expect "=1034 [holl "Person 6"] 10011000 $any_time $any_time 6 0 6 0 0 0 77 77 1 1 0 0 1 { $auxno 33 5 $any_time 00000000 1 [holl "10"] }"
# Fetch the conference status of person 6. The aux-item should not be
# visible, because conference 10 is secret and person 7 isn't allowed
# to see it.
talk_to client 2
# (Check that the various get-conf-stat* calls really fail.)
send "1032 13 10 0\n"
simple_expect "%1032 9 10"
send "1033 13 10 1\n"
simple_expect "%1033 9 10"
send "1034 50 10\n"
simple_expect "%1034 9 10"
send "1035 91 10\n"
send "1035 13 10 0\n"
simple_expect "%1035 9 10"
FIXME
send "1036 13 10 1\n"
simple_expect "%1036 9 10"
send "1037 50 10\n"
simple_expect "%1037 9 10"
send "1038 91 10\n"
simple_expect "%1038 9 10"
send "1039 91 6\n"
setup_xfail "*-*-*" "Bug 314"
if {0} {
pass "Person 7 cannot see conference 10"
simple_expect "=1039 [holl "Person 6"] 10011000 $any_time $any_time 6 0 6 0 0 0 77 77 1 1 0 0 0 { }"
} else {
fail "Person 7 cannot see conference 10"
simple_expect "=1039 [holl "Person 6"] 10011000 $any_time $any_time 6 0 6 0 0 0 77 77 1 1 0 0 1 { $auxno 33 5 $any_time 00000000 1 [holl "10"] }"
}
# Remove the aux-item.
talk_to client 0
FIXME
send "1040 93 6 1 { $auxno } 0 { }\n"
simple_expect "=1040"
# Attempt to set some bad values, including the empty string, negative
# numbers, hexadecimal numbers, whitespace-separated digits, et c.
# They should all fail.
talk_to client 1
FIXME
send "1041 93 6 0 { } 1 { 33 00000000 1 [holl ""] }\n"
simple_expect "%1041 48 0"
send "1042 93 6 0 { } 1 { 33 00000000 1 [holl " "] }\n"
simple_expect "%1042 48 0"
send "1043 93 6 0 { } 1 { 33 00000000 1 [holl "-1"] }\n"
simple_expect "%1043 48 0"
send "1044 93 6 0 { } 1 { 33 00000000 1 [holl "-6"] }\n"
simple_expect "%1044 48 0"
send "1045 93 6 0 { } 1 { 33 00000000 1 [holl "a"] }\n"
simple_expect "%1045 48 0"
send "1046 93 6 0 { } 1 { 33 00000000 1 [holl "0a"] }\n"
simple_expect "%1046 48 0"
send "1047 93 6 0 { } 1 { 33 00000000 1 [holl "0x0a"] }\n"
simple_expect "%1047 48 0"
send "1048 93 6 0 { } 1 { 33 00000000 1 [holl "06"] }\n"
simple_expect "%1048 48 0"
send "1049 93 6 0 { } 1 { 33 00000000 1 [holl "5 2"] }\n"
simple_expect "%1049 48 0"
send "1050 93 6 0 { } 1 { 33 00000000 1 [holl "5 5"] }\n"
simple_expect "%1050 48 0"
send "1051 93 6 0 { } 1 { 33 00000000 1 [holl "5 "] }\n"
simple_expect "%1051 48 0"
send "1052 93 6 0 { } 1 { 33 00000000 1 [holl " 5 "] }\n"
simple_expect "%1052 48 0"
send "1053 93 6 0 { } 1 { 33 00000000 1 [holl " 5"] }\n"
simple_expect "%1053 48 0"
send "1054 93 6 0 { } 1 { 33 00000000 1 [holl "0 "] }\n"
simple_expect "%1054 48 0"
send "1055 93 6 0 { } 1 { 33 00000000 1 [holl " 0 "] }\n"
simple_expect "%1055 48 0"
send "1056 93 6 0 { } 1 { 33 00000000 1 [holl " 0"] }\n"
simple_expect "%1056 48 0"
# Set to "0".
FIXME
send "1057 94\n"
simple_expect "=1057 $server_compat_version 1 2 3 4 0 0 \\*"
send "1058 93 6 0 { } 1 { 33 00000000 1 [holl "0"] }\n"
simple_expect "=1058"
send "1059 94\n"
simple_expect "=1059 $server_compat_version 1 2 3 4 0 0 \\*"
# Check visibility for person 6.
FIXME
send "1060 91 6\n"
extracting_expect "=1060 [holl "Person 6"] 10011000 $any_time $any_time 6 0 6 0 0 0 77 77 1 1 0 0 1 { (\[0-9\]*) 33 6 $any_time 00000000 1 [holl "0"] }" zeroauxno 1
if {$zeroauxno == $auxno + 1} {
pass "Correct aux-no II"
} else {
fail "Correct aux-no II"
}
# Check visibility for person 7.
talk_to client 2
FIXME
send "1061 91 6\n"
simple_expect "=1061 [holl "Person 6"] 10011000 $any_time $any_time 6 0 6 0 0 0 77 77 1 1 0 0 1 { $zeroauxno 33 6 $any_time 00000000 1 [holl "0"] }"
# Remove "0".
# Remove "0" and set to "6".
talk_to client 1
FIXME
# Set to "6".
FIXME
send "1062 93 6 1 { $zeroauxno } 1 { 33 00000000 1 [holl "6"] }\n"
simple_expect "=1062"
send "1063 94\n"
simple_expect "=1063 $server_compat_version 1 2 3 4 0 0 \\*"
# Check visibility for person 6.
FIXME
send "1064 91 6\n"
extracting_expect "=1064 [holl "Person 6"] 10011000 $any_time $any_time 6 0 6 0 0 0 77 77 1 1 0 0 1 { (\[0-9\]*) 33 6 $any_time 00000000 1 [holl "6"] }" sixauxno 1
if {$sixauxno == $zeroauxno + 1} {
pass "Correct aux-no III"
} else {
fail "Correct aux-no III"
}
# Check visibility for person 7.
talk_to client 2
FIXME
send "1065 91 6\n"
simple_expect "=1065 [holl "Person 6"] 10011000 $any_time $any_time 6 0 6 0 0 0 77 77 1 1 0 0 1 { $sixauxno 33 6 $any_time 00000000 1 [holl "6"] }"
# Remove "6".
talk_to client 0
FIXME
send "1066 93 6 1 { $sixauxno } 0 { }\n"
simple_expect "=1066"
# Set to "8".
# Set to "10".
talk_to client 1
FIXME
send "1067 93 6 0 { } 1 { 33 00000000 1 [holl "10"] }\n"
simple_expect "=1067"
# Check visibility for person 6.
FIXME
send "1068 91 6\n"
extracting_expect "=1068 [holl "Person 6"] 10011000 $any_time $any_time 6 0 6 0 0 0 77 77 1 1 0 0 1 { (\[0-9\]*) 33 6 $any_time 00000000 1 [holl "10"] }" tenauxno 1
if {$tenauxno == $sixauxno + 1} {
pass "Correct aux-no IV"
} else {
fail "Correct aux-no IV"
}
# Check visibility for person 7.
# Check visibility for person 7. Should not be visible.
talk_to client 2
FIXME
send "1069 91 6\n"
setup_xfail "*-*-*" "Bug 314"
if {0} {
pass "Person 7 cannot see conference 10"
simple_expect "=1069 [holl "Person 6"] 10011000 $any_time $any_time 6 0 6 0 0 0 77 77 1 1 0 0 0 { }"
} else {
fail "Person 7 cannot see conference 10"
simple_expect "=1069 [holl "Person 6"] 10011000 $any_time $any_time 6 0 6 0 0 0 77 77 1 1 0 0 1 { $tenauxno 33 6 $any_time 00000000 1 [holl "10"] }"
}
# Remove "8".
# Remove "10".
talk_to client 1
FIXME
send "1070 93 6 1 { $tenauxno } 0 { }\n"
simple_expect "=1070"
# Change "10" to "9". Should fail, since "10" is already removed.
# FIXME (bug 328): What error code should be returned? Currently,
# 49=aux-item-permission is returned, but is that really proper?
send "1071 93 6 1 { $tenauxno } 1 { 33 00000000 1 [holl "9"] }\n"
simple_expect "%1071 49 0"
# Set to "9".
FIXME
send "1072 93 6 0 { } 1 { 33 00000000 1 [holl "9"] }\n"
simple_expect "=1072"
# Check visibility for person 6.
FIXME
send "1073 91 6\n"
extracting_expect "=1073 [holl "Person 6"] 10011000 $any_time $any_time 6 0 6 0 0 0 77 77 1 1 0 0 1 { (\[0-9\]*) 33 6 $any_time 00000000 1 [holl "9"] }" nineauxno 1
if {$nineauxno == $tenauxno + 1} {
pass "Correct aux-no V"
} else {
fail "Correct aux-no V"
}
# Check visibility for person 7.
talk_to client 2
FIXME
send "1074 91 6\n"
simple_expect "=1074 [holl "Person 6"] 10011000 $any_time $any_time 6 0 6 0 0 0 77 77 1 1 0 0 1 { $nineauxno 33 6 $any_time 00000000 1 [holl "9"] }"
# Remove "9".
talk_to client 1
FIXME
send "1075 93 6 1 { $nineauxno } 0 { }\n"
simple_expect "=1075"
# Set to "10".
FIXME
# Set to "8".
send "1076 93 6 0 { } 1 { 33 00000000 2 [holl "8"] }\n"
simple_expect "=1076"
# Check visibility for person 6.
FIXME
send "1077 91 6\n"
extracting_expect "=1077 [holl "Person 6"] 10011000 $any_time $any_time 6 0 6 0 0 0 77 77 1 1 0 0 1 { (\[0-9\]*) 33 6 $any_time 00000000 2 [holl "8"] }" eightauxno 1
if {$eightauxno == $nineauxno + 1} {
pass "Correct aux-no VI"
} else {
fail "Correct aux-no VI"
}
# Check visibility for person 7. Should not be visible.
# Check visibility for person 7.
talk_to client 2
FIXME
send "1078 91 6\n"
simple_expect "=1078 [holl "Person 6"] 10011000 $any_time $any_time 6 0 6 0 0 0 77 77 1 1 0 0 1 { $eightauxno 33 6 $any_time 00000000 2 [holl "8"] }"
# Remove "10".
# Remove "8".
talk_to client 1
FIXME
send "1079 93 6 1 { $eightauxno } 0 { }\n"
simple_expect "=1079"
# Attempt to set to "10" on person 7. Should fail, because this is a
# unique aux-item, and person 7 isn't allowed to see conference 10.
# See the 2001-12-12 00:30 entry on bug 25 for more info.
# This will work, due to bug 25 and bug 314.
FIXME
# This will work, due to bug 314.
talk_to client 0
send "1080 93 7 0 { } 1 { 33 00000000 1 [holl "10"] }\n"
setup_xfail "*-*-*" "Bug 314"
if {0} {
pass "Cannot create global-unique link to object that the owner cannot see"
simple_expect "%1080 49 0"
} else {
fail "Cannot create global-unique link to object that the owner cannot see"
simple_expect "=1080"
send "901 93 7 1 { 1 } 0 { }\n"
simple_expect "=901"
}
# FIXME: Finally, let the administrator enable and fetch everything,
# to make sure that no stray aux-items (or mirror aux-items) remain.
# Finally, let the administrator fetch everything, to make sure
# that no stray aux-items (or mirror aux-items) remain.
send "1081 93 $conf_no 1 { 1 } 0 { }\n"
simple_expect "=1081"
send "1082 93 $conf_IV 1 { 1 } 0 { }\n"
simple_expect "=1082"
send "1083 93 $created_person 1 { 1 } 0 { }\n"
simple_expect "=1083"
send "1084 94\n"
simple_expect "=1084 $server_compat_version 1 2 3 4 0 0 \\*"
send "1085 91 1\n"
simple_expect "=1085 [holl "Presentation .av nya. mten"] 00001000 $any_time $any_time 0 0 0 0 0 0 77 77 0 1 0 0 0 \\*"
send "1086 91 2\n"
simple_expect "=1086 [holl "Presentation .av nya. medlemmar"] 00001000 $any_time $any_time 0 0 0 0 0 0 77 77 0 1 0 0 0 \\*"
send "1087 91 3\n"
simple_expect "=1087 [holl "Lappar .p. drren"] 00001000 $any_time $any_time 0 0 0 0 0 0 77 77 0 1 0 0 0 \\*"
send "1088 91 4\n"
simple_expect "=1088 [holl "Nyheter om LysKOM"] 00001000 $any_time $any_time 0 0 0 0 0 0 77 77 0 1 0 0 0 \\*"
send "1089 91 5\n"
simple_expect "=1089 [holl "Administratr .fr. LysKOM"] 10011000 $any_time $any_time 5 0 5 0 0 0 77 77 1 1 0 0 0 \\*"
send "1090 91 6\n"
simple_expect "=1090 [holl "Person 6"] 10011000 $any_time $any_time 6 0 6 0 0 0 77 77 1 1 0 0 0 \\*"
send "1091 91 7\n"
simple_expect "=1091 [holl "Person 7"] 10011000 $any_time $any_time 7 0 7 0 0 0 77 77 1 1 0 0 0 \\*"
send "1092 91 8\n"
simple_expect "=1092 [holl "conf 8"] 00001000 $any_time $any_time 6 0 6 0 6 0 77 77 0 1 1 0 0 \\*"
send "1093 91 9\n"
simple_expect "=1093 [holl "conf 9"] 10001000 $any_time $any_time 6 0 6 0 6 0 77 77 0 1 1 0 0 \\*"
send "1094 91 10\n"
simple_expect "=1094 [holl "conf 10"] 10101000 $any_time $any_time 6 0 6 0 6 0 77 77 0 1 1 0 0 \\*"
send "1095 91 $conf_no\n"
simple_expect "=1095 [holl "person 11 III"] 10011000 $any_time $any_time $conf_no 0 $conf_no 0 0 0 77 77 1 1 0 0 0 \\*"
send "1096 91 $conf_IV\n"
simple_expect "=1096 [holl "person $conf_IV IV"] 10011000 $any_time $any_time $conf_IV 0 $conf_IV 0 0 0 77 77 1 1 0 0 0 \\*"
send "1097 91 $created_person\n"
simple_expect "=1097 [holl "person $created_person VII"] 10011000 $any_time $any_time $created_person 0 $created_person 0 0 0 77 77 1 1 0 0 0 \\*"
send "1098 90 1\n"
simple_expect "=1098 $any_time 6 0 6 0 2 { 0 8 6 1 } 0 \\*"
send "1098 90 2\n"
simple_expect "=1098 $any_time 6 0 6 0 2 { 0 9 6 1 } 0 \\*"
send "1098 90 3\n"
simple_expect "=1098 $any_time 6 0 6 0 2 { 0 10 6 1 } 0 \\*"
#
# Shut down
......@@ -400,8 +579,8 @@ FIXME
talk_to client 0
enable
send "1036 44 0\n"
simple_expect "=1036"
send "1099 44 0\n"
simple_expect "=1099"
client_death 0
client_death 1
......
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