1# 2021 April 22
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.
12#
13
14if {![info exists testdir]} {
15  set testdir [file join [file dirname [info script]] .. .. test]
16}
17source [file join [file dirname [info script]] session_common.tcl]
18source $testdir/tester.tcl
19ifcapable !session {finish_test; return}
20
21set testprefix sessionsize
22
23proc do_changeset_size_test {tn sql} {
24  sqlite3session S db main
25  S attach *
26  db eval $sql
27
28  set sz [S changeset_size]
29  set C [S changeset]
30  set szC [string length $C]
31  S delete
32
33  do_test $tn "expr $sz" $szC
34}
35
36do_execsql_test 1.0 {
37  CREATE TABLE t1(a INTEGER PRIMARY KEY, b, c);
38  INSERT INTO t1 VALUES(1, 'abc', 'def');
39  INSERT INTO t1 VALUES(2, 'ghi', 'jkl');
40}
41
42do_changeset_size_test 1.1 {
43  INSERT INTO t1 VALUES(3, 'hello', 'world');
44}
45
46do_changeset_size_test 1.2 {
47  DELETE FROM t1 WHERE a=2;
48}
49
50do_changeset_size_test 1.3 {
51  DELETE FROM t1 WHERE a=3;
52  INSERT INTO t1 VALUES(3, 1, 2);
53}
54
55do_changeset_size_test 1.4 {
56  UPDATE t1 SET c='hello world' WHERE a=3;
57}
58
59#-------------------------------------------------------------------------
60
61do_execsql_test 2.0 {
62  CREATE TABlE t2(a, b, c, d, PRIMARY KEY(a, b)) WITHOUT ROWID;
63  CREATE TABlE t3(a, b, c, d PRIMARY KEY);
64}
65
66do_changeset_size_test 2.1 {
67  WITH s(i) AS (
68    SELECT 1 UNION ALL SELECT i+1 FROM s WHERE i<50
69  )
70  INSERT INTO t2 SELECT i, i+1, i+2, i+3 FROM s;
71
72  UPDATE t2 SET c=randomblob(a) WHERE a>10
73}
74
75do_changeset_size_test 2.2 {
76  DELETE FROM t2 WHERE a=1;
77  INSERT INTO t2 VALUES(1, 4, 3, 4);
78}
79
80do_changeset_size_test 2.2 {
81  UPDATE t2 SET b=4 WHERE a=2
82}
83
84do_changeset_size_test 2.3 {
85  INSERT INTO t2 VALUES('a', 'b', 'c', 'd');
86  UPDATE t2 SET c='qwertyuiop' WHERE a='a';
87}
88
89do_changeset_size_test 2.4 {
90  DELETE FROM t2 WHERE a='a';
91  INSERT INTO t2 VALUES('a', 'b', 'c', 'd');
92}
93
94do_changeset_size_test 2.5 {
95  UPDATE t2 SET a='aa', b='bb' WHERE (a, b) = ('a', 'b');
96}
97
98do_changeset_size_test 2.6 {
99  UPDATE t2 SET a='a', b='b' WHERE (a, b) = ('aa', 'bb');
100}
101
102do_changeset_size_test 2.7 {
103  INSERT INTO t3 DEFAULT VALUES;
104  INSERT INTO t3 VALUES(1,2,3,4);
105}
106
107#-------------------------------------------------------------------------
108reset_db
109
110do_execsql_test 3.0 {
111  CREATE TABLE t1(a INTEGER PRIMARY KEY, b);
112}
113
114do_test 3.1 {
115  sqlite3session S db main
116  S object_config_size -1
117} 1
118
119do_test 3.2.1 { S object_config_size 0  } 0
120do_test 3.2.2 { S object_config_size -1 } 0
121do_test 3.2.3 { S object_config_size 1  } 1
122do_test 3.2.4 { S object_config_size -1 } 1
123
124do_test 3.3 { S attach t1 } {}
125do_test 3.4 { S object_config_size 1  } {SQLITE_MISUSE}
126do_test 3.4 { S object_config_size -1 } {1}
127
128S delete
129
130finish_test
131
132