From 8c9c2a965bdc7e0e8eae9576340d762b7cd5295f Mon Sep 17 00:00:00 2001
From: Per Cederqvist <ceder@lysator.liu.se>
Date: Fri, 7 Aug 1998 23:28:43 +0000
Subject: [PATCH] Many bugs fixed.

---
 src/server/testsuite/lyskomd.0/00.exp | 76 +++++++++++++--------------
 1 file changed, 38 insertions(+), 38 deletions(-)

diff --git a/src/server/testsuite/lyskomd.0/00.exp b/src/server/testsuite/lyskomd.0/00.exp
index 7780525a7..8dfe13066 100644
--- a/src/server/testsuite/lyskomd.0/00.exp
+++ b/src/server/testsuite/lyskomd.0/00.exp
@@ -2,64 +2,64 @@ lyskomd_start
 
 client_start 0
 send "A3Hfoo\n"
-unanchored_expect "^LysKOM$nl" "connected"
+simple_expect "LysKOM" "connected"
 
 # Log in
-send "0 0 5 [holl gazonk]\n"
-unanchored_expect "^:2 9 5 1$nl" "0=login-old caused a login async msg"
-unanchored_expect "^=0$nl" "0=login-old succeeded"
+send "1000 0 5 [holl gazonk]\n"
+simple_expect ":2 9 5 1" "0=login-old caused a login async msg"
+simple_expect "=1000" "0=login-old succeeded"
 
 # Become a member of conference 1 using 14=add-member-old
-send "93 14 1 5 100 1\n"
-unanchored_expect "^=93" "14=add-member-old succeeded"
+send "1001 14 1 5 100 1\n"
+simple_expect "=1001" "14=add-member-old succeeded"
 
 # Get the map using 34=get-map and 103=local-to-global
-send "17 34 1 0 50\n"
-unanchored_expect "^%17 17 0$nl" "empty map (old-style 0)"
+send "1002 34 1 0 50\n"
+simple_expect "=1002 1 0 \\*" "empty map (old-style 0)"
 
-send "0 130 1 0 50\n"
-unanchored_expect "^%0 17 17$nl" "empty map (new-style 0)"
+send "1003 103 1 0 50\n"
+simple_expect "%1003 17 0" "empty map (new-style 0)"
 
-send "17 34 1 1 50\n"
-unanchored_expect "^=17 1 0 \\*$nl" "empty map (old-style 1)"
+send "1004 34 1 1 50\n"
+simple_expect "%1004 16 1" "empty map (old-style 1)"
 
-send "0 130 1 1 50\n"
-unanchored_expect "^=0 0 0 0 \\*$nl" "empty map (new-style 1)"
+send "1005 103 1 1 50\n"
+simple_expect "%1005 16 1" "empty map (new-style 1)"
 
-send "17 34 1 2 50\n"
-unanchored_expect "^%17 16 2$nl" "empty map (old-style 2)"
+send "1006 34 1 2 50\n"
+simple_expect "%1006 16 2" "empty map (old-style 2)"
 
-send "0 130 1 2 50\n"
-unanchored_expect "^%0 16 2$nl" "empty map (new-style 2)"
+send "1007 103 1 2 50\n"
+simple_expect "%1007 16 2" "empty map (new-style 2)"
 
 # Create a text
-send "0 28 [holl text0001] 1 { 0 1 }\n"
-# FIXME: there should be at least one async message, right?
-unanchored_expect "^=0 1"
+send "1008 28 [holl text0001] 1 { 0 1 }\n"
+simple_expect ":16 0 1 $any_time 5 0 8 0 2 { 0 1 6 1 }" "async text 1 created"
+simple_expect "=1008 1" "text 1 created"
 
 # Get the map using 34=get-map and 103=local-to-global
-send "17 34 1 0 50\n"
-unanchored_expect "^%17 17 0$nl" "one map (old-style 0)"
+send "1009 34 1 0 50\n"
+simple_expect "=1009 1 1 { 1 }" "one map (old-style 0)"
 
-send "0 130 1 0 50\n"
-unanchored_expect "^%17 17 0$nl" "one map (new-style 0)"
+send "1010 103 1 0 50\n"
+simple_expect "%1010 17 0" "one map (new-style 0)"
 
-send "17 34 1 1 50\n"
-unanchored_expect "^=17 1 1 { 1 }$nl" "one map (old-style)"
+send "1011 34 1 1 50\n"
+simple_expect "=1011 1 1 { 1 }" "one map (old-style)"
 
-send "0 130 1 1 50\n"
-unanchored_expect "^=0 0 1 1 1 { 1 }$nl" "one map (new-style)"
+send "1012 103 1 1 50\n"
+simple_expect "=1012 0 1 1 1 { 1 }" "one map (new-style)"
 
-send "17 34 1 2 50\n"
-unanchored_expect "^=17 1 0 \\*$nl" "one map (old-style 2)"
+send "1013 34 1 2 50\n"
+simple_expect "%1013 16 2" "one map (old-style 2)"
 
-send "0 130 1 2 50\n"
-unanchored_expect "^=0 0 0 0 \\*$nl" "one map (new-style 2)"
+send "1014 103 1 2 50\n"
+simple_expect "%1014 16 2" "one map (new-style 2)"
 
-send "1 42 255\n"
-unanchored_expect "^=1$nl" "42=enable succeeded"
-send "2 44 0\n"
-unanchored_expect "^=2$nl" "44=shutdown-kom succeeded"
-unanchored_expect "^:2 13 5 1$nl" "auto-logout after 44=shutdown-kom"
+send "1015 42 255\n"
+simple_expect "=1015" "42=enable succeeded"
+send "1016 44 0\n"
+simple_expect "=1016" "44=shutdown-kom succeeded"
+simple_expect ":2 13 5 1" "auto-logout after 44=shutdown-kom"
 
 lyskomd_death
-- 
GitLab