Commit f92a8298 authored by Per Cederqvist's avatar Per Cederqvist

Don't use "Regexps use collate table".

parent 63f12ead
......@@ -63,9 +63,7 @@
# (This is client 2)
read_versions
lyskomd_start "" "\
Regexps use collate table: off
"
lyskomd_start
# Preamble: create a "typical database" containing some persons and
# texts created with traditional calls, and some created using newer
......
......@@ -27,10 +27,8 @@
source "$srcdir/config/prot-a.exp"
read_versions
proc startup {onoff} {
lyskomd_start "" "\
Regexps use collate table: $onoff
"
proc startup {} {
lyskomd_start
client_start 0
talk_to client 0
......@@ -66,7 +64,7 @@ proc shutdown {} {
}
startup "off"
startup
send "1000 74 [holl "Q.*N"] 0 0\n"
simple_expect "=1000 0 \\*"
......@@ -83,21 +81,21 @@ simple_expect "=1003 4 { [holl "QERSON 6"] 1001 6 [holl "QersoN 8"] 1001 8 [holl
shutdown
startup "on"
startup
send "2000 74 [holl "Q.*N"] 0 0\n"
simple_expect "=2000 0 \\*"
send "2001 74 [holl "Q.*N"] 0 1\n"
simple_expect "=2001 3 { [holl "QERSON 15"] 0000 15 [holl "qerson 16"] 0000 16 [holl "QersoN 17"] 0000 17 }"
simple_expect "=2001 2 { [holl "QERSON 15"] 0000 15 [holl "QersoN 17"] 0000 17 }"
send "2002 74 [holl "Q.*N"] 1 0\n"
simple_expect "=2002 3 { [holl "QERSON 6"] 1001 6 [holl "qerson 7"] 1001 7 [holl "QersoN 8"] 1001 8 }"
simple_expect "=2002 2 { [holl "QERSON 6"] 1001 6 [holl "QersoN 8"] 1001 8 }"
send "2003 74 [holl "Q.*N"] 1 1\n"
simple_expect "=2003 6 { [holl "QERSON 6"] 1001 6 [holl "qerson 7"] 1001 7 [holl "QersoN 8"] 1001 8 [holl "QERSON 15"] 0000 15 [holl "qerson 16"] 0000 16 [holl "QersoN 17"] 0000 17 }"
simple_expect "=2003 4 { [holl "QERSON 6"] 1001 6 [holl "QersoN 8"] 1001 8 [holl "QERSON 15"] 0000 15 [holl "QersoN 17"] 0000 17 }"
send "3001 74 [holl "Error\]"] 0 0\n"
send "3001 74 [holl "Error\["] 0 0\n"
simple_expect "%3001 43 0"
shutdown
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