diff options
Diffstat (limited to 'storage/bdb/test/test054.tcl')
| -rw-r--r-- | storage/bdb/test/test054.tcl | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/storage/bdb/test/test054.tcl b/storage/bdb/test/test054.tcl index f53f5a658bf..44d0335f469 100644 --- a/storage/bdb/test/test054.tcl +++ b/storage/bdb/test/test054.tcl @@ -1,9 +1,9 @@ # See the file LICENSE for redistribution information. # -# Copyright (c) 1996-2002 +# Copyright (c) 1996-2004 # Sleepycat Software. All rights reserved. # -# $Id: test054.tcl,v 11.23 2002/06/17 18:41:29 sue Exp $ +# $Id: test054.tcl,v 11.26 2004/09/20 17:06:16 sue Exp $ # # TEST test054 # TEST Cursor maintenance during key/data deletion. @@ -191,7 +191,7 @@ proc test054 { method args } { db_del:$key_set(3) [eval {$db del} $txn {$key_set(3)}] 0 # NEEDS TO COME BACK IN, BUG CHECK set ret [$curs get -current] - error_check_good current_after_del $ret [list [list [] []]] + error_check_good current_after_del $ret "" error_check_good cursor_close [$curs close] 0 if { $txnenv == 1 } { error_check_good txn [$t commit] 0 @@ -371,8 +371,7 @@ proc test054 { method args } { # Verify curs1 and curs2 # current should fail set ret [$curs get -current] - error_check_good \ - curs1_get_after_del $ret [list [list [] []]] + error_check_good curs1_get_after_del $ret "" set r [$curs2 get -current] error_check_bad curs2_get [llength $r] 0 @@ -386,10 +385,10 @@ proc test054 { method args } { # Verify curs1 and curs2 set ret [$curs get -current] - error_check_good curs1_get:del2 $ret [list [list [] []]] + error_check_good curs1_get:del2 $ret "" set ret [$curs2 get -current] - error_check_good curs2_get:del2 $ret [list [list [] []]] + error_check_good curs2_get:del2 $ret "" # Now verify that next and prev work. @@ -430,10 +429,10 @@ proc test054 { method args } { # Verify gets on both 1 and 2 set ret [$curs get -current] error_check_good \ - curs1_get:deleted $ret [list [list [] []]] + curs1_get:deleted $ret "" set ret [$curs2 get -current] error_check_good \ - curs2_get:deleted $ret [list [list [] []]] + curs2_get:deleted $ret "" puts "\tTest054.b5: Now do a next on both cursors" |