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: btree4rb.test,v 1.1 2003/04/20 23:45:23 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# 29c5c4113dSnw141292set b1 [btree_open :memory:] 30c5c4113dSnw141292btree_begin_transaction $::b1 31c5c4113dSnw141292 32c5c4113dSnw141292set data {abcdefghijklmnopqrstuvwxyz0123456789} 33c5c4113dSnw141292append data $data 34c5c4113dSnw141292append data $data 35c5c4113dSnw141292append data $data 36c5c4113dSnw141292append data $data 37c5c4113dSnw141292 38c5c4113dSnw141292foreach N {10 100 1000} { 39c5c4113dSnw141292 btree_clear_table $::b1 2 40c5c4113dSnw141292 set ::c1 [btree_cursor $::b1 2 1] 41c5c4113dSnw141292 do_test btree4rb-$N.1 { 42c5c4113dSnw141292 for {set i 1} {$i<=$N} {incr i} { 43c5c4113dSnw141292 btree_insert $::c1 [format k-%05d $i] $::data-$i 44c5c4113dSnw141292 } 45c5c4113dSnw141292 btree_first $::c1 46c5c4113dSnw141292 btree_key $::c1 47c5c4113dSnw141292 } {k-00001} 48c5c4113dSnw141292 do_test btree4rb-$N.2 { 49c5c4113dSnw141292 btree_data $::c1 50c5c4113dSnw141292 } $::data-1 51c5c4113dSnw141292 for {set i 2} {$i<=$N} {incr i} { 52c5c4113dSnw141292 do_test btree-$N.3.$i.1 { 53c5c4113dSnw141292 btree_next $::c1 54c5c4113dSnw141292 } 0 55c5c4113dSnw141292 do_test btree-$N.3.$i.2 { 56c5c4113dSnw141292 btree_key $::c1 57c5c4113dSnw141292 } [format k-%05d $i] 58c5c4113dSnw141292 do_test btree-$N.3.$i.3 { 59c5c4113dSnw141292 btree_data $::c1 60c5c4113dSnw141292 } $::data-$i 61c5c4113dSnw141292 } 62c5c4113dSnw141292 do_test btree4rb-$N.4 { 63c5c4113dSnw141292 btree_next $::c1 64c5c4113dSnw141292 } 1 65c5c4113dSnw141292 do_test btree4rb-$N.5 { 66c5c4113dSnw141292 btree_last $::c1 67c5c4113dSnw141292 } 0 68c5c4113dSnw141292 do_test btree4rb-$N.6 { 69c5c4113dSnw141292 btree_key $::c1 70c5c4113dSnw141292 } [format k-%05d $N] 71c5c4113dSnw141292 do_test btree4rb-$N.7 { 72c5c4113dSnw141292 btree_data $::c1 73c5c4113dSnw141292 } $::data-$N 74c5c4113dSnw141292 for {set i [expr {$N-1}]} {$i>=1} {incr i -1} { 75c5c4113dSnw141292 do_test btree4rb-$N.8.$i.1 { 76c5c4113dSnw141292 btree_prev $::c1 77c5c4113dSnw141292 } 0 78c5c4113dSnw141292 do_test btree4rb-$N.8.$i.2 { 79c5c4113dSnw141292 btree_key $::c1 80c5c4113dSnw141292 } [format k-%05d $i] 81c5c4113dSnw141292 do_test btree4rb-$N.8.$i.3 { 82c5c4113dSnw141292 btree_data $::c1 83c5c4113dSnw141292 } $::data-$i 84c5c4113dSnw141292 } 85c5c4113dSnw141292 do_test btree4rb-$N.9 { 86c5c4113dSnw141292 btree_prev $::c1 87c5c4113dSnw141292 } 1 88c5c4113dSnw141292 btree_close_cursor $::c1 89c5c4113dSnw141292} 90c5c4113dSnw141292 91c5c4113dSnw141292btree_rollback $::b1 92c5c4113dSnw141292btree_close $::b1 93c5c4113dSnw141292 94c5c4113dSnw141292} ;# end if( not mem: and has pager_open command ); 95c5c4113dSnw141292 96c5c4113dSnw141292finish_test 97