Commit acfff0eb authored by David Byers's avatar David Byers

Added test case for bug 145

parent c1968aa1
......@@ -238,6 +238,25 @@ proc kom_shutdown_server { { result "" } { testname "" } } {
simple_expect $result $testname
}
proc kom_lookup_z_name { name want_pers want_conf { result "" } { testname "" } } {
global ref_no;
kom_next_call
send "$ref_no 76 [holl "$name"] $want_pers $want_conf\n"
set result [cres $result "=$ref_no"]
simple_expect $result $testname
}
proc kom_delete_conf { conf_no { result "" } { testname "" } } {
global ref_no;
kom_next_call
send "$ref_no 11 $conf_no\n"
set result [cres $result "=$ref_no"]
simple_expect $result $testname
}
proc kom_ping_server { } {
global ref_no
global any_time
......
# Test suite for lyskomd.
# Copyright (C) 1999-2000 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.
read_versions
source "$srcdir/config/prot-a.exp"
source "$srcdir/config/leaks.exp"
startup_leaks
kom_create_conference "Conference 6" "00000000" "0 { }"
kom_create_conference "Conference 7" "00000000" "0 { }"
kom_create_conference "Conference 8" "00000000" "0 { }"
# Delete conferences
kom_delete_conf 6
kom_delete_conf 7
kom_delete_conf 8
kom_lookup_z_name "Conference 6" 1 1 "=\$ref_no 0 \\\\*"
kom_lookup_z_name "Conference 7" 1 1 "=\$ref_no 0 \\\\*"
kom_lookup_z_name "Conference 8" 1 1 "=\$ref_no 0 \\\\*"
kom_lookup_z_name "Conference" 1 1 "=\$ref_no 0 \\\\*"
kom_lookup_z_name "C" 1 1 "=\$ref_no 0 \\\\*"
shutdown_leaks
check_usage "Checking bug 145" "bug-145"
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