Bug 705 fixed.

src/server/testsuite/lyskomd.0/bug-37.exp

@@ -629,17 +629,26 @@ simple_expect "=1144 $any_time 12 200 0 0 \\*"
 send "1145 48 10 0 100\n"
 simple_expect "%1145 9 10"
 send "1146 48 11 0 100\n"
-good_bad_expect "=1146 3 { 0 6 8 }" "=3 { 7 6 8 }" "Bug 705"
+# As long as secret persons are allowed, the secret person number 7 should
+# be censored in the result of get-members-old.  If this test is rewritten
+# to use a non-secret person, "set seven 7" should make the tests pass again.
+set seven 0
+simple_expect "=1146 3 { $seven 6 8 }"
 send "1147 48 12 0 100\n"
-good_bad_expect "=1147 3 { 0 6 8 }" "=3 { 7 6 8 }" "Bug 705"
+simple_expect "=1147 3 { $seven 6 8 }"
 
 # Test get-members.
 send "1148 101 10 0 100\n"
 simple_expect "%1148 9 10"
 send "1149 101 11 0 100\n"
-good_bad_expect "=1149 3 { 0 0 $any_time 00100000 6 7 $any_time 10000000 8 7 $any_time 10000000 }" "=3 { 7 7 $any_time 00000000 6 7 $any_time 10000000 8 7 $any_time 10000000 }" "Bug 705"
+if {$seven == 0} {
+    set seventype 00100000
+} else {
+    set seventype 00000000
+}
+simple_expect "=1149 3 { $seven $seven $any_time $seventype 6 7 $any_time 10000000 8 7 $any_time 10000000 }"
 send "1150 101 12 0 100\n"
-good_bad_expect "=1150 3 { 0 0 $any_time 00100000 6 7 $any_time 10000000 8 7 $any_time 10000000 }" "=3 { 7 7 $any_time 00000000 6 7 $any_time 10000000 8 7 $any_time 10000000 }" "Bug 705"
+simple_expect "=1150 3 { $seven $seven $any_time $seventype 6 7 $any_time 10000000 8 7 $any_time 10000000 }"
 
 # Shut down.
 talk_to client 3