blob: 4cb5d88dfe2ed3800f70fa0b7352cfe8c5c117ba (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# See the file LICENSE for redistribution information.
#
# Copyright (c) 1996, 1997, 1998, 1999, 2000
# Sleepycat Software. All rights reserved.
#
# $Id: test005.tcl,v 11.4 2000/05/22 12:51:38 bostic Exp $
#
# DB Test 5 {access method}
# Check that cursor operations work. Create a database; close database and
# reopen it. Then read through the database sequentially using cursors and
# delete each element.
proc test005 { method {nentries 10000} args } {
eval {test004 $method $nentries 5 0} $args
}
|
