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 133
