wasCSharpSQLite – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 # 2001 September 23
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 stressing the library by putting large amounts
13 # of data in a single row of a table.
14 #
15 # $Id: bigrow.test,v 1.5 2004/08/07 23:54:48 drh Exp $
16  
17 set testdir [file dirname $argv0]
18 source $testdir/tester.tcl
19  
20 # Make a big string that we can use for test data
21 #
22 do_test bigrow-1.0 {
23 set ::bigstr {}
24 for {set i 1} {$i<=9999} {incr i} {
25 set sep [string index "abcdefghijklmnopqrstuvwxyz" [expr {$i%26}]]
26 append ::bigstr "$sep [format %04d $i] "
27 }
28 string length $::bigstr
29 } {69993}
30  
31 # Make a table into which we can insert some but records.
32 #
33 do_test bigrow-1.1 {
34 execsql {
35 CREATE TABLE t1(a text, b text, c text);
36 SELECT name FROM sqlite_master
37 WHERE type='table' OR type='index'
38 ORDER BY name
39 }
40 } {t1}
41  
42 do_test bigrow-1.2 {
43 set ::big1 [string range $::bigstr 0 65519]
44 set sql "INSERT INTO t1 VALUES('abc',"
45 append sql "'$::big1', 'xyz');"
46 execsql $sql
47 execsql {SELECT a, c FROM t1}
48 } {abc xyz}
49 do_test bigrow-1.3 {
50 execsql {SELECT b FROM t1}
51 } [list $::big1]
52 do_test bigrow-1.4 {
53 set ::big2 [string range $::bigstr 0 65520]
54 set sql "INSERT INTO t1 VALUES('abc2',"
55 append sql "'$::big2', 'xyz2');"
56 set r [catch {execsql $sql} msg]
57 lappend r $msg
58 } {0 {}}
59 do_test bigrow-1.4.1 {
60 execsql {SELECT b FROM t1 ORDER BY c}
61 } [list $::big1 $::big2]
62 do_test bigrow-1.4.2 {
63 execsql {SELECT c FROM t1 ORDER BY c}
64 } {xyz xyz2}
65 do_test bigrow-1.4.3 {
66 execsql {DELETE FROM t1 WHERE a='abc2'}
67 execsql {SELECT c FROM t1}
68 } {xyz}
69  
70 do_test bigrow-1.5 {
71 execsql {
72 UPDATE t1 SET a=b, b=a;
73 SELECT b,c FROM t1
74 }
75 } {abc xyz}
76 do_test bigrow-1.6 {
77 execsql {
78 SELECT * FROM t1
79 }
80 } [list $::big1 abc xyz]
81 do_test bigrow-1.7 {
82 execsql {
83 INSERT INTO t1 VALUES('1','2','3');
84 INSERT INTO t1 VALUES('A','B','C');
85 SELECT b FROM t1 WHERE a=='1';
86 }
87 } {2}
88 do_test bigrow-1.8 {
89 execsql "SELECT b FROM t1 WHERE a=='$::big1'"
90 } {abc}
91 do_test bigrow-1.9 {
92 execsql "SELECT b FROM t1 WHERE a!='$::big1' ORDER BY a"
93 } {2 B}
94  
95 # Try doing some indexing on big columns
96 #
97 do_test bigrow-2.1 {
98 execsql {
99 CREATE INDEX i1 ON t1(a)
100 }
101 execsql "SELECT b FROM t1 WHERE a=='$::big1'"
102 } {abc}
103 do_test bigrow-2.2 {
104 execsql {
105 UPDATE t1 SET a=b, b=a
106 }
107 execsql "SELECT b FROM t1 WHERE a=='abc'"
108 } [list $::big1]
109 do_test bigrow-2.3 {
110 execsql {
111 UPDATE t1 SET a=b, b=a
112 }
113 execsql "SELECT b FROM t1 WHERE a=='$::big1'"
114 } {abc}
115 catch {unset ::bigstr}
116 catch {unset ::big1}
117 catch {unset ::big2}
118  
119 # Mosts of the tests above were created back when rows were limited in
120 # size to 64K. Now rows can be much bigger. Test that logic. Also
121 # make sure things work correctly at the transition boundries between
122 # row sizes of 256 to 257 bytes and from 65536 to 65537 bytes.
123 #
124 # We begin by testing the 256..257 transition.
125 #
126 do_test bigrow-3.1 {
127 execsql {
128 DELETE FROM t1;
129 INSERT INTO t1(a,b,c) VALUES('one','abcdefghijklmnopqrstuvwxyz0123','hi');
130 }
131 execsql {SELECT a,length(b),c FROM t1}
132 } {one 30 hi}
133 do_test bigrow-3.2 {
134 execsql {
135 UPDATE t1 SET b=b||b;
136 UPDATE t1 SET b=b||b;
137 UPDATE t1 SET b=b||b;
138 }
139 execsql {SELECT a,length(b),c FROM t1}
140 } {one 240 hi}
141 for {set i 1} {$i<10} {incr i} {
142 do_test bigrow-3.3.$i {
143 execsql "UPDATE t1 SET b=b||'$i'"
144 execsql {SELECT a,length(b),c FROM t1}
145 } "one [expr {240+$i}] hi"
146 }
147  
148 # Now test the 65536..65537 row-size transition.
149 #
150 do_test bigrow-4.1 {
151 execsql {
152 DELETE FROM t1;
153 INSERT INTO t1(a,b,c) VALUES('one','abcdefghijklmnopqrstuvwxyz0123','hi');
154 }
155 execsql {SELECT a,length(b),c FROM t1}
156 } {one 30 hi}
157 do_test bigrow-4.2 {
158 execsql {
159 UPDATE t1 SET b=b||b;
160 UPDATE t1 SET b=b||b;
161 UPDATE t1 SET b=b||b;
162 UPDATE t1 SET b=b||b;
163 UPDATE t1 SET b=b||b;
164 UPDATE t1 SET b=b||b;
165 UPDATE t1 SET b=b||b;
166 UPDATE t1 SET b=b||b;
167 UPDATE t1 SET b=b||b;
168 UPDATE t1 SET b=b||b;
169 UPDATE t1 SET b=b||b;
170 UPDATE t1 SET b=b||b;
171 }
172 execsql {SELECT a,length(b),c FROM t1}
173 } {one 122880 hi}
174 do_test bigrow-4.3 {
175 execsql {
176 UPDATE t1 SET b=substr(b,1,65515)
177 }
178 execsql {SELECT a,length(b),c FROM t1}
179 } {one 65515 hi}
180 for {set i 1} {$i<10} {incr i} {
181 do_test bigrow-4.4.$i {
182 execsql "UPDATE t1 SET b=b||'$i'"
183 execsql {SELECT a,length(b),c FROM t1}
184 } "one [expr {65515+$i}] hi"
185 }
186  
187 # Check to make sure the library recovers safely if a row contains
188 # too much data.
189 #
190 do_test bigrow-5.1 {
191 execsql {
192 DELETE FROM t1;
193 INSERT INTO t1(a,b,c) VALUES('one','abcdefghijklmnopqrstuvwxyz0123','hi');
194 }
195 execsql {SELECT a,length(b),c FROM t1}
196 } {one 30 hi}
197 set i 1
198 for {set sz 60} {$sz<1048560} {incr sz $sz} {
199 do_test bigrow-5.2.$i {
200 execsql {
201 UPDATE t1 SET b=b||b;
202 SELECT a,length(b),c FROM t1;
203 }
204 } "one $sz hi"
205 incr i
206 }
207 do_test bigrow-5.3 {
208 catchsql {UPDATE t1 SET b=b||b}
209 } {0 {}}
210 do_test bigrow-5.4 {
211 execsql {SELECT length(b) FROM t1}
212 } 1966080
213 do_test bigrow-5.5 {
214 catchsql {UPDATE t1 SET b=b||b}
215 } {0 {}}
216 do_test bigrow-5.6 {
217 execsql {SELECT length(b) FROM t1}
218 } 3932160
219 do_test bigrow-5.99 {
220 execsql {DROP TABLE t1}
221 } {}
222  
223 finish_test