diff options
author | dan miller | 2007-10-21 08:36:32 +0000 |
---|---|---|
committer | dan miller | 2007-10-21 08:36:32 +0000 |
commit | 2f8d7092bc2c9609fa98d6888106b96f38b22828 (patch) | |
tree | da6c37579258cc965b52a75aee6135fe44237698 /libraries/sqlite/unix/sqlite-3.5.1/test/cache.test | |
parent | * Committing new PolicyManager based on an ACL system. (diff) | |
download | opensim-SC-2f8d7092bc2c9609fa98d6888106b96f38b22828.zip opensim-SC-2f8d7092bc2c9609fa98d6888106b96f38b22828.tar.gz opensim-SC-2f8d7092bc2c9609fa98d6888106b96f38b22828.tar.bz2 opensim-SC-2f8d7092bc2c9609fa98d6888106b96f38b22828.tar.xz |
libraries moved to opensim-libs, a new repository
Diffstat (limited to 'libraries/sqlite/unix/sqlite-3.5.1/test/cache.test')
-rw-r--r-- | libraries/sqlite/unix/sqlite-3.5.1/test/cache.test | 63 |
1 files changed, 0 insertions, 63 deletions
diff --git a/libraries/sqlite/unix/sqlite-3.5.1/test/cache.test b/libraries/sqlite/unix/sqlite-3.5.1/test/cache.test deleted file mode 100644 index dd51c7c..0000000 --- a/libraries/sqlite/unix/sqlite-3.5.1/test/cache.test +++ /dev/null | |||
@@ -1,63 +0,0 @@ | |||
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 | do_test cache-1.1 { | ||
32 | pager_cache_size db | ||
33 | } {0} | ||
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 | |||
55 | do_test cache-1.3.$ii { | ||
56 | execsql {SELECT * FROM abc} | ||
57 | pager_cache_size db | ||
58 | } $::cache_size | ||
59 | |||
60 | } | ||
61 | sqlite3_soft_heap_limit $soft_limit | ||
62 | |||
63 | finish_test | ||