OLD | NEW |
| (Empty) |
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||!compound { | |
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 initialized, 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 | |
OLD | NEW |