File:  [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test / bigrow.test
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs - revision graph
Tue Feb 21 17:04:16 2012 UTC (12 years, 10 months ago) by misho
Branches: sqlite3, MAIN
CVS tags: v3_7_10, HEAD
sqlite3

    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.1.1.1 2012/02/21 17:04:16 misho 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>