# See the file LICENSE for redistribution information. # # Copyright (c) 1996-2002 # Sleepycat Software. All rights reserved. # # $Id: test005.tcl,v 11.7 2002/01/11 15:53:40 bostic Exp $ # # TEST test005 # TEST Small keys/medium data # TEST Put/get per key # TEST Close, reopen # TEST Sequential (cursor) get/delete # TEST # TEST Check that cursor operations work. Create a database; close # TEST it and reopen it. Then read through the database sequentially # TEST using cursors and delete each element. proc test005 { method {nentries 10000} args } { eval {test004 $method $nentries 5 0} $args }