# 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