Return to lookaside.test CVS log

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

Annotation of embedaddon/sqlite3/test/lookaside.test, revision 1.1.1.1

1.1       misho       1: # 2008 August 01
                      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 lookaside memory allocator.
                     13: #
                     14: # $Id: lookaside.test,v 1.10 2009/04/09 01:23:49 drh Exp $
                     15: 
                     16: set testdir [file dirname $argv0]
                     17: source $testdir/tester.tcl
                     18: 
                     19: ifcapable !lookaside {
                     20:   finish_test
                     21:   return
                     22: }
                     23: 
                     24: # The tests in this file configure the lookaside allocator after a 
                     25: # connection is opened. This will not work if there is any "presql"
                     26: # configured (SQL run within the [sqlite3] wrapper in tester.tcl).
                     27: if {[info exists ::G(perm:presql)]} {
                     28:   finish_test
                     29:   return
                     30: }
                     31: 
                     32: catch {db close}
                     33: sqlite3_shutdown
                     34: sqlite3_config_pagecache 0 0
                     35: sqlite3_config_scratch 0 0
                     36: sqlite3_initialize
                     37: autoinstall_test_functions
                     38: sqlite3 db test.db
                     39: 
                     40: # Make sure sqlite3_db_config() and sqlite3_db_status are working.
                     41: #
                     42: do_test lookaside-1.1 {
                     43:   catch {sqlite3_config_error db}
                     44: } {0}
                     45: 
                     46: do_test lookaside-1.2 {
                     47:   sqlite3_db_config_lookaside db 1 18 18
                     48: } {0}
                     49: do_test lookaside-1.3.1 {
                     50:   sqlite3_db_status db DBSTATUS_LOOKASIDE_USED 0
                     51: } {0 0 0}
                     52: do_test lookaside-1.3.2 {
                     53:   sqlite3_db_status db DBSTATUS_LOOKASIDE_HIT 0
                     54: } {0 0 0}
                     55: do_test lookaside-1.3.3 {
                     56:   sqlite3_db_status db DBSTATUS_LOOKASIDE_MISS_SIZE 0
                     57: } {0 0 0}
                     58: do_test lookaside-1.3.4 {
                     59:   sqlite3_db_status db DBSTATUS_LOOKASIDE_MISS_FULL 0
                     60: } {0 0 0}
                     61: 
                     62: do_test lookaside-1.4 {
                     63:   db eval {CREATE TABLE t1(w,x,y,z);}
                     64:   foreach {x y z} [sqlite3_db_status db DBSTATUS_LOOKASIDE_USED 0] break
                     65:   set p [lindex [sqlite3_db_status db DBSTATUS_LOOKASIDE_HIT 0] 2]
                     66:   set q [lindex [sqlite3_db_status db DBSTATUS_LOOKASIDE_MISS_SIZE 0] 2]
                     67:   set r [lindex [sqlite3_db_status db DBSTATUS_LOOKASIDE_MISS_FULL 0] 2]
                     68:   expr {$x==0 && $y<$z && $z==18 && $p>0 && $q>0 && $r>0}
                     69: } {0}
                     70: do_test lookaside-1.5 {
                     71:   foreach {x y z} [sqlite3_db_status db DBSTATUS_LOOKASIDE_USED 1] break
                     72:   expr {$x==0 && $y<$z && $z==18}
                     73: } {0}
                     74: do_test lookaside-1.6 {
                     75:   foreach {x y z} [sqlite3_db_status db DBSTATUS_LOOKASIDE_USED 0] break
                     76:   expr {$x==0 && $y==$z && $y<18}
                     77: } {1}
                     78: do_test lookaside-1.7 {
                     79:   db cache flush
                     80:   foreach {x y z} [sqlite3_db_status db DBSTATUS_LOOKASIDE_USED 0] break
                     81:   expr {$x==0 && $y==0 && $z<18}
                     82: } {1}
                     83: do_test lookaside-1.8 {
                     84:   db cache flush
                     85:   foreach {x y z} [sqlite3_db_status db DBSTATUS_LOOKASIDE_USED 1] break
                     86:   expr {$x==0 && $y==0 && $z<18}
                     87: } {1}
                     88: do_test lookaside-1.9 {
                     89:   db cache flush
                     90:   sqlite3_db_status db DBSTATUS_LOOKASIDE_USED 0
                     91: } {0 0 0}
                     92: 
                     93: do_test lookaside-2.1 {
                     94:   sqlite3_db_config_lookaside db 0 100 1000
                     95: } {0}
                     96: do_test lookaside-2.2 {
                     97:   db eval {CREATE TABLE t2(x);}
                     98:   foreach {x y z} [sqlite3_db_status db DBSTATUS_LOOKASIDE_USED 0] break
                     99:   expr {$x==0 && $y<$z && $z>10 && $z<100}
                    100: } {1}
                    101: do_test lookaside-2.3 {
                    102:   sqlite3_db_config_lookaside db 0 50 50
                    103: } {5}  ;# SQLITE_BUSY
                    104: do_test lookaside-2.4 {
                    105:   db cache flush
                    106:   sqlite3_db_config_lookaside db 0 50 50
                    107: } {0}  ;# SQLITE_OK
                    108: do_test lookaside-2.5 {
                    109:   sqlite3_db_config_lookaside db 0 -1 50
                    110: } {0}  ;# SQLITE_OK
                    111: do_test lookaside-2.6 {
                    112:   sqlite3_db_config_lookaside db 0 50 -1
                    113: } {0}  ;# SQLITE_OK
                    114: 
                    115: # sqlite3_db_status() with an invalid verb returns an error.
                    116: #
                    117: do_test lookaside-3.1 {
                    118:   sqlite3_db_status db 99999 0
                    119: } {1 0 0}
                    120: 
                    121: # Test that an invalid verb on sqlite3_config() is detected and
                    122: # reported as an error.
                    123: #
                    124: do_test lookaside-4.1 {
                    125:   db close
                    126:   sqlite3_shutdown
                    127:   catch sqlite3_config_error
                    128: } {0}
                    129: sqlite3_initialize
                    130: autoinstall_test_functions
                    131: 
                    132: finish_test