diff options
Diffstat (limited to 'db/test/test005.tcl')
| -rw-r--r-- | db/test/test005.tcl | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/db/test/test005.tcl b/db/test/test005.tcl index 4cb5d88df..0b0b72813 100644 --- a/db/test/test005.tcl +++ b/db/test/test005.tcl @@ -1,14 +1,19 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 1996, 1997, 1998, 1999, 2000 +# Copyright (c) 1996-2003 # Sleepycat Software. All rights reserved. # -# $Id: test005.tcl,v 11.4 2000/05/22 12:51:38 bostic Exp $ +# $Id: test005.tcl,v 11.9 2003/01/08 05:53: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. +# 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 + eval {test004 $method $nentries "005" 0} $args } |