xref: /sqlite-3.40.0/test/dbdata.test (revision b0c4ef71) 
1# 2019-04-11
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# This file implements regression tests for SQLite library.  The
12# focus of this file is testing the sqlite_dbpage virtual table.
13#
14
15set testdir [file dirname $argv0]
16source $testdir/tester.tcl
17set testprefix dbdata
18
19ifcapable !vtab||!compound {
20  finish_test
21  return
22}
23if { [catch { db enable_load_extension 1 }]
24  || [catch { db eval { SELECT load_extension('../dbdata') } }]
25} {
26  finish_test
27  return
28}
29
30do_execsql_test 1.0 {
31  CREATE TABLE T1(a, b);
32  INSERT INTO t1(rowid, a ,b) VALUES(5, 'v', 'five');
33  INSERT INTO t1(rowid, a, b) VALUES(10, 'x', 'ten');
34}
35
36do_execsql_test 1.1 {
37  SELECT pgno, cell, field, quote(value) FROM sqlite_dbdata WHERE pgno=2;
38} {
39  2 0 -1 5
40  2 0  0 'v'
41  2 0  1 'five'
42  2 1 -1 10
43  2 1  0 'x'
44  2 1  1 'ten'
45}
46
47breakpoint
48do_execsql_test 1.2 {
49  SELECT pgno, cell, field, quote(value) FROM sqlite_dbdata;
50} {
51  1 0 -1 1
52  1 0 0 'table'
53  1 0 1 'T1'
54  1 0 2 'T1'
55  1 0 3 2
56  1 0 4 {'CREATE TABLE T1(a, b)'}
57  2 0 -1 5
58  2 0  0 'v'
59  2 0  1 'five'
60  2 1 -1 10
61  2 1  0 'x'
62  2 1  1 'ten'
63}
64
65set big [string repeat big 2000]
66do_execsql_test 1.3 {
67  INSERT INTO t1 VALUES(NULL, $big);
68  SELECT value FROM sqlite_dbdata WHERE pgno=2 AND cell=2 AND field=1;
69} $big
70
71do_execsql_test 1.4 {
72  DELETE FROM t1;
73  INSERT INTO t1 VALUES(NULL, randomblob(5050));
74}
75do_test 1.5 {
76  execsql {
77    SELECT quote(value) FROM sqlite_dbdata WHERE pgno=2 AND cell=0 AND field=1;
78  }
79} [db one {SELECT quote(b) FROM t1}]
80
81#-------------------------------------------------------------------------
82reset_db
83db enable_load_extension 1
84db eval { SELECT load_extension('../dbdata') }
85
86do_execsql_test 2.0 {
87  CREATE TABLE t1(a);
88  CREATE INDEX i1 ON t1(a);
89  WITH s(i) AS (
90    SELECT 1 UNION ALL SELECT i+1 FROM s WHERE i<10
91  )
92  INSERT INTO t1 SELECT randomblob(900) FROM s;
93}
94
95do_execsql_test 2.1 {
96  SELECT * FROM sqlite_dbptr WHERE pgno=2;
97} {
98  2 25   2 6   2 7   2 9   2 11   2 13   2 15   2 17   2 19   2 21
99}
100
101do_execsql_test 2.2 {
102  SELECT * FROM sqlite_dbptr WHERE pgno=3;
103} {
104  3 24   3 23
105}
106
107do_execsql_test 2.3 {
108  SELECT * FROM sqlite_dbptr
109} {
110  2 25   2 6   2 7   2 9   2 11   2 13   2 15   2 17   2 19   2 21
111  3 24   3 23
112}
113
114
115finish_test
116