Return to cache.test CVS log

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

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

1.1     ! misho       1: # 2007 March 24
        !             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: # $Id: cache.test,v 1.4 2007/08/22 02:56:44 drh Exp $
        !            13: 
        !            14: set testdir [file dirname $argv0]
        !            15: source $testdir/tester.tcl
        !            16: 
        !            17: ifcapable {!pager_pragmas} {
        !            18:   finish_test
        !            19:   return
        !            20: }
        !            21: sqlite3_soft_heap_limit 0
        !            22: 
        !            23: proc pager_cache_size {db} {
        !            24:   set bt [btree_from_db $db]
        !            25:   db_enter $db
        !            26:   array set stats [btree_pager_stats $bt]
        !            27:   db_leave $db
        !            28:   return $stats(page)
        !            29: }
        !            30: 
        !            31: if {[permutation] == ""} { 
        !            32:   do_test cache-1.1 { pager_cache_size db } {0}
        !            33: }
        !            34: 
        !            35: do_test cache-1.2 {
        !            36:   execsql {
        !            37:     PRAGMA auto_vacuum=OFF;
        !            38:     CREATE TABLE abc(a, b, c);
        !            39:     INSERT INTO abc VALUES(1, 2, 3);
        !            40:   }
        !            41:   pager_cache_size db
        !            42: } {2}
        !            43: 
        !            44: # At one point, repeatedly locking and unlocking the cache was causing
        !            45: # a resource leak of one page per repetition. The page wasn't actually
        !            46: # leaked, but would not be reused until the pager-cache was full (i.e. 
        !            47: # 2000 pages by default).
        !            48: #
        !            49: # This tests that once the pager-cache is initialised, it can be locked
        !            50: # and unlocked repeatedly without internally allocating any new pages.
        !            51: #
        !            52: set cache_size [pager_cache_size db]
        !            53: for {set ii 0} {$ii < 10} {incr ii} {
        !            54:   do_test cache-1.3.$ii {
        !            55:     execsql {SELECT * FROM abc}
        !            56:     pager_cache_size db
        !            57:   } $::cache_size
        !            58: }
        !            59: 
        !            60: #-------------------------------------------------------------------------
        !            61: # This block of tests checks that it is possible to set the cache_size of a
        !            62: # database to a small (< 10) value. More specifically:
        !            63: #
        !            64: #   cache-2.1.*: Test that "PRAGMA cache_size" appears to work with small 
        !            65: #                values.
        !            66: #   cache-2.2.*: Test that "PRAGMA main.cache_size" appears to work with 
        !            67: #                small values.
        !            68: #   cache-2.3.*: Test cache_size=1 correctly spills/flushes the cache. 
        !            69: #   cache-2.4.*: Test cache_size=0 correctly spills/flushes the cache. 
        !            70: #
        !            71: #
        !            72: db_delete_and_reopen
        !            73: do_execsql_test cache-2.0 {
        !            74:   PRAGMA auto_vacuum=OFF;
        !            75:   PRAGMA journal_mode=DELETE;
        !            76:   CREATE TABLE t1(a, b);
        !            77:   CREATE TABLE t2(c, d);
        !            78:   INSERT INTO t1 VALUES('x', 'y');
        !            79:   INSERT INTO t2 VALUES('i', 'j');
        !            80: } {delete}
        !            81: 
        !            82: for {set i 0} {$i < 20} {incr i} {
        !            83:   do_execsql_test cache-2.1.$i.1 "PRAGMA cache_size = $i"
        !            84:   do_execsql_test cache-2.1.$i.2 "PRAGMA cache_size" $i
        !            85:   do_execsql_test cache-2.1.$i.3 "SELECT * FROM t1" {x y}
        !            86:   do_execsql_test cache-2.1.$i.4 "PRAGMA cache_size" $i
        !            87: }
        !            88: for {set i 0} {$i < 20} {incr i} {
        !            89:   do_execsql_test cache-2.2.$i.1 "PRAGMA main.cache_size = $i"
        !            90:   do_execsql_test cache-2.2.$i.2 "PRAGMA main.cache_size" $i
        !            91:   do_execsql_test cache-2.2.$i.3 "SELECT * FROM t1" {x y}
        !            92:   do_execsql_test cache-2.2.$i.4 "PRAGMA main.cache_size" $i
        !            93: }
        !            94: 
        !            95: # Tests for cache_size = 1.
        !            96: #
        !            97: do_execsql_test cache-2.3.1 {
        !            98:   PRAGMA cache_size = 1;
        !            99:   BEGIN;
        !           100:     INSERT INTO t1 VALUES(1, 2);
        !           101:     PRAGMA lock_status;
        !           102: } {main reserved temp closed}
        !           103: do_test cache-2.3.2 { pager_cache_size db } 2
        !           104: do_execsql_test cache-2.3.3 {
        !           105:     INSERT INTO t2 VALUES(1, 2);
        !           106:     PRAGMA lock_status;
        !           107: } {main exclusive temp closed}
        !           108: do_test cache-2.3.4 { pager_cache_size db } 2
        !           109: do_execsql_test cache-2.3.5 COMMIT
        !           110: do_test cache-2.3.6 { pager_cache_size db } 1
        !           111: 
        !           112: do_execsql_test cache-2.3.7 {
        !           113:   SELECT * FROM t1 UNION SELECT * FROM t2;
        !           114: } {1 2 i j x y}
        !           115: do_test cache-2.3.8 { pager_cache_size db } 1
        !           116: 
        !           117: # Tests for cache_size = 0.
        !           118: #
        !           119: do_execsql_test cache-2.4.1 {
        !           120:   PRAGMA cache_size = 0;
        !           121:   BEGIN;
        !           122:     INSERT INTO t1 VALUES(1, 2);
        !           123:     PRAGMA lock_status;
        !           124: } {main reserved temp closed}
        !           125: do_test cache-2.4.2 { pager_cache_size db } 2
        !           126: do_execsql_test cache-2.4.3 {
        !           127:     INSERT INTO t2 VALUES(1, 2);
        !           128:     PRAGMA lock_status;
        !           129: } {main exclusive temp closed}
        !           130: do_test cache-2.4.4 { pager_cache_size db } 2
        !           131: do_execsql_test cache-2.4.5 COMMIT
        !           132: 
        !           133: do_test cache-2.4.6 { pager_cache_size db } 0
        !           134: do_execsql_test cache-2.4.7 {
        !           135:   SELECT * FROM t1 UNION SELECT * FROM t2;
        !           136: } {1 2 i j x y}
        !           137: do_test cache-2.4.8 { pager_cache_size db } 0
        !           138: 
        !           139: sqlite3_soft_heap_limit $cmdlinearg(soft-heap-limit)
        !           140: finish_test