1*1da57d55SToomas Soome# 2c5c4113dSnw141292# 2002 December 03 3c5c4113dSnw141292# 4c5c4113dSnw141292# The author disclaims copyright to this source code. In place of 5c5c4113dSnw141292# a legal notice, here is a blessing: 6c5c4113dSnw141292# 7c5c4113dSnw141292# May you do good and not evil. 8c5c4113dSnw141292# May you find forgiveness for yourself and forgive others. 9c5c4113dSnw141292# May you share freely, never taking more than you give. 10c5c4113dSnw141292# 11c5c4113dSnw141292#*********************************************************************** 12c5c4113dSnw141292# This file implements regression tests for SQLite library. The 13c5c4113dSnw141292# focus of this script is btree database backend 14c5c4113dSnw141292# 15c5c4113dSnw141292# This file focuses on testing the sqliteBtreeNext() and 16c5c4113dSnw141292# sqliteBtreePrevious() procedures and making sure they are able 17c5c4113dSnw141292# to step through an entire table from either direction. 18c5c4113dSnw141292# 19c5c4113dSnw141292# $Id: btree4.test,v 1.1 2002/12/04 13:40:27 drh Exp $ 20c5c4113dSnw141292 21c5c4113dSnw141292 22c5c4113dSnw141292set testdir [file dirname $argv0] 23c5c4113dSnw141292source $testdir/tester.tcl 24c5c4113dSnw141292 25c5c4113dSnw141292if {[info commands btree_open]!=""} { 26c5c4113dSnw141292 27c5c4113dSnw141292# Open a test database. 28c5c4113dSnw141292# 29c5c4113dSnw141292file delete -force test1.bt 30c5c4113dSnw141292file delete -force test1.bt-journal 31c5c4113dSnw141292set b1 [btree_open test1.bt] 32c5c4113dSnw141292btree_begin_transaction $::b1 33c5c4113dSnw141292 34c5c4113dSnw141292set data {abcdefghijklmnopqrstuvwxyz0123456789} 35c5c4113dSnw141292append data $data 36c5c4113dSnw141292append data $data 37c5c4113dSnw141292append data $data 38c5c4113dSnw141292append data $data 39c5c4113dSnw141292 40c5c4113dSnw141292foreach N {10 100 1000} { 41c5c4113dSnw141292 btree_clear_table $::b1 2 42c5c4113dSnw141292 set ::c1 [btree_cursor $::b1 2 1] 43c5c4113dSnw141292 do_test btree4-$N.1 { 44c5c4113dSnw141292 for {set i 1} {$i<=$N} {incr i} { 45c5c4113dSnw141292 btree_insert $::c1 [format k-%05d $i] $::data-$i 46c5c4113dSnw141292 } 47c5c4113dSnw141292 btree_first $::c1 48c5c4113dSnw141292 btree_key $::c1 49c5c4113dSnw141292 } {k-00001} 50c5c4113dSnw141292 do_test btree4-$N.2 { 51c5c4113dSnw141292 btree_data $::c1 52c5c4113dSnw141292 } $::data-1 53c5c4113dSnw141292 for {set i 2} {$i<=$N} {incr i} { 54c5c4113dSnw141292 do_test btree-$N.3.$i.1 { 55c5c4113dSnw141292 btree_next $::c1 56c5c4113dSnw141292 } 0 57c5c4113dSnw141292 do_test btree-$N.3.$i.2 { 58c5c4113dSnw141292 btree_key $::c1 59c5c4113dSnw141292 } [format k-%05d $i] 60c5c4113dSnw141292 do_test btree-$N.3.$i.3 { 61c5c4113dSnw141292 btree_data $::c1 62c5c4113dSnw141292 } $::data-$i 63c5c4113dSnw141292 } 64c5c4113dSnw141292 do_test btree4-$N.4 { 65c5c4113dSnw141292 btree_next $::c1 66c5c4113dSnw141292 } 1 67c5c4113dSnw141292 do_test btree4-$N.5 { 68c5c4113dSnw141292 btree_last $::c1 69c5c4113dSnw141292 } 0 70c5c4113dSnw141292 do_test btree4-$N.6 { 71c5c4113dSnw141292 btree_key $::c1 72c5c4113dSnw141292 } [format k-%05d $N] 73c5c4113dSnw141292 do_test btree4-$N.7 { 74c5c4113dSnw141292 btree_data $::c1 75c5c4113dSnw141292 } $::data-$N 76c5c4113dSnw141292 for {set i [expr {$N-1}]} {$i>=1} {incr i -1} { 77c5c4113dSnw141292 do_test btree4-$N.8.$i.1 { 78c5c4113dSnw141292 btree_prev $::c1 79c5c4113dSnw141292 } 0 80c5c4113dSnw141292 do_test btree4-$N.8.$i.2 { 81c5c4113dSnw141292 btree_key $::c1 82c5c4113dSnw141292 } [format k-%05d $i] 83c5c4113dSnw141292 do_test btree4-$N.8.$i.3 { 84c5c4113dSnw141292 btree_data $::c1 85c5c4113dSnw141292 } $::data-$i 86c5c4113dSnw141292 } 87c5c4113dSnw141292 do_test btree4-$N.9 { 88c5c4113dSnw141292 btree_prev $::c1 89c5c4113dSnw141292 } 1 90c5c4113dSnw141292 btree_close_cursor $::c1 91c5c4113dSnw141292} 92c5c4113dSnw141292 93c5c4113dSnw141292btree_rollback $::b1 94c5c4113dSnw141292btree_pager_ref_dump $::b1 95c5c4113dSnw141292btree_close $::b1 96c5c4113dSnw141292 97c5c4113dSnw141292} ;# end if( not mem: and has pager_open command ); 98c5c4113dSnw141292 99c5c4113dSnw141292finish_test 100