Commit 6f7db70e authored by Per Cederqvist's avatar Per Cederqvist

Bug detected!

parent 0ba0317e
# Test suite for lyskomd.
# Copyright (C) 1999 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 for the bug that caused 2.0.0 to sometimes not remove texts
# from the created_texts field of a person when the text was removed.
# Start a server and set up a minmal environment:
# person 6 "Author"
# text 1 Written by author, conference 1 as recipient.
lyskomd_start "" "Cache person limit: 0\n"
client_start 0
talk_to client 0
send "A3Hfoo\n"
simple_expect "LysKOM" "connected"
send "1000 89 [holl "Author"] [holl "Writer"] 00000000 0 { }\n"
simple_expect "=1000 6"
send "1001 62 6 [holl "Writer"] 1\n"
simple_expect "=1001"
send "1002 86 [holl "Text 1"] 1 { 0 1 } 0 { }\n"
simple_expect "=1002 1"
# Log in as administrator instead.
send "1003 62 5 [holl "gazonk"] 1\n"
simple_expect "=1003"
# Save the database; the Author should then be clean.
send "1004 42 255\n"
simple_expect "=1004"
send "1005 43\n"
simple_expect ":0 7"
simple_expect ":0 7"
simple_expect "=1005"
dbck_run
# Delete the text.
send "1006 29 1\n"
simple_expect "=1006"
# The Author now contains the changed data, but it is not marked as
# dirty. Trigger a cache_limit_size.
for {set i 0} {$i < 110} {incr i} {
send "9 35\n"
simple_expect "=9 $any_time"
}
send "1007 43\n"
simple_expect ":0 7"
simple_expect ":0 7"
simple_expect "=1007"
dbck_run
talk_to client 0
send "1008 44 0\n"
simple_expect "=1008"
client_death 0
lyskomd_death
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