| Index: third_party/sqlite/test/bigrow.test
|
| ===================================================================
|
| --- third_party/sqlite/test/bigrow.test (revision 56608)
|
| +++ third_party/sqlite/test/bigrow.test (working copy)
|
| @@ -1,223 +0,0 @@
|
| -# 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
|
|
|