xref: /sqlite-3.40.0/test/dbstatus2.test (revision 3d403c71) 
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  expr {[file size test.db] / 1024}
44} 6
45
46do_test 1.2 {
47  execsql { SELECT b FROM t1 WHERE a=2 }
48  db_hit_miss db
49} {{0 2 0} {0 4 0}}
50
51do_test 1.3 {
52  execsql { SELECT b FROM t1 WHERE a=2 }
53  db_hit_miss db
54} {{0 6 0} {0 4 0}}
55
56do_test 1.4 {
57  execsql { SELECT b FROM t1 WHERE a=2 }
58  db_hit_miss db
59} {{0 10 0} {0 4 0}}
60
61do_test 1.5 {
62  db_hit_miss db 1
63} {{0 10 0} {0 4 0}}
64
65do_test 1.6 {
66  db_hit_miss db 0
67} {{0 0 0} {0 0 0}}
68
69do_test 1.7 {
70  set fd [db incrblob main t1 b 1]
71  fconfigure $fd -translation binary
72  set len [string length [read $fd]]
73  close $fd
74  set len
75} 600
76do_test 1.8 { sqlite3_db_status db CACHE_HIT  0 } {0 2 0}
77do_test 1.9 { sqlite3_db_status db CACHE_MISS 0 } {0 1 0}
78
79do_test 2.1 { db_write db } {0 0 0}
80do_test 2.2 {
81  execsql { INSERT INTO t1 VALUES(4, randomblob(600)) }
82  db_write db
83} {0 4 0}
84do_test 2.3 { db_write db 1 } {0 4 0}
85do_test 2.4 { db_write db 0 } {0 0 0}
86do_test 2.5 { db_write db 1 } {0 0 0}
87
88do_test 2.6 {
89  execsql { PRAGMA journal_mode = WAL }
90  db_write db 1
91} {0 1 0}
92do_test 2.7 {
93  execsql { INSERT INTO t1 VALUES(5, randomblob(600)) }
94  db_write db
95} {0 4 0}
96do_test 2.8 { db_write db 1 } {0 4 0}
97do_test 2.9 { db_write db 0 } {0 0 0}
98
99finish_test
100