63da089314
highwater mark does not yet work on this verb. FossilOrigin-Name: 418c6d8113bc337556b0d47acfd6a7d865d1121f
46 lines
1.2 KiB
Plaintext
46 lines
1.2 KiB
Plaintext
# 2010 March 10
|
|
#
|
|
# The author disclaims copyright to this source code. In place of
|
|
# a legal notice, here is a blessing:
|
|
#
|
|
# May you do good and not evil.
|
|
# May you find forgiveness for yourself and forgive others.
|
|
# May you share freely, never taking more than you give.
|
|
#
|
|
#***********************************************************************
|
|
#
|
|
# Tests for the sqlite3_db_status() function
|
|
#
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
|
|
|
|
# Make sure sqlite3_db_config() and sqlite3_db_status are working.
|
|
#
|
|
unset -nocomplain PAGESZ
|
|
unset -nocomplain BASESZ
|
|
do_test dbstatus-1.1 {
|
|
db close
|
|
sqlite3 db :memory:
|
|
db eval {
|
|
CREATE TABLE t1(x);
|
|
}
|
|
set sz1 [lindex [sqlite3_db_status db SQLITE_DBSTATUS_CACHE_USED 0] 1]
|
|
db eval {
|
|
CREATE TABLE t2(y);
|
|
}
|
|
set sz2 [lindex [sqlite3_db_status db SQLITE_DBSTATUS_CACHE_USED 0] 1]
|
|
set ::PAGESZ [expr {$sz2-$sz1}]
|
|
set ::BASESZ [expr {$sz1-$::PAGESZ}]
|
|
expr {$::PAGESZ>1024 && $::PAGESZ<1200}
|
|
} {1}
|
|
do_test dbstatus-1.2 {
|
|
db eval {
|
|
INSERT INTO t1 VALUES(zeroblob(9000));
|
|
}
|
|
lindex [sqlite3_db_status db SQLITE_DBSTATUS_CACHE_USED 0] 1
|
|
} [expr {$BASESZ + 10*$PAGESZ}]
|
|
|
|
finish_test
|