Index: third_party/sqlite/sqlite-src-3070603/test/bigrow.test |
diff --git a/third_party/sqlite/sqlite-src-3070603/test/bigrow.test b/third_party/sqlite/sqlite-src-3070603/test/bigrow.test |
new file mode 100644 |
index 0000000000000000000000000000000000000000..fa59c3625240a582a1d38e3826d895264e68c7ef |
--- /dev/null |
+++ b/third_party/sqlite/sqlite-src-3070603/test/bigrow.test |
@@ -0,0 +1,223 @@ |
+# 2001 September 23 |
+# |
+# The author disclaims copyright to this source code. In place of |
+# a legal notice, here is a blessing: |
+# |
+# May you do good and not evil. |
+# May you find forgiveness for yourself and forgive others. |
+# May you share freely, never taking more than you give. |
+# |
+#*********************************************************************** |
+# This file implements regression tests for SQLite library. The |
+# focus of this file is stressing the library by putting large amounts |
+# of data in a single row of a table. |
+# |
+# $Id: bigrow.test,v 1.5 2004/08/07 23:54:48 drh Exp $ |
+ |
+set testdir [file dirname $argv0] |
+source $testdir/tester.tcl |
+ |
+# Make a big string that we can use for test data |
+# |
+do_test bigrow-1.0 { |
+ set ::bigstr {} |
+ for {set i 1} {$i<=9999} {incr i} { |
+ set sep [string index "abcdefghijklmnopqrstuvwxyz" [expr {$i%26}]] |
+ append ::bigstr "$sep [format %04d $i] " |
+ } |
+ string length $::bigstr |
+} {69993} |
+ |
+# Make a table into which we can insert some but records. |
+# |
+do_test bigrow-1.1 { |
+ execsql { |
+ CREATE TABLE t1(a text, b text, c text); |
+ SELECT name FROM sqlite_master |
+ WHERE type='table' OR type='index' |
+ ORDER BY name |
+ } |
+} {t1} |
+ |
+do_test bigrow-1.2 { |
+ set ::big1 [string range $::bigstr 0 65519] |
+ set sql "INSERT INTO t1 VALUES('abc'," |
+ append sql "'$::big1', 'xyz');" |
+ execsql $sql |
+ execsql {SELECT a, c FROM t1} |
+} {abc xyz} |
+do_test bigrow-1.3 { |
+ execsql {SELECT b FROM t1} |
+} [list $::big1] |
+do_test bigrow-1.4 { |
+ set ::big2 [string range $::bigstr 0 65520] |
+ set sql "INSERT INTO t1 VALUES('abc2'," |
+ append sql "'$::big2', 'xyz2');" |
+ set r [catch {execsql $sql} msg] |
+ lappend r $msg |
+} {0 {}} |
+do_test bigrow-1.4.1 { |
+ execsql {SELECT b FROM t1 ORDER BY c} |
+} [list $::big1 $::big2] |
+do_test bigrow-1.4.2 { |
+ execsql {SELECT c FROM t1 ORDER BY c} |
+} {xyz xyz2} |
+do_test bigrow-1.4.3 { |
+ execsql {DELETE FROM t1 WHERE a='abc2'} |
+ execsql {SELECT c FROM t1} |
+} {xyz} |
+ |
+do_test bigrow-1.5 { |
+ execsql { |
+ UPDATE t1 SET a=b, b=a; |
+ SELECT b,c FROM t1 |
+ } |
+} {abc xyz} |
+do_test bigrow-1.6 { |
+ execsql { |
+ SELECT * FROM t1 |
+ } |
+} [list $::big1 abc xyz] |
+do_test bigrow-1.7 { |
+ execsql { |
+ INSERT INTO t1 VALUES('1','2','3'); |
+ INSERT INTO t1 VALUES('A','B','C'); |
+ SELECT b FROM t1 WHERE a=='1'; |
+ } |
+} {2} |
+do_test bigrow-1.8 { |
+ execsql "SELECT b FROM t1 WHERE a=='$::big1'" |
+} {abc} |
+do_test bigrow-1.9 { |
+ execsql "SELECT b FROM t1 WHERE a!='$::big1' ORDER BY a" |
+} {2 B} |
+ |
+# Try doing some indexing on big columns |
+# |
+do_test bigrow-2.1 { |
+ execsql { |
+ CREATE INDEX i1 ON t1(a) |
+ } |
+ execsql "SELECT b FROM t1 WHERE a=='$::big1'" |
+} {abc} |
+do_test bigrow-2.2 { |
+ execsql { |
+ UPDATE t1 SET a=b, b=a |
+ } |
+ execsql "SELECT b FROM t1 WHERE a=='abc'" |
+} [list $::big1] |
+do_test bigrow-2.3 { |
+ execsql { |
+ UPDATE t1 SET a=b, b=a |
+ } |
+ execsql "SELECT b FROM t1 WHERE a=='$::big1'" |
+} {abc} |
+catch {unset ::bigstr} |
+catch {unset ::big1} |
+catch {unset ::big2} |
+ |
+# Mosts of the tests above were created back when rows were limited in |
+# size to 64K. Now rows can be much bigger. Test that logic. Also |
+# make sure things work correctly at the transition boundries between |
+# row sizes of 256 to 257 bytes and from 65536 to 65537 bytes. |
+# |
+# We begin by testing the 256..257 transition. |
+# |
+do_test bigrow-3.1 { |
+ execsql { |
+ DELETE FROM t1; |
+ INSERT INTO t1(a,b,c) VALUES('one','abcdefghijklmnopqrstuvwxyz0123','hi'); |
+ } |
+ execsql {SELECT a,length(b),c FROM t1} |
+} {one 30 hi} |
+do_test bigrow-3.2 { |
+ execsql { |
+ UPDATE t1 SET b=b||b; |
+ UPDATE t1 SET b=b||b; |
+ UPDATE t1 SET b=b||b; |
+ } |
+ execsql {SELECT a,length(b),c FROM t1} |
+} {one 240 hi} |
+for {set i 1} {$i<10} {incr i} { |
+ do_test bigrow-3.3.$i { |
+ execsql "UPDATE t1 SET b=b||'$i'" |
+ execsql {SELECT a,length(b),c FROM t1} |
+ } "one [expr {240+$i}] hi" |
+} |
+ |
+# Now test the 65536..65537 row-size transition. |
+# |
+do_test bigrow-4.1 { |
+ execsql { |
+ DELETE FROM t1; |
+ INSERT INTO t1(a,b,c) VALUES('one','abcdefghijklmnopqrstuvwxyz0123','hi'); |
+ } |
+ execsql {SELECT a,length(b),c FROM t1} |
+} {one 30 hi} |
+do_test bigrow-4.2 { |
+ execsql { |
+ UPDATE t1 SET b=b||b; |
+ UPDATE t1 SET b=b||b; |
+ UPDATE t1 SET b=b||b; |
+ UPDATE t1 SET b=b||b; |
+ UPDATE t1 SET b=b||b; |
+ UPDATE t1 SET b=b||b; |
+ UPDATE t1 SET b=b||b; |
+ UPDATE t1 SET b=b||b; |
+ UPDATE t1 SET b=b||b; |
+ UPDATE t1 SET b=b||b; |
+ UPDATE t1 SET b=b||b; |
+ UPDATE t1 SET b=b||b; |
+ } |
+ execsql {SELECT a,length(b),c FROM t1} |
+} {one 122880 hi} |
+do_test bigrow-4.3 { |
+ execsql { |
+ UPDATE t1 SET b=substr(b,1,65515) |
+ } |
+ execsql {SELECT a,length(b),c FROM t1} |
+} {one 65515 hi} |
+for {set i 1} {$i<10} {incr i} { |
+ do_test bigrow-4.4.$i { |
+ execsql "UPDATE t1 SET b=b||'$i'" |
+ execsql {SELECT a,length(b),c FROM t1} |
+ } "one [expr {65515+$i}] hi" |
+} |
+ |
+# Check to make sure the library recovers safely if a row contains |
+# too much data. |
+# |
+do_test bigrow-5.1 { |
+ execsql { |
+ DELETE FROM t1; |
+ INSERT INTO t1(a,b,c) VALUES('one','abcdefghijklmnopqrstuvwxyz0123','hi'); |
+ } |
+ execsql {SELECT a,length(b),c FROM t1} |
+} {one 30 hi} |
+set i 1 |
+for {set sz 60} {$sz<1048560} {incr sz $sz} { |
+ do_test bigrow-5.2.$i { |
+ execsql { |
+ UPDATE t1 SET b=b||b; |
+ SELECT a,length(b),c FROM t1; |
+ } |
+ } "one $sz hi" |
+ incr i |
+} |
+do_test bigrow-5.3 { |
+ catchsql {UPDATE t1 SET b=b||b} |
+} {0 {}} |
+do_test bigrow-5.4 { |
+ execsql {SELECT length(b) FROM t1} |
+} 1966080 |
+do_test bigrow-5.5 { |
+ catchsql {UPDATE t1 SET b=b||b} |
+} {0 {}} |
+do_test bigrow-5.6 { |
+ execsql {SELECT length(b) FROM t1} |
+} 3932160 |
+do_test bigrow-5.99 { |
+ execsql {DROP TABLE t1} |
+} {} |
+ |
+finish_test |