Return to dbstatus2.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/dbstatus2.test, revision 1.1

1.1     ! misho       1: # 2011 September 20
        !             2: #
        !             3: # The author disclaims copyright to this source code.  In place of
        !             4: # a legal notice, here is a blessing:
        !             5: #
        !             6: #    May you do good and not evil.
        !             7: #    May you find forgiveness for yourself and forgive others.
        !             8: #    May you share freely, never taking more than you give.
        !             9: #
        !            10: #***********************************************************************
        !            11: #
        !            12: # Tests for the sqlite3_stmt_status() function
        !            13: #
        !            14: 
        !            15: set testdir [file dirname $argv0]
        !            16: source $testdir/tester.tcl
        !            17: 
        !            18: set ::testprefix dbstatus2
        !            19: 
        !            20: do_execsql_test 1.0 {
        !            21:   PRAGMA page_size = 1024;
        !            22:   PRAGMA auto_vacuum = 0;
        !            23: 
        !            24:   CREATE TABLE t1(a PRIMARY KEY, b);
        !            25:   INSERT INTO t1 VALUES(1, randomblob(600));
        !            26:   INSERT INTO t1 VALUES(2, randomblob(600));
        !            27:   INSERT INTO t1 VALUES(3, randomblob(600));
        !            28: }
        !            29: 
        !            30: proc db_hit_miss {db {reset 0}} {
        !            31:   set nHit  [sqlite3_db_status $db CACHE_HIT $reset]
        !            32:   set nMiss [sqlite3_db_status $db CACHE_MISS $reset]
        !            33:   list $nHit $nMiss
        !            34: }
        !            35: 
        !            36: do_test 1.1 {
        !            37:   db close
        !            38:   sqlite3 db test.db
        !            39:   expr {[file size test.db] / 1024}
        !            40: } 6
        !            41: 
        !            42: do_test 1.2 {
        !            43:   execsql { SELECT b FROM t1 WHERE a=2 }
        !            44:   db_hit_miss db
        !            45: } {{0 2 0} {0 4 0}}
        !            46: 
        !            47: do_test 1.3 { 
        !            48:   execsql { SELECT b FROM t1 WHERE a=2 }
        !            49:   db_hit_miss db
        !            50: } {{0 6 0} {0 4 0}}
        !            51: 
        !            52: do_test 1.4 { 
        !            53:   execsql { SELECT b FROM t1 WHERE a=2 }
        !            54:   db_hit_miss db
        !            55: } {{0 10 0} {0 4 0}}
        !            56: 
        !            57: do_test 1.5 { 
        !            58:   db_hit_miss db 1
        !            59: } {{0 10 0} {0 4 0}}
        !            60: 
        !            61: do_test 1.6 { 
        !            62:   db_hit_miss db 0
        !            63: } {{0 0 0} {0 0 0}}
        !            64: 
        !            65: do_test 1.7 {
        !            66:   set fd [db incrblob main t1 b 1]
        !            67:   fconfigure $fd -translation binary
        !            68:   set len [string length [read $fd]]
        !            69:   close $fd
        !            70:   set len
        !            71: } 600
        !            72: do_test 1.8 { sqlite3_db_status db CACHE_HIT  0 } {0 2 0}
        !            73: do_test 1.9 { sqlite3_db_status db CACHE_MISS 0 } {0 1 0}
        !            74: 
        !            75:  
        !            76: finish_test