357 lines
9.6 KiB
Plaintext
357 lines
9.6 KiB
Plaintext
# 2001 September 15
|
|
#
|
|
# 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 testing the magic ROWID column that is
|
|
# found on all tables.
|
|
#
|
|
# $Id: rowid.test,v 1.8 2002/02/19 22:42:06 drh Exp $
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
|
|
# Basic ROWID functionality tests.
|
|
#
|
|
do_test rowid-1.1 {
|
|
execsql {
|
|
CREATE TABLE t1(x int, y int);
|
|
INSERT INTO t1 VALUES(1,2);
|
|
INSERT INTO t1 VALUES(3,4);
|
|
SELECT x FROM t1 ORDER BY y;
|
|
}
|
|
} {1 3}
|
|
do_test rowid-1.2 {
|
|
set r [execsql {SELECT rowid FROM t1 ORDER BY x}]
|
|
global x2rowid rowid2x
|
|
set x2rowid(1) [lindex $r 0]
|
|
set x2rowid(3) [lindex $r 1]
|
|
set rowid2x($x2rowid(1)) 1
|
|
set rowid2x($x2rowid(3)) 3
|
|
llength $r
|
|
} {2}
|
|
do_test rowid-1.3 {
|
|
global x2rowid
|
|
set sql "SELECT x FROM t1 WHERE rowid==$x2rowid(1)"
|
|
execsql $sql
|
|
} {1}
|
|
do_test rowid-1.4 {
|
|
global x2rowid
|
|
set sql "SELECT x FROM t1 WHERE rowid==$x2rowid(3)"
|
|
execsql $sql
|
|
} {3}
|
|
do_test rowid-1.5 {
|
|
global x2rowid
|
|
set sql "SELECT x FROM t1 WHERE oid==$x2rowid(1)"
|
|
execsql $sql
|
|
} {1}
|
|
do_test rowid-1.6 {
|
|
global x2rowid
|
|
set sql "SELECT x FROM t1 WHERE OID==$x2rowid(3)"
|
|
execsql $sql
|
|
} {3}
|
|
do_test rowid-1.7 {
|
|
global x2rowid
|
|
set sql "SELECT x FROM t1 WHERE _rowid_==$x2rowid(1)"
|
|
execsql $sql
|
|
} {1}
|
|
do_test rowid-1.7.1 {
|
|
while 1 {
|
|
set norow [expr {int(rand()*1000000)}]
|
|
if {$norow!=$x2rowid(1) && $norow!=$x2rowid(3)} break
|
|
}
|
|
execsql "SELECT x FROM t1 WHERE rowid=$norow"
|
|
} {}
|
|
do_test rowid-1.8 {
|
|
global x2rowid
|
|
set v [execsql {SELECT x, oid FROM t1 order by x}]
|
|
set v2 [list 1 $x2rowid(1) 3 $x2rowid(3)]
|
|
expr {$v==$v2}
|
|
} {1}
|
|
do_test rowid-1.9 {
|
|
global x2rowid
|
|
set v [execsql {SELECT x, RowID FROM t1 order by x}]
|
|
set v2 [list 1 $x2rowid(1) 3 $x2rowid(3)]
|
|
expr {$v==$v2}
|
|
} {1}
|
|
do_test rowid-1.9 {
|
|
global x2rowid
|
|
set v [execsql {SELECT x, _rowid_ FROM t1 order by x}]
|
|
set v2 [list 1 $x2rowid(1) 3 $x2rowid(3)]
|
|
expr {$v==$v2}
|
|
} {1}
|
|
|
|
# We cannot update or insert the ROWID column
|
|
#
|
|
do_test rowid-2.1 {
|
|
set v [catch {execsql {INSERT INTO t1(rowid,x,y) VALUES(1234,5,6)}} msg]
|
|
lappend v $msg
|
|
} {1 {table t1 has no column named rowid}}
|
|
do_test rowid-2.2 {
|
|
set v [catch {execsql {UPDATE t1 SET rowid=12345 WHERE x==1}}]
|
|
lappend v $msg
|
|
} {1 {table t1 has no column named rowid}}
|
|
do_test rowid-2.3 {
|
|
set v [catch {execsql {INSERT INTO t1(oid,x,y) VALUES(1234,5,6)}} msg]
|
|
lappend v $msg
|
|
} {1 {table t1 has no column named oid}}
|
|
do_test rowid-2.4 {
|
|
set v [catch {execsql {UPDATE t1 SET oid=12345 WHERE x==1}}]
|
|
lappend v $msg
|
|
} {1 {table t1 has no column named oid}}
|
|
do_test rowid-2.5 {
|
|
set v [catch {execsql {INSERT INTO t1(_rowid_,x,y) VALUES(1234,5,6)}} msg]
|
|
lappend v $msg
|
|
} {1 {table t1 has no column named _rowid_}}
|
|
do_test rowid-2.6 {
|
|
set v [catch {execsql {UPDATE t1 SET _rowid_=12345 WHERE x==1}}]
|
|
lappend v $msg
|
|
} {1 {table t1 has no column named _rowid_}}
|
|
|
|
# But we can use ROWID in the WHERE clause of an UPDATE that does not
|
|
# change the ROWID.
|
|
#
|
|
do_test rowid-2.7 {
|
|
global x2rowid
|
|
set sql "UPDATE t1 SET x=2 WHERE OID==$x2rowid(3)"
|
|
execsql $sql
|
|
execsql {SELECT x FROM t1 ORDER BY x}
|
|
} {1 2}
|
|
do_test rowid-2.8 {
|
|
global x2rowid
|
|
set sql "UPDATE t1 SET x=3 WHERE _rowid_==$x2rowid(3)"
|
|
execsql $sql
|
|
execsql {SELECT x FROM t1 ORDER BY x}
|
|
} {1 3}
|
|
|
|
# We cannot index by ROWID
|
|
#
|
|
do_test rowid-2.9 {
|
|
set v [catch {execsql {CREATE INDEX idxt1 ON t1(rowid)}} msg]
|
|
lappend v $msg
|
|
} {1 {table t1 has no column named rowid}}
|
|
do_test rowid-2.10 {
|
|
set v [catch {execsql {CREATE INDEX idxt1 ON t1(_rowid_)}} msg]
|
|
lappend v $msg
|
|
} {1 {table t1 has no column named _rowid_}}
|
|
do_test rowid-2.11 {
|
|
set v [catch {execsql {CREATE INDEX idxt1 ON t1(oid)}} msg]
|
|
lappend v $msg
|
|
} {1 {table t1 has no column named oid}}
|
|
do_test rowid-2.12 {
|
|
set v [catch {execsql {CREATE INDEX idxt1 ON t1(x, rowid)}} msg]
|
|
lappend v $msg
|
|
} {1 {table t1 has no column named rowid}}
|
|
|
|
# Columns defined in the CREATE statement override the buildin ROWID
|
|
# column names.
|
|
#
|
|
do_test rowid-3.1 {
|
|
execsql {
|
|
CREATE TABLE t2(rowid int, x int, y int);
|
|
INSERT INTO t2 VALUES(0,2,3);
|
|
INSERT INTO t2 VALUES(4,5,6);
|
|
INSERT INTO t2 VALUES(7,8,9);
|
|
SELECT * FROM t2 ORDER BY x;
|
|
}
|
|
} {0 2 3 4 5 6 7 8 9}
|
|
do_test rowid-3.2 {
|
|
execsql {SELECT * FROM t2 ORDER BY rowid}
|
|
} {0 2 3 4 5 6 7 8 9}
|
|
do_test rowid-3.3 {
|
|
execsql {SELECT rowid, x, y FROM t2 ORDER BY rowid}
|
|
} {0 2 3 4 5 6 7 8 9}
|
|
do_test rowid-3.4 {
|
|
set r1 [execsql {SELECT _rowid_, rowid FROM t2 ORDER BY rowid}]
|
|
foreach {a b c d e f} $r1 {}
|
|
set r2 [execsql {SELECT _rowid_, rowid FROM t2 ORDER BY x DESC}]
|
|
foreach {u v w x y z} $r2 {}
|
|
expr {$u==$e && $w==$c && $y==$a}
|
|
} {1}
|
|
do_probtest rowid-3.5 {
|
|
set r1 [execsql {SELECT _rowid_, rowid FROM t2 ORDER BY rowid}]
|
|
foreach {a b c d e f} $r1 {}
|
|
expr {$a!=$b && $c!=$d && $e!=$f}
|
|
} {1}
|
|
|
|
# Let's try some more complex examples, including some joins.
|
|
#
|
|
do_test rowid-4.1 {
|
|
execsql {
|
|
DELETE FROM t1;
|
|
DELETE FROM t2;
|
|
}
|
|
for {set i 1} {$i<=50} {incr i} {
|
|
execsql "INSERT INTO t1(x,y) VALUES($i,[expr {$i*$i}])"
|
|
}
|
|
execsql {INSERT INTO t2 SELECT _rowid_, x*y, y*y FROM t1}
|
|
execsql {SELECT t2.y FROM t1, t2 WHERE t1.x==4 AND t1.rowid==t2.rowid}
|
|
} {256}
|
|
do_test rowid-4.2 {
|
|
execsql {SELECT t2.y FROM t2, t1 WHERE t1.x==4 AND t1.rowid==t2.rowid}
|
|
} {256}
|
|
do_test rowid-4.2.1 {
|
|
execsql {SELECT t2.y FROM t2, t1 WHERE t1.x==4 AND t1.oid==t2.rowid}
|
|
} {256}
|
|
do_test rowid-4.2.2 {
|
|
execsql {SELECT t2.y FROM t2, t1 WHERE t1.x==4 AND t1._rowid_==t2.rowid}
|
|
} {256}
|
|
do_test rowid-4.2.3 {
|
|
execsql {SELECT t2.y FROM t2, t1 WHERE t1.x==4 AND t2.rowid==t1.rowid}
|
|
} {256}
|
|
do_test rowid-4.2.4 {
|
|
execsql {SELECT t2.y FROM t2, t1 WHERE t2.rowid==t1.oid AND t1.x==4}
|
|
} {256}
|
|
do_test rowid-4.2.5 {
|
|
execsql {SELECT t2.y FROM t1, t2 WHERE t1.x==4 AND t1._rowid_==t2.rowid}
|
|
} {256}
|
|
do_test rowid-4.2.6 {
|
|
execsql {SELECT t2.y FROM t1, t2 WHERE t1.x==4 AND t2.rowid==t1.rowid}
|
|
} {256}
|
|
do_test rowid-4.2.7 {
|
|
execsql {SELECT t2.y FROM t1, t2 WHERE t2.rowid==t1.oid AND t1.x==4}
|
|
} {256}
|
|
do_test rowid-4.3 {
|
|
execsql {CREATE INDEX idxt1 ON t1(x)}
|
|
execsql {SELECT t2.y FROM t1, t2 WHERE t1.x==4 AND t1.rowid==t2.rowid}
|
|
} {256}
|
|
do_test rowid-4.3.1 {
|
|
execsql {SELECT t2.y FROM t1, t2 WHERE t1.x==4 AND t1._rowid_==t2.rowid}
|
|
} {256}
|
|
do_test rowid-4.3.2 {
|
|
execsql {SELECT t2.y FROM t1, t2 WHERE t2.rowid==t1.oid AND 4==t1.x}
|
|
} {256}
|
|
do_test rowid-4.4 {
|
|
execsql {SELECT t2.y FROM t2, t1 WHERE t1.x==4 AND t1.rowid==t2.rowid}
|
|
} {256}
|
|
do_test rowid-4.4.1 {
|
|
execsql {SELECT t2.y FROM t2, t1 WHERE t1.x==4 AND t1._rowid_==t2.rowid}
|
|
} {256}
|
|
do_test rowid-4.4.2 {
|
|
execsql {SELECT t2.y FROM t2, t1 WHERE t2.rowid==t1.oid AND 4==t1.x}
|
|
} {256}
|
|
do_test rowid-4.5 {
|
|
execsql {CREATE INDEX idxt2 ON t2(y)}
|
|
set sqlite_search_count 0
|
|
concat [execsql {
|
|
SELECT t1.x FROM t2, t1
|
|
WHERE t2.y==256 AND t1.rowid==t2.rowid
|
|
}] $sqlite_search_count
|
|
} {4 3}
|
|
do_test rowid-4.5.1 {
|
|
set sqlite_search_count 0
|
|
concat [execsql {
|
|
SELECT t1.x FROM t2, t1
|
|
WHERE t1.OID==t2.rowid AND t2.y==81
|
|
}] $sqlite_search_count
|
|
} {3 3}
|
|
do_test rowid-4.6 {
|
|
execsql {
|
|
SELECT t1.x FROM t1, t2
|
|
WHERE t2.y==256 AND t1.rowid==t2.rowid
|
|
}
|
|
} {4}
|
|
|
|
do_test rowid-5.1 {
|
|
execsql {DELETE FROM t1 WHERE _rowid_ IN (SELECT oid FROM t1 WHERE x>8)}
|
|
execsql {SELECT max(x) FROM t1}
|
|
} {8}
|
|
|
|
# Make sure a "WHERE rowid=X" clause works when there is no ROWID of X.
|
|
#
|
|
do_test rowid-6.1 {
|
|
execsql {
|
|
SELECT x FROM t1
|
|
}
|
|
} {1 2 3 4 5 6 7 8}
|
|
do_test rowid-6.2 {
|
|
for {set ::norow 1} {1} {incr ::norow} {
|
|
if {[execsql "SELECT x FROM t1 WHERE rowid=$::norow"]==""} break
|
|
}
|
|
execsql [subst {
|
|
DELETE FROM t1 WHERE rowid=$::norow
|
|
}]
|
|
} {}
|
|
do_test rowid-6.3 {
|
|
execsql {
|
|
SELECT x FROM t1
|
|
}
|
|
} {1 2 3 4 5 6 7 8}
|
|
|
|
# Beginning with version 2.3.4, SQLite computes rowids of new rows by
|
|
# finding the maximum current rowid and adding one. It falls back to
|
|
# the old random algorithm if the maximum rowid is the largest integer.
|
|
# The following tests are for this new behavior.
|
|
#
|
|
do_test rowid-7.0 {
|
|
execsql {
|
|
DELETE FROM t1;
|
|
DROP TABLE t2;
|
|
DROP INDEX idxt1;
|
|
INSERT INTO t1 VALUES(1,2);
|
|
SELECT rowid, * FROM t1;
|
|
}
|
|
} {1 1 2}
|
|
do_test rowid-7.1 {
|
|
execsql {
|
|
INSERT INTO t1 VALUES(99,100);
|
|
SELECT rowid,* FROM t1
|
|
}
|
|
} {1 1 2 2 99 100}
|
|
do_test rowid-7.2 {
|
|
execsql {
|
|
CREATE TABLE t2(a INTEGER PRIMARY KEY, b);
|
|
INSERT INTO t2(b) VALUES(55);
|
|
SELECT * FROM t2;
|
|
}
|
|
} {1 55}
|
|
do_test rowid-7.3 {
|
|
execsql {
|
|
INSERT INTO t2(b) VALUES(66);
|
|
SELECT * FROM t2;
|
|
}
|
|
} {1 55 2 66}
|
|
do_test rowid-7.4 {
|
|
execsql {
|
|
INSERT INTO t2(a,b) VALUES(1000000,77);
|
|
INSERT INTO t2(b) VALUES(88);
|
|
SELECT * FROM t2;
|
|
}
|
|
} {1 55 2 66 1000000 77 1000001 88}
|
|
do_test rowid-7.5 {
|
|
execsql {
|
|
INSERT INTO t2(a,b) VALUES(2147483647,99);
|
|
INSERT INTO t2(b) VALUES(11);
|
|
SELECT b FROM t2 ORDER BY b;
|
|
}
|
|
} {11 55 66 77 88 99}
|
|
do_test rowid-7.6 {
|
|
execsql {
|
|
SELECT b FROM t2 WHERE a NOT IN(1,2,1000000,1000001,2147483647);
|
|
}
|
|
} {11}
|
|
do_test rowid-7.7 {
|
|
execsql {
|
|
INSERT INTO t2(b) VALUES(22);
|
|
INSERT INTO t2(b) VALUES(33);
|
|
INSERT INTO t2(b) VALUES(44);
|
|
INSERT INTO t2(b) VALUES(55);
|
|
SELECT b FROM t2 WHERE a NOT IN(1,2,1000000,1000001,2147483647) ORDER BY b;
|
|
}
|
|
} {11 22 33 44 55}
|
|
do_test rowid-7.8 {
|
|
execsql {
|
|
DELETE FROM t2 WHERE a!=2;
|
|
INSERT INTO t2(b) VALUES(111);
|
|
SELECT * FROM t2;
|
|
}
|
|
} {2 66 3 111}
|
|
|
|
finish_test
|