Annotation of embedaddon/sqlite3/test/bigrow.test, revision 1.1
1.1 ! misho 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
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to bigrow.test CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test