Skip to content

GitLab

Commit 2a70df69 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

Test 107=query-read-texts and 108=get-membership.

parent c2782069
Hide whitespace changes
Inline Side-by-side
src/server/testsuite/lyskomd.0/bug-37-2.exp
View file @ 2a70df69
......@@ -27,13 +27,10 @@
#
# Variant two: test with all memberships being secret.
#
# We also check get-membership, get-membership-old, query-read-texts,
# and query-read-texts-old.
# We also check get-membership, get-membership-10, get-membership-old,
# query-read-texts, query-read-texts-10 and query-read-texts-old.
#
# While we are at it, we also test the unread-is-secret personal flag.
#
# FIXME (bug 590): If the request requested in bug 590 is implemented,
# it should also be checked here.
#
# Startup and create the players
......@@ -149,7 +146,7 @@ talk_to client 0
send "1025 52 6\n"
simple_expect "=1025 0 \\*"
# foo does get-membership of foo. Should return 4 { 6 10 11 12 }.
# foo does get-membership-10 of foo. Should return 4 { 6 10 11 12 }.
send "1026 99 6 0 100 1\n"
simple_expect "=1026 4 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 0 \\* 7 $any_time 10100000 2 $any_time 11 200 0 0 \\* 7 $any_time 10100000 3 $any_time 12 200 0 0 \\* 7 $any_time 10100000 }"
......@@ -157,7 +154,11 @@ simple_expect "=1026 4 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 1 $any_t
send "1027 46 6 0 100 1\n"
simple_expect "=1027 4 { $any_time 6 255 0 0 \\* $any_time 10 200 0 0 \\* $any_time 11 200 0 0 \\* $any_time 12 200 0 0 \\* }"
# foo does query-read-texts on foo and 10, 11 and 12. Should get results.
# foo does get-membership of foo. Should return 4 { 6 10 11 12 }.
send "1026 108 6 0 100 1 0\n"
simple_expect "=1026 4 { 0 $any_time 6 255 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 \\* 7 $any_time 10100000 2 $any_time 11 200 0 \\* 7 $any_time 10100000 3 $any_time 12 200 0 \\* 7 $any_time 10100000 }"
# foo does query-read-texts-10 on foo and 10, 11 and 12. Should get results.
send "1028 98 6 10\n"
simple_expect "=1028 1 $any_time 10 200 0 0 \\* 7 $any_time 10100000"
send "1029 98 6 11\n"
......@@ -173,7 +174,13 @@ simple_expect "=1032 $any_time 11 200 0 0 \\*"
send "1033 9 6 12\n"
simple_expect "=1033 $any_time 12 200 0 0 \\*"
# foo does <FIXME (bug 590)> on foo and 10, 11 and 12. Should get results.
# foo does query-read-texts on foo and 10, 11 and 12. Should get results.
send "1028 107 6 10 1 0\n"
simple_expect "=1028 1 $any_time 10 200 0 \\* 7 $any_time 10100000"
send "1029 107 6 11 1 0\n"
simple_expect "=1029 2 $any_time 11 200 0 \\* 7 $any_time 10100000"
send "1030 107 6 12 1 0\n"
simple_expect "=1030 3 $any_time 12 200 0 \\* 7 $any_time 10100000"
#
# gazonk examines foo.
......@@ -185,7 +192,7 @@ talk_to client 3
send "1034 52 6\n"
simple_expect "=1034 0 \\*"
# gazonk does get-membership of foo. Should return 1 { 6 }.
# gazonk does get-membership-10 of foo. Should return 1 { 6 }.
send "1035 99 6 0 100 1\n"
simple_expect "=1035 1 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 }"
# (Just a quick check: does the renumber work properly even if we don't
......@@ -199,7 +206,17 @@ simple_expect "%1037 19 1"
send "1038 46 6 0 100 1\n"
simple_expect "=1038 1 { $any_time 6 255 0 0 \\* }"
# gazonk does query-read-texts on foo and 10, 11 and 12. All should fail.
# gazonk does get-membership of foo. Should return 1 { 6 }.
send "1035 108 6 0 100 1 0\n"
simple_expect "=1035 1 { 0 $any_time 6 255 0 \\* 6 $any_time 00000000 }"
# (Just a quick check: does the renumber work properly even if we don't
# start from the beginning of the list?)
send "1036 108 6 2 100 1 0\n"
simple_expect "%1036 19 2"
send "1037 108 6 1 100 1 0\n"
simple_expect "%1037 19 1"
# gazonk does query-read-texts-10 on foo and 10, 11 and 12. All should fail.
send "1039 98 6 10\n"
simple_expect "%1039 9 10"
send "1040 98 6 11\n"
......@@ -215,7 +232,13 @@ simple_expect "%1043 13 11"
send "1044 9 6 12\n"
simple_expect "%1044 13 12"
# gazonk does <FIXME (bug 590)> on foo and 10, 11 and 12. 10 should fail.
# gazonk does query-read-texts on foo and 10, 11 and 12. All should fail.
send "1039 107 6 10 1 0\n"
simple_expect "%1039 9 10"
send "1040 107 6 11 1 0\n"
simple_expect "%1040 13 11"
send "1041 107 6 12 1 0\n"
simple_expect "%1041 13 12"
#
# gazonk examines bar.
......@@ -225,7 +248,7 @@ simple_expect "%1044 13 12"
send "1045 52 7\n"
good_bad_expect "%1045 10 7" "=0 \\*" "Bug 37"
# gazonk does get-membership of bar. Should return undefined-person.
# gazonk does get-membership-10 of bar. Should return undefined-person.
send "1046 99 7 0 100 1\n"
simple_expect "%1046 10 7"
......@@ -233,7 +256,11 @@ simple_expect "%1046 10 7"
send "1047 46 7 0 100 1\n"
simple_expect "%1047 10 7"
# gazonk does query-read-texts on bar and 10, 11 and 12. undefined-person.
# gazonk does get-membership of bar. Should return undefined-person.
send "1046 108 7 0 100 1 0\n"
simple_expect "%1046 10 7"
# gazonk does query-read-texts-10 on bar and 10, 11 and 12. undefined-person.
send "1048 98 7 10\n"
simple_expect "%1048 10 7"
send "1049 98 7 11\n"
......@@ -249,7 +276,13 @@ simple_expect "%1052 10 7"
send "1053 9 7 12\n"
simple_expect "%1053 10 7"
# gazonk does <FIXME (bug 590)> on bar and 10, 11 and 12. undefined-person.
# gazonk does query-read-texts on bar and 10, 11 and 12. undefined-person.
send "1048 107 7 10 1 0\n"
simple_expect "%1048 10 7"
send "1049 107 7 11 1 0\n"
simple_expect "%1049 10 7"
send "1050 107 7 12 1 0\n"
simple_expect "%1050 10 7"
#
# gazonk examines citrus.
......@@ -259,7 +292,7 @@ simple_expect "%1053 10 7"
send "1054 52 8\n"
simple_expect "=1054 0 \\*"
# gazonk does get-membership of citrus. Should return 1 { 6 }.
# gazonk does get-membership-10 of citrus. Should return 1 { 6 }.
send "1055 99 8 0 100 1\n"
simple_expect "=1055 1 { 0 $any_time 8 255 0 0 \\* 8 $any_time 00000000 }"
......@@ -267,7 +300,11 @@ simple_expect "=1055 1 { 0 $any_time 8 255 0 0 \\* 8 $any_time 00000000 }"
send "1056 46 8 0 100 1\n"
simple_expect "=1056 1 { $any_time 8 255 0 0 \\* }"
# gazonk does query-read-texts on citrus and 10, 11 and 12. All should fail.
# gazonk does get-membership of citrus. Should return 1 { 6 }.
send "1055 108 8 0 100 1 0\n"
simple_expect "=1055 1 { 0 $any_time 8 255 0 \\* 8 $any_time 00000000 }"
# gazonk does query-read-texts-10 on citrus and 10, 11 and 12. All fails.
send "1057 98 8 10\n"
simple_expect "%1057 9 10"
send "1058 98 8 11\n"
......@@ -283,7 +320,13 @@ simple_expect "%1061 13 11"
send "1062 9 8 12\n"
simple_expect "%1062 13 12"
# gazonk does <FIXME (bug 590)> on citrus and 10, 11 and 12. All should fail.
# gazonk does query-read-texts on citrus and 10, 11 and 12. All should fail.
send "1057 107 8 10 1 0\n"
simple_expect "%1057 9 10"
send "1058 107 8 11 1 0\n"
simple_expect "%1058 13 11"
send "1059 107 8 12 1 0\n"
simple_expect "%1059 13 12"
#
# foo writes a text with secret, rd-prot and public as recipients.
......@@ -301,7 +344,7 @@ simple_expect "=1063 1"
send "1064 52 6\n"
simple_expect "=1064 3 { 10 11 12 }"
# foo does get-membership of foo. Should return 4 { 6 10 11 12 }.
# foo does get-membership-10 of foo. Should return 4 { 6 10 11 12 }.
send "1065 99 6 0 100 1\n"
simple_expect "=1065 4 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 0 \\* 7 $any_time 10100000 2 $any_time 11 200 0 0 \\* 7 $any_time 10100000 3 $any_time 12 200 0 0 \\* 7 $any_time 10100000 }"
......@@ -309,7 +352,11 @@ simple_expect "=1065 4 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 1 $any_t
send "1066 46 6 0 100 1\n"
simple_expect "=1066 4 { $any_time 6 255 0 0 \\* $any_time 10 200 0 0 \\* $any_time 11 200 0 0 \\* $any_time 12 200 0 0 \\* }"
# foo does query-read-texts on foo and 10, 11 and 12. Should get results.
# foo does get-membership of foo. Should return 4 { 6 10 11 12 }.
send "1065 108 6 0 100 1 0\n"
simple_expect "=1065 4 { 0 $any_time 6 255 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 \\* 7 $any_time 10100000 2 $any_time 11 200 0 \\* 7 $any_time 10100000 3 $any_time 12 200 0 \\* 7 $any_time 10100000 }"
# foo does query-read-texts-10 on foo and 10, 11 and 12. Should get results.
send "1067 98 6 10\n"
simple_expect "=1067 1 $any_time 10 200 0 0 \\* 7 $any_time 10100000"
send "1068 98 6 11\n"
......@@ -325,7 +372,13 @@ simple_expect "=1071 $any_time 11 200 0 0 \\*"
send "1072 9 6 12\n"
simple_expect "=1072 $any_time 12 200 0 0 \\*"
# foo does <FIXME (bug 590)> on foo and 10, 11 and 12. Should get results.
# foo does query-read-texts on foo and 10, 11 and 12. Should get results.
send "1067 107 6 10 1 0\n"
simple_expect "=1067 1 $any_time 10 200 0 \\* 7 $any_time 10100000"
send "1068 107 6 11 1 0\n"
simple_expect "=1068 2 $any_time 11 200 0 \\* 7 $any_time 10100000"
send "1069 107 6 12 1 0\n"
simple_expect "=1069 3 $any_time 12 200 0 \\* 7 $any_time 10100000"
#
# gazonk examines foo.
......@@ -337,7 +390,7 @@ talk_to client 3
send "1073 52 6\n"
simple_expect "=1073 0 \\*"
# gazonk does get-membership of foo. Should return 1 { 6 }.
# gazonk does get-membership-10 of foo. Should return 1 { 6 }.
send "1074 99 6 0 100 1\n"
simple_expect "=1074 1 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 }"
......@@ -345,7 +398,11 @@ simple_expect "=1074 1 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 }"
send "1075 46 6 0 100 1\n"
simple_expect "=1075 1 { $any_time 6 255 0 0 \\* }"
# gazonk does query-read-texts on foo and 10, 11 and 12. All should fail.
# gazonk does get-membership of foo. Should return 1 { 6 }.
send "1074 108 6 0 100 1 0\n"
simple_expect "=1074 1 { 0 $any_time 6 255 0 \\* 6 $any_time 00000000 }"
# gazonk does query-read-texts-10 on foo and 10, 11 and 12. All should fail.
send "1076 98 6 10\n"
simple_expect "%1076 9 10"
send "1077 98 6 11\n"
......@@ -361,9 +418,13 @@ simple_expect "%1080 13 11"
send "1081 9 6 12\n"
simple_expect "%1081 13 12"
# gazonk does <FIXME (bug 590)> on foo and 10, 11 and 12. All should fail.
# gazonk does query-read-texts on foo and 10, 11 and 12. All should fail.
send "1076 107 6 10 1 0\n"
simple_expect "%1076 9 10"
send "1077 107 6 11 1 0\n"
simple_expect "%1077 13 11"
send "1078 107 6 12 1 0\n"
simple_expect "%1078 13 12"
#
# gazonk examines bar
......@@ -373,7 +434,7 @@ simple_expect "%1081 13 12"
send "1082 52 7\n"
good_bad_expect "%1082 10 7" "=0 \\*" "Bug 37"
# gazonk does get-membership of bar. Should return undefined-person.
# gazonk does get-membership-10 of bar. Should return undefined-person.
send "1083 99 7 0 100 1\n"
simple_expect "%1083 10 7"
......@@ -381,7 +442,11 @@ simple_expect "%1083 10 7"
send "1084 46 7 0 100 1\n"
simple_expect "%1084 10 7"
# gazonk does query-read-texts on bar and 10, 11 and 12. undefined-person.
# gazonk does get-membership of bar. Should return undefined-person.
send "1083 108 7 0 100 1 0\n"
simple_expect "%1083 10 7"
# gazonk does query-read-texts-10 on bar and 10, 11 and 12. undefined-person.
send "1085 98 7 10\n"
simple_expect "%1085 10 7"
send "1086 98 7 11\n"
......@@ -397,8 +462,13 @@ simple_expect "%1089 10 7"
send "1090 9 7 12\n"
simple_expect "%1090 10 7"
# gazonk does <FIXME (bug 590)> on bar and 10, 11 and 12. undefined-person.
# gazonk does query-read-texts on bar and 10, 11 and 12. undefined-person.
send "1085 107 7 10 1 0\n"
simple_expect "%1085 10 7"
send "1086 107 7 11 1 0\n"
simple_expect "%1086 10 7"
send "1087 107 7 12 1 0\n"
simple_expect "%1087 10 7"
#
# gazonk examines citrus.
......@@ -408,7 +478,7 @@ simple_expect "%1090 10 7"
send "1091 52 8\n"
simple_expect "=1091 0 \\*"
# gazonk does get-membership of citrus. Should return 1 { 6 }.
# gazonk does get-membership-10 of citrus. Should return 1 { 6 }.
send "1092 99 8 0 100 1\n"
simple_expect "=1092 1 { 0 $any_time 8 255 0 0 \\* 8 $any_time 00000000 }"
......@@ -416,7 +486,11 @@ simple_expect "=1092 1 { 0 $any_time 8 255 0 0 \\* 8 $any_time 00000000 }"
send "1093 46 8 0 100 1\n"
simple_expect "=1093 1 { $any_time 8 255 0 0 \\* }"
# gazonk does query-read-texts on citrus and 10, 11 and 12. All should fail.
# gazonk does get-membership of citrus. Should return 1 { 6 }.
send "1092 108 8 0 100 1 0\n"
simple_expect "=1092 1 { 0 $any_time 8 255 0 \\* 8 $any_time 00000000 }"
# gazonk does query-read-texts-10 on citrus and 10, 11 and 12. All fails.
send "1094 98 8 10\n"
simple_expect "%1094 9 10"
send "1095 98 8 11\n"
......@@ -432,7 +506,13 @@ simple_expect "%1098 13 11"
send "1099 9 8 12\n"
simple_expect "%1099 13 12"
# gazonk does <FIXME (bug 590)> on citrus and 10, 11 and 12. All should fail.
# gazonk does query-read-texts on citrus and 10, 11 and 12. All should fail.
send "1094 107 8 10 1 0\n"
simple_expect "%1094 9 10"
send "1095 107 8 11 1 0\n"
simple_expect "%1095 13 11"
send "1096 107 8 12 1 0\n"
simple_expect "%1096 13 12"
#
......@@ -476,7 +556,7 @@ talk_to client 0
send "1109 52 6\n"
simple_expect "=1109 0 \\*"
# foo does get-membership of foo. Should return 4 { 6 10 11 12 }.
# foo does get-membership-10 of foo. Should return 4 { 6 10 11 12 }.
send "1110 99 6 0 100 1\n"
simple_expect "=1110 4 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 1 $any_time 10 200 1 0 \\* 7 $any_time 10100000 2 $any_time 11 200 1 0 \\* 7 $any_time 10100000 3 $any_time 12 200 1 0 \\* 7 $any_time 10100000 }"
......@@ -484,7 +564,11 @@ simple_expect "=1110 4 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 1 $any_t
send "1111 46 6 0 100 1\n"
simple_expect "=1111 4 { $any_time 6 255 0 0 \\* $any_time 10 200 1 0 \\* $any_time 11 200 1 0 \\* $any_time 12 200 1 0 \\* }"
# foo does query-read-texts on foo and 10, 11 and 12. Should get results.
# foo does get-membership of foo. Should return 4 { 6 10 11 12 }.
send "1110 108 6 0 100 1 0\n"
simple_expect "=1110 4 { 0 $any_time 6 255 0 \\* 6 $any_time 00000000 1 $any_time 10 200 1 { 1 1 } 7 $any_time 10100000 2 $any_time 11 200 1 { 1 1 } 7 $any_time 10100000 3 $any_time 12 200 1 { 1 1 } 7 $any_time 10100000 }"
# foo does query-read-texts-10 on foo and 10, 11 and 12. Should get results.
send "1112 98 6 10\n"
simple_expect "=1112 1 $any_time 10 200 1 0 \\* 7 $any_time 10100000"
send "1113 98 6 11\n"
......@@ -500,7 +584,13 @@ simple_expect "=1116 $any_time 11 200 1 0 \\*"
send "1117 9 6 12\n"
simple_expect "=1117 $any_time 12 200 1 0 \\*"
# foo does <FIXME (bug 590)> on foo and 10, 11 and 12. Should get results.
# foo does query-read-texts on foo and 10, 11 and 12. Should get results.
send "1112 107 6 10 1 0\n"
simple_expect "=1112 1 $any_time 10 200 1 { 1 1 } 7 $any_time 10100000"
send "1113 107 6 11 1 0\n"
simple_expect "=1113 2 $any_time 11 200 1 { 1 1 } 7 $any_time 10100000"
send "1114 107 6 12 1 0\n"
simple_expect "=1114 3 $any_time 12 200 1 { 1 1 } 7 $any_time 10100000"
#
# gazonk examines foo.
......@@ -512,7 +602,7 @@ talk_to client 3
send "1118 52 6\n"
simple_expect "=1118 0 \\*"
# gazonk does get-membership of foo. Should return 1 { 6 }.
# gazonk does get-membership-10 of foo. Should return 1 { 6 }.
send "1119 99 6 0 100 1\n"
simple_expect "=1119 1 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 }"
......@@ -520,7 +610,11 @@ simple_expect "=1119 1 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 }"
send "1120 46 6 0 100 1\n"
simple_expect "=1120 1 { $any_time 6 255 0 0 \\* }"
# gazonk does query-read-texts on foo and 10, 11 and 12. All should fail.
# gazonk does get-membership of foo. Should return 1 { 6 }.
send "1119 108 6 0 100 1 0\n"
simple_expect "=1119 1 { 0 $any_time 6 255 0 \\* 6 $any_time 00000000 }"
# gazonk does query-read-texts-10 on foo and 10, 11 and 12. All should fail.
send "1121 98 6 10\n"
simple_expect "%1121 9 10"
send "1122 98 6 11\n"
......@@ -536,7 +630,13 @@ simple_expect "%1125 13 11"
send "1126 9 6 12\n"
simple_expect "%1126 13 12"
# gazonk does <FIXME (bug 590)> on foo and 10, 11 and 12. All should fail.
# gazonk does query-read-texts on foo and 10, 11 and 12. All should fail.
send "1121 107 6 10 1 0\n"
simple_expect "%1121 9 10"
send "1122 107 6 11 1 0\n"
simple_expect "%1122 13 11"
send "1123 107 6 12 1 0\n"
simple_expect "%1123 13 12"
#
# gazonk examines bar.
......@@ -546,7 +646,7 @@ simple_expect "%1126 13 12"
send "1127 52 7\n"
good_bad_expect "%1127 10 7" "=0 \\*" "Bug 37"
# gazonk does get-membership of bar. Should return undefined-person.
# gazonk does get-membership-10 of bar. Should return undefined-person.
send "1128 99 7 0 100 1\n"
simple_expect "%1128 10 7"
......@@ -554,7 +654,11 @@ simple_expect "%1128 10 7"
send "1129 46 7 0 100 1\n"
simple_expect "%1129 10 7"
# gazonk does query-read-texts on bar and 10, 11 and 12. undefined-person.
# gazonk does get-membership of bar. Should return undefined-person.
send "1128 108 7 0 100 1 0\n"
simple_expect "%1128 10 7"
# gazonk does query-read-texts-10 on bar and 10, 11 and 12. undefined-person.
send "1130 98 7 10\n"
simple_expect "%1130 10 7"
send "1131 98 7 11\n"
......@@ -570,7 +674,13 @@ simple_expect "%1134 10 7"
send "1135 9 7 12\n"
simple_expect "%1135 10 7"
# gazonk does <FIXME (bug 590)> on bar and 10, 11 and 12. undefined-person.
# gazonk does query-read-texts on bar and 10, 11 and 12. undefined-person.
send "1130 107 7 10 1 0\n"
simple_expect "%1130 10 7"
send "1131 107 7 11 1 0\n"
simple_expect "%1131 10 7"
send "1132 107 7 12 1 0\n"
simple_expect "%1132 10 7"
#
# gazonk examines citrus.
......@@ -580,7 +690,7 @@ simple_expect "%1135 10 7"
send "1136 52 8\n"
simple_expect "=1136 0 \\*"
# gazonk does get-membership of citrus. Should return 1 { 6 }.
# gazonk does get-membership-10 of citrus. Should return 1 { 6 }.
send "1137 99 8 0 100 1\n"
simple_expect "=1137 1 { 0 $any_time 8 255 0 0 \\* 8 $any_time 00000000 }"
......@@ -588,7 +698,11 @@ simple_expect "=1137 1 { 0 $any_time 8 255 0 0 \\* 8 $any_time 00000000 }"
send "1138 46 8 0 100 1\n"
simple_expect "=1138 1 { $any_time 8 255 0 0 \\* }"
# gazonk does query-read-texts on citrus and 10, 11 and 12. All should fail.
# gazonk does get-membership of citrus. Should return 1 { 6 }.
send "1137 108 8 0 100 1 0\n"
simple_expect "=1137 1 { 0 $any_time 8 255 0 \\* 8 $any_time 00000000 }"
# gazonk does query-read-texts-10 on citrus and 10, 11 and 12. All should fail.
send "1139 98 8 10\n"
simple_expect "%1139 9 10"
send "1140 98 8 11\n"
......@@ -604,7 +718,13 @@ simple_expect "%1143 13 11"
send "1144 9 8 12\n"
simple_expect "%1144 13 12"
# gazonk does <FIXME (bug 590)> on citrus and 10, 11 and 12. All should fail.
# gazonk does query-read-texts on citrus and 10, 11 and 12. All should fail.
send "1139 107 8 10 1 0\n"
simple_expect "%1139 9 10"
send "1140 107 8 11 1 0\n"
simple_expect "%1140 13 11"
send "1141 107 8 12 1 0\n"
simple_expect "%1141 13 12"
#
# gazonk examines the conferences
......
src/server/testsuite/lyskomd.0/bug-37-3.exp
View file @ 2a70df69
......@@ -27,13 +27,10 @@
#
# Variant three: the observer is supervisor of all conferences.
#
# We also check get-membership, get-membership-old, query-read-texts,
# and query-read-texts-old.
# We also check get-membership, get-membership-10, get-membership-old,
# query-read-texts, query-read-texts-10, and query-read-texts-old.
#
# While we are at it, we also test the unread-is-secret personal flag.
#
# FIXME (bug 590): If the request requested in bug 590 is implemented,
# it should also be checked here.
#
# Startup and create the players
......@@ -157,7 +154,7 @@ talk_to client 0
send "1025 52 6\n"
simple_expect "=1025 0 \\*"
# foo does get-membership of foo. Should return 4 { 6 10 11 12 }.
# foo does get-membership-10 of foo. Should return 4 { 6 10 11 12 }.
send "1026 99 6 0 100 1\n"
simple_expect "=1026 4 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000 }"
......@@ -165,7 +162,11 @@ simple_expect "=1026 4 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 1 $any_t
send "1027 46 6 0 100 1\n"
simple_expect "=1027 4 { $any_time 6 255 0 0 \\* $any_time 10 200 0 0 \\* $any_time 11 200 0 0 \\* $any_time 12 200 0 0 \\* }"
# foo does query-read-texts on foo and 10, 11 and 12. Should get results.
# foo does get-membership of foo. Should return 4 { 6 10 11 12 }.
send "1026 108 6 0 100 1 0\n"
simple_expect "=1026 4 { 0 $any_time 6 255 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 \\* 9 $any_time 10000000 }"
# foo does query-read-texts-10 on foo and 10, 11 and 12. Should get results.
send "1028 98 6 10\n"
simple_expect "=1028 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000"
send "1029 98 6 11\n"
......@@ -181,7 +182,13 @@ simple_expect "=1032 $any_time 11 200 0 0 \\*"
send "1033 9 6 12\n"
simple_expect "=1033 $any_time 12 200 0 0 \\*"
# foo does <FIXME (bug 590)> on foo and 10, 11 and 12. Should get results.
# foo does query-read-texts on foo and 10, 11 and 12. Should get results.
send "1028 107 6 10 1 0\n"
simple_expect "=1028 1 $any_time 10 200 0 \\* 9 $any_time 10000000"
send "1029 107 6 11 1 0\n"
simple_expect "=1029 2 $any_time 11 200 0 \\* 9 $any_time 10000000"
send "1030 107 6 12 1 0\n"
simple_expect "=1030 3 $any_time 12 200 0 \\* 9 $any_time 10000000"
#
# gazonk examines foo.
......@@ -193,7 +200,7 @@ talk_to client 3
send "1034 52 6\n"
simple_expect "=1034 0 \\*"
# gazonk does get-membership of foo. Should return 4 { 6 10 11 12 }.
# gazonk does get-membership-10 of foo. Should return 4 { 6 10 11 12 }.
send "1035 99 6 0 100 1\n"
simple_expect "=1035 4 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000 }"
# (Just a quick check: does the renumber work properly even if we don't
......@@ -206,7 +213,16 @@ simple_expect "=1036 2 { 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000 3 $any_
send "1037 46 6 0 100 1\n"
simple_expect "=1037 4 { $any_time 6 255 0 0 \\* $any_time 10 200 0 0 \\* $any_time 11 200 0 0 \\* $any_time 12 200 0 0 \\* }"
# gazonk does query-read-texts on foo and 10, 11 and 12.
# gazonk does get-membership of foo. Should return 4 { 6 10 11 12 }.
send "1035 108 6 0 100 1 0\n"
simple_expect "=1035 4 { 0 $any_time 6 255 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 \\* 9 $any_time 10000000 }"
# (Just a quick check: does the renumber work properly even if we don't
# start from the beginning of the list?) (Hmm. No renumber in this
# variant. Oh well.)
send "1036 108 6 2 100 1 0\n"
simple_expect "=1036 2 { 2 $any_time 11 200 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 \\* 9 $any_time 10000000 }"
# gazonk does query-read-texts-10 on foo and 10, 11 and 12.
send "1038 98 6 10\n"
simple_expect "=1038 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000"
send "1039 98 6 11\n"
......@@ -222,7 +238,13 @@ simple_expect "=1042 $any_time 11 200 0 0 \\*"
send "1043 9 6 12\n"
simple_expect "=1043 $any_time 12 200 0 0 \\*"
# gazonk does <FIXME (bug 590)> on foo and 10, 11 and 12.
# gazonk does query-read-texts on foo and 10, 11 and 12.
send "1038 107 6 10 1 0\n"
simple_expect "=1038 1 $any_time 10 200 0 \\* 9 $any_time 10000000"
send "1039 107 6 11 1 0\n"
simple_expect "=1039 2 $any_time 11 200 0 \\* 9 $any_time 10000000"
send "1040 107 6 12 1 0\n"
simple_expect "=1040 3 $any_time 12 200 0 \\* 9 $any_time 10000000"
#
# gazonk examines bar.
......@@ -232,7 +254,7 @@ simple_expect "=1043 $any_time 12 200 0 0 \\*"
send "1044 52 7\n"
good_bad_expect "%1044 10 7" "=0 \\*" "Bug 37"
# gazonk does get-membership of bar. Should return undefined-person.
# gazonk does get-membership-10 of bar. Should return undefined-person.
send "1045 99 7 0 100 1\n"
simple_expect "%1045 10 7"
......@@ -240,10 +262,14 @@ simple_expect "%1045 10 7"
send "1046 46 7 0 100 1\n"
simple_expect "%1046 10 7"
# gazonk does query-read-texts on bar and 10, 11 and 12. undefined-person.
# gazonk does get-membership of bar. Should return undefined-person.
send "1045 108 7 0 100 1 0\n"
simple_expect "%1045 10 7"
# gazonk does query-read-texts-10 on bar and 10, 11 and 12. undefined-person.
# FIXME (bug 703): This should not be censored. But see Bug 70...
setup_xfail "*-*-*" "Bug 703"
fail "query-read-texts returns info about secret persons to admin of conf"
fail "query-read-texts-10 returns info about secret persons to admin of conf"
send "1047 98 7 10\n"
simple_expect "%1047 10 7"
send "1048 98 7 11\n"
......@@ -262,7 +288,16 @@ simple_expect "%1051 10 7"
send "1052 9 7 12\n"
simple_expect "%1052 10 7"
# gazonk does <FIXME (bug 590)> on bar and 10, 11 and 12. Should work.
# gazonk does query-read-texts on bar and 10, 11 and 12. undefined-person.
# FIXME (bug 703): This should not be censored. But see Bug 70...
setup_xfail "*-*-*" "Bug 703"
fail "query-read-texts returns info about secret persons to admin of conf"
send "1047 107 7 10 1 0\n"
simple_expect "%1047 10 7"
send "1048 107 7 11 1 0\n"
simple_expect "%1048 10 7"
send "1049 107 7 12 1 0\n"
simple_expect "%1049 10 7"
#
# gazonk examines citrus.
......@@ -272,7 +307,7 @@ simple_expect "%1052 10 7"
send "1053 52 8\n"
simple_expect "=1053 0 \\*"
# gazonk does get-membership of citrus. Should return 4 { 6 10 11 12 }.
# gazonk does get-membership-10 of citrus. Should return 4 { 6 10 11 12 }.
send "1054 99 8 0 100 1\n"
simple_expect "=1054 4 { 0 $any_time 8 255 0 0 \\* 8 $any_time 00000000 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000 }"
......@@ -280,7 +315,11 @@ simple_expect "=1054 4 { 0 $any_time 8 255 0 0 \\* 8 $any_time 00000000 1 $any_t
send "1055 46 8 0 100 1\n"
simple_expect "=1055 4 { $any_time 8 255 0 0 \\* $any_time 10 200 0 0 \\* $any_time 11 200 0 0 \\* $any_time 12 200 0 0 \\* }"
# gazonk does query-read-texts on citrus and 10, 11 and 12.
# gazonk does get-membership of citrus. Should return 4 { 6 10 11 12 }.
send "1054 108 8 0 100 1 0\n"
simple_expect "=1054 4 { 0 $any_time 8 255 0 \\* 8 $any_time 00000000 1 $any_time 10 200 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 \\* 9 $any_time 10000000 }"
# gazonk does query-read-texts-10 on citrus and 10, 11 and 12.
send "1056 98 8 10\n"
simple_expect "=1056 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000"
send "1057 98 8 11\n"
......@@ -296,7 +335,13 @@ simple_expect "=1060 $any_time 11 200 0 0 \\*"
send "1061 9 8 12\n"
simple_expect "=1061 $any_time 12 200 0 0 \\*"
# gazonk does <FIXME (bug 590)> on citrus and 10, 11 and 12.
# gazonk does query-read-texts on citrus and 10, 11 and 12.
send "1056 107 8 10 1 0\n"
simple_expect "=1056 1 $any_time 10 200 0 \\* 9 $any_time 10000000"
send "1057 107 8 11 1 0\n"
simple_expect "=1057 2 $any_time 11 200 0 \\* 9 $any_time 10000000"
send "1058 107 8 12 1 0\n"
simple_expect "=1058 3 $any_time 12 200 0 \\* 9 $any_time 10000000"
#
# foo writes a text with secret, rd-prot and public as recipients.
......@@ -314,7 +359,7 @@ simple_expect "=1062 1"
send "1063 52 6\n"
simple_expect "=1063 3 { 10 11 12 }"
# foo does get-membership of foo. Should return 4 { 6 10 11 12 }.
# foo does get-membership-10 of foo. Should return 4 { 6 10 11 12 }.
send "1064 99 6 0 100 1\n"
simple_expect "=1064 4 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 0 \\* 9 $any_time 10000000 }"
......@@ -322,7 +367,11 @@ simple_expect "=1064 4 { 0 $any_time 6 255 0 0 \\* 6 $any_time 00000000 1 $any_t
send "1065 46 6 0 100 1\n"
simple_expect "=1065 4 { $any_time 6 255 0 0 \\* $any_time 10 200 0 0 \\* $any_time 11 200 0 0 \\* $any_time 12 200 0 0 \\* }"
# foo does query-read-texts on foo and 10, 11 and 12. Should get results.
# foo does get-membership of foo. Should return 4 { 6 10 11 12 }.
send "1064 108 6 0 100 1 0\n"
simple_expect "=1064 4 { 0 $any_time 6 255 0 \\* 6 $any_time 00000000 1 $any_time 10 200 0 \\* 9 $any_time 10000000 2 $any_time 11 200 0 \\* 9 $any_time 10000000 3 $any_time 12 200 0 \\* 9 $any_time 10000000 }"
# foo does query-read-texts-10 on foo and 10, 11 and 12. Should get results.
send "1066 98 6 10\n"
simple_expect "=1066 1 $any_time 10 200 0 0 \\* 9 $any_time 10000000"
send "1067 98 6 11\n"
......@@ -338,7 +387,13 @@ simple_expect "=1070 $any_time 11 200 0 0 \\*"
send "1071 9 6 12\n"
simple_expect "=1071 $any_time 12 200 0 0 \\*"
# foo does <FIXME (bug 590)> on foo and 10, 11 and 12. Should get results.
# foo does query-read-texts on foo and 10, 11 and 12. Should get results.
send "1066 107 6 10 1 0\n"
simple_expect "=1066 1 $any_time 10 200 0 \\* 9 $any_time 10000000"
send "1067 107 6 11 1 0\n"
simple_expect "=1067 2 $any_time 11 200 0 \\* 9 $any_time 10000000"
send "1068 107 6 12 1 0\n"
simple_expect "=1068 3 $any_time 12 200 0 \\* 9 $any_time 10000000"