xref: /sqlite-3.40.0/test/dbstatus2.test (revision dfe4e6bb) 
1# 2011 September 20
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 sqlite3_db_status() function
13#
14
15set testdir [file dirname $argv0]
16source $testdir/tester.tcl
17
18set ::testprefix dbstatus2
19
20do_execsql_test 1.0 {
21  PRAGMA page_size = 1024;
22  PRAGMA auto_vacuum = 0;
23
24  CREATE TABLE t1(a PRIMARY KEY, b);
25  INSERT INTO t1 VALUES(1, randomblob(600));
26  INSERT INTO t1 VALUES(2, randomblob(600));
27  INSERT INTO t1 VALUES(3, randomblob(600));
28}
29
30proc db_hit_miss {db {reset 0}} {
31  set nHit  [sqlite3_db_status $db CACHE_HIT $reset]
32  set nMiss [sqlite3_db_status $db CACHE_MISS $reset]
33  list $nHit $nMiss
34}
35
36proc db_write {db {reset 0}} {
37  sqlite3_db_status $db CACHE_WRITE $reset
38}
39
40do_test 1.1 {
41  db close
42  sqlite3 db test.db
43  execsql { PRAGMA mmap_size = 0 }
44  expr {[file size test.db] / 1024}
45} 6
46
47do_test 1.2 {
48  execsql { SELECT b FROM t1 WHERE a=2 }
49  db_hit_miss db
50} {{0 2 0} {0 4 0}}
51
52do_test 1.3 {
53  execsql { SELECT b FROM t1 WHERE a=2 }
54  db_hit_miss db
55} {{0 6 0} {0 4 0}}
56
57do_test 1.4 {
58  execsql { SELECT b FROM t1 WHERE a=2 }
59  db_hit_miss db
60} {{0 10 0} {0 4 0}}
61
62do_test 1.5 {
63  db_hit_miss db 1
64} {{0 10 0} {0 4 0}}
65
66do_test 1.6 {
67  db_hit_miss db 0
68} {{0 0 0} {0 0 0}}
69
70do_test 1.7 {
71  set fd [db incrblob main t1 b 1]
72  fconfigure $fd -translation binary
73  set len [string length [read $fd]]
74  close $fd
75  set len
76} 600
77do_test 1.8 { sqlite3_db_status db CACHE_HIT  0 } {0 2 0}
78do_test 1.9 { sqlite3_db_status db CACHE_MISS 0 } {0 1 0}
79
80do_test 2.1 { db_write db } {0 0 0}
81do_test 2.2 {
82  execsql { INSERT INTO t1 VALUES(4, randomblob(600)) }
83  db_write db
84} {0 4 0}
85do_test 2.3 { db_write db 1 } {0 4 0}
86do_test 2.4 { db_write db 0 } {0 0 0}
87do_test 2.5 { db_write db 1 } {0 0 0}
88
89if {[wal_is_capable]} {
90  do_test 2.6 {
91    execsql { PRAGMA journal_mode = WAL }
92    db_write db 1
93  } {0 1 0}
94}
95do_test 2.7 {
96  execsql { INSERT INTO t1 VALUES(5, randomblob(600)) }
97  db_write db
98} {0 4 0}
99do_test 2.8 { db_write db 1 } {0 4 0}
100do_test 2.9 { db_write db 0 } {0 0 0}
101
102finish_test
103