1*c5c4113dSnw141292 2*c5c4113dSnw141292#pragma ident "%Z%%M% %I% %E% SMI" 3*c5c4113dSnw141292 4*c5c4113dSnw141292# 2001 November 22 5*c5c4113dSnw141292# 6*c5c4113dSnw141292# The author disclaims copyright to this source code. In place of 7*c5c4113dSnw141292# a legal notice, here is a blessing: 8*c5c4113dSnw141292# 9*c5c4113dSnw141292# May you do good and not evil. 10*c5c4113dSnw141292# May you find forgiveness for yourself and forgive others. 11*c5c4113dSnw141292# May you share freely, never taking more than you give. 12*c5c4113dSnw141292# 13*c5c4113dSnw141292#*********************************************************************** 14*c5c4113dSnw141292# This file implements regression tests for SQLite library. The 15*c5c4113dSnw141292# focus of this script is btree database backend 16*c5c4113dSnw141292# 17*c5c4113dSnw141292# In particular, this file tests a small part of the Delete logic 18*c5c4113dSnw141292# for the BTree backend. When a row is deleted from a table, the 19*c5c4113dSnw141292# cursor is suppose to be left pointing at either the previous or 20*c5c4113dSnw141292# next entry in that table. If the cursor is left pointing at the 21*c5c4113dSnw141292# next entry, then the next Next operation is ignored. So the 22*c5c4113dSnw141292# sequence of operations (Delete, Next) should always leave the 23*c5c4113dSnw141292# cursor pointing at the first entry past the one that was deleted. 24*c5c4113dSnw141292# This test is designed to verify that behavior. 25*c5c4113dSnw141292# 26*c5c4113dSnw141292# $Id: btree3rb.test,v 1.1 2003/04/20 23:45:23 drh Exp $ 27*c5c4113dSnw141292 28*c5c4113dSnw141292 29*c5c4113dSnw141292set testdir [file dirname $argv0] 30*c5c4113dSnw141292source $testdir/tester.tcl 31*c5c4113dSnw141292 32*c5c4113dSnw141292if {[info commands btree_open]!=""} { 33*c5c4113dSnw141292 34*c5c4113dSnw141292# Open a test database. 35*c5c4113dSnw141292# 36*c5c4113dSnw141292set b1 [btree_open :memory:] 37*c5c4113dSnw141292btree_begin_transaction $::b1 38*c5c4113dSnw141292 39*c5c4113dSnw141292# Insert a few one records 40*c5c4113dSnw141292# 41*c5c4113dSnw141292set data {abcdefghijklmnopqrstuvwxyz0123456789} 42*c5c4113dSnw141292append data $data 43*c5c4113dSnw141292append data $data 44*c5c4113dSnw141292append data $data 45*c5c4113dSnw141292append data $data 46*c5c4113dSnw141292for {set k 2} {$k<=20} {incr k} { 47*c5c4113dSnw141292 for {set j 1} {$j<=$k} {incr j} { 48*c5c4113dSnw141292 set jkey [format %02d $j] 49*c5c4113dSnw141292 btree_clear_table $::b1 2 50*c5c4113dSnw141292 set ::c1 [btree_cursor $::b1 2 1] 51*c5c4113dSnw141292 for {set i 1} {$i<=$k} {incr i} { 52*c5c4113dSnw141292 set key [format %02d $i] 53*c5c4113dSnw141292 do_test btree3rb-$k.$j.1.$i { 54*c5c4113dSnw141292 btree_insert $::c1 $::key $::data 55*c5c4113dSnw141292 } {} 56*c5c4113dSnw141292 # btree_tree_dump $::b1 2 57*c5c4113dSnw141292 } 58*c5c4113dSnw141292 do_test btree3rb-$k.$j.2 { 59*c5c4113dSnw141292 btree_move_to $::c1 $::jkey 60*c5c4113dSnw141292 btree_key $::c1 61*c5c4113dSnw141292 } $::jkey 62*c5c4113dSnw141292 do_test btree3rb-$k.$j.3 { 63*c5c4113dSnw141292 btree_delete $::c1 64*c5c4113dSnw141292 } {} 65*c5c4113dSnw141292 if {$j<$k} { 66*c5c4113dSnw141292 do_test btree3rb-$k.$j.4 { 67*c5c4113dSnw141292 btree_next $::c1 68*c5c4113dSnw141292 btree_key $::c1 69*c5c4113dSnw141292 } [format %02d [expr $j+1]] 70*c5c4113dSnw141292 } 71*c5c4113dSnw141292 if {$j>1} { 72*c5c4113dSnw141292 do_test btree3rb-$k.$j.5 { 73*c5c4113dSnw141292 btree_prev $::c1 74*c5c4113dSnw141292 btree_key $::c1 75*c5c4113dSnw141292 } [format %02d [expr $j-1]] 76*c5c4113dSnw141292 } 77*c5c4113dSnw141292 btree_close_cursor $::c1 78*c5c4113dSnw141292 } 79*c5c4113dSnw141292} 80*c5c4113dSnw141292 81*c5c4113dSnw141292btree_rollback $::b1 82*c5c4113dSnw141292#btree_pager_ref_dump $::b1 83*c5c4113dSnw141292btree_close $::b1 84*c5c4113dSnw141292 85*c5c4113dSnw141292} ;# end if( not mem: and has pager_open command ); 86*c5c4113dSnw141292 87*c5c4113dSnw141292finish_test 88