Commit 50690a5b authored by Per Cederqvist's avatar Per Cederqvist
Browse files

New file. Test mark-as-unread and set-read-ranges. This is not

complete yet.
parent 7f590bb0
# Test suite for lyskomd.
# Copyright (C) 2001-2002 Lysator Academic Computer Association.
#
# This file is part of the LysKOM server.
#
# LysKOM is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 1, or (at your option)
# any later version.
#
# LysKOM is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
# for more details.
#
# You should have received a copy of the GNU General Public License
# along with LysKOM; see the file COPYING. If not, write to
# Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN,
# or the Free Software Foundation, Inc., 675 Mass Ave, Cambridge,
# MA 02139, USA.
#
# Please mail bug reports to bug-lyskom@lysator.liu.se.
# Test 109=mark-as-unread and 110=set-read-ranges.
lyskomd_start
client_start 0
talk_to client 0
send "A\n"
send "0H\n"
simple_expect "LysKOM"
send "1000 62 5 6Hgazonk 0\n"
simple_expect ":2 9 5 1"
simple_expect "=1000"
foreach tno {1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23} {
send "100 86 [holl "text $tno"] 1 { 0 5 } 0 { }\n"
simple_expect ":16 0 $tno $any_time 5 0 [string length "text $tno"] 0 2 { 0 5 6 $tno }"
simple_expect "=100 $tno"
}
# Mark text 1 as read.
send "1001 27 5 1 { 1 }\n"
simple_expect "=1001"
send "1002 107 5 5 1 0\n"
simple_expect "=1002 0 $any_time 5 255 1 { 1 1 } 5 $any_time 00000000"
# Revert it.
send "1003 109 5 1\n"
simple_expect "=1003"
send "1004 107 5 5 1 0\n"
simple_expect "=1004 0 $any_time 5 255 0 \\* 5 $any_time 00000000"
untested "mark-as-unread (Bug 53)"
untested "set-read-ranges (Bug 54)"
system "kill -HUP $lyskomd_pid"
client_death 0
lyskomd_death "" signal
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