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 224
