# 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. # # This file implements tests for the special processing associated # with INTEGER PRIMARY KEY columns. # # $Id: intpkey.test,v 1.8 2002/02/19 22:42:06 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Create a table with a primary key and a datatype other than # integer # do_test intpkey-1.0 { execsql { CREATE TABLE t1(a TEXT PRIMARY KEY, b, c); } } {} # There should be an index associated with the primary key # do_test intpkey-1.1 { execsql { SELECT name FROM sqlite_master WHERE type='index' AND tbl_name='t1'; } } {{(t1 autoindex 1)}} # Now create a table with an integer primary key and verify that # there is no associated index. # do_test intpkey-1.2 { execsql { DROP TABLE t1; CREATE TABLE t1(a INTEGER PRIMARY KEY, b, c); SELECT name FROM sqlite_master WHERE type='index' AND tbl_name='t1'; } } {} # Insert some records into the new table. Specify the primary key # and verify that the key is used as the record number. # do_test intpkey-1.3 { execsql { INSERT INTO t1 VALUES(5,'hello','world'); } db last_insert_rowid } {5} do_test intpkey-1.4 { execsql { SELECT * FROM t1; } } {5 hello world} do_test intpkey-1.5 { execsql { SELECT rowid, * FROM t1; } } {5 5 hello world} # Attempting to insert a duplicate primary key should give a constraint # failure. # do_test intpkey-1.6 { set r [catch {execsql { INSERT INTO t1 VALUES(5,'second','entry'); }} msg] lappend r $msg } {1 {constraint failed}} do_test intpkey-1.7 { execsql { SELECT rowid, * FROM t1; } } {5 5 hello world} do_test intpkey-1.8 { set r [catch {execsql { INSERT INTO t1 VALUES(6,'second','entry'); }} msg] lappend r $msg } {0 {}} do_test intpkey-1.8.1 { db last_insert_rowid } {6} do_test intpkey-1.9 { execsql { SELECT rowid, * FROM t1; } } {5 5 hello world 6 6 second entry} # A ROWID is automatically generated for new records that do not specify # the integer primary key. # do_test intpkey-1.10 { execsql { INSERT INTO t1(b,c) VALUES('one','two'); SELECT b FROM t1 ORDER BY b; } } {hello one second} # Try to change the ROWID for the new entry. # do_test intpkey-1.11 { execsql { UPDATE t1 SET a=4 WHERE b='one'; SELECT * FROM t1; } } {4 one two 5 hello world 6 second entry} # Make sure SELECT statements are able to use the primary key column # as an index. # do_test intpkey-1.12 { execsql { SELECT * FROM t1 WHERE a==4; } } {4 one two} # Try to insert a non-integer value into the primary key field. This # should result in a data type mismatch. # do_test intpkey-1.13 { set r [catch {execsql { INSERT INTO t1 VALUES('x','y','z'); }} msg] lappend r $msg } {1 {datatype mismatch}} do_test intpkey-1.14 { set r [catch {execsql { INSERT INTO t1 VALUES(3.4,'y','z'); }} msg] lappend r $msg } {1 {datatype mismatch}} do_test intpkey-1.15 { set r [catch {execsql { INSERT INTO t1 VALUES(-3,'y','z'); }} msg] lappend r $msg } {0 {}} do_test intpkey-1.16 { execsql {SELECT * FROM t1} } {-3 y z 4 one two 5 hello world 6 second entry} #### INDICES # Check to make sure indices work correctly with integer primary keys # do_test intpkey-2.1 { execsql { CREATE INDEX i1 ON t1(b); SELECT * FROM t1 WHERE b=='y' } } {-3 y z} do_test intpkey-2.1.1 { execsql { SELECT * FROM t1 WHERE b=='y' AND rowid<0 } } {-3 y z} do_test intpkey-2.1.2 { execsql { SELECT * FROM t1 WHERE b=='y' AND rowid<0 AND rowid>=-20 } } {-3 y z} do_test intpkey-2.1.3 { execsql { SELECT * FROM t1 WHERE b>='y' } } {-3 y z} do_test intpkey-2.1.4 { execsql { SELECT * FROM t1 WHERE b>='y' AND rowid<10 } } {-3 y z} do_test intpkey-2.2 { execsql { UPDATE t1 SET a=8 WHERE b=='y'; SELECT * FROM t1 WHERE b=='y'; } } {8 y z} do_test intpkey-2.3 { execsql { SELECT rowid, * FROM t1; } } {4 4 one two 5 5 hello world 6 6 second entry 8 8 y z} do_test intpkey-2.4 { execsql { SELECT rowid, * FROM t1 WHERE b<'second' } } {5 5 hello world 4 4 one two} do_test intpkey-2.4.1 { execsql { SELECT rowid, * FROM t1 WHERE 'second'>b } } {5 5 hello world 4 4 one two} do_test intpkey-2.4.2 { execsql { SELECT rowid, * FROM t1 WHERE 8>rowid AND 'second'>b } } {4 4 one two 5 5 hello world} do_test intpkey-2.4.3 { execsql { SELECT rowid, * FROM t1 WHERE 8>rowid AND 'second'>b AND 0'a' } } {5 5 hello world 4 4 one two 6 6 second entry 8 8 y z} do_test intpkey-2.6 { execsql { DELETE FROM t1 WHERE rowid=4; SELECT * FROM t1 WHERE b>'a'; } } {5 hello world 6 second entry 8 y z} do_test intpkey-2.7 { execsql { UPDATE t1 SET a=-4 WHERE rowid=8; SELECT * FROM t1 WHERE b>'a'; } } {5 hello world 6 second entry -4 y z} do_test intpkey-2.7 { execsql { SELECT * FROM t1 } } {-4 y z 5 hello world 6 second entry} # Do an SQL statement. Append the search count to the end of the result. # proc count sql { set ::sqlite_search_count 0 return [concat [execsql $sql] $::sqlite_search_count] } # Create indices that include the integer primary key as one of their # columns. # do_test intpkey-3.1 { execsql { CREATE INDEX i2 ON t1(a); } } {} do_test intpkey-3.2 { count { SELECT * FROM t1 WHERE a=5; } } {5 hello world 0} do_test intpkey-3.3 { count { SELECT * FROM t1 WHERE a>4 AND a<6; } } {5 hello world 2} do_test intpkey-3.4 { count { SELECT * FROM t1 WHERE b>='hello' AND b<'hello2'; } } {5 hello world 3} do_test intpkey-3.5 { execsql { CREATE INDEX i3 ON t1(c,a); } } {} do_test intpkey-3.6 { count { SELECT * FROM t1 WHERE c=='world'; } } {5 hello world 3} do_test intpkey-3.7 { execsql {INSERT INTO t1 VALUES(11,'hello','world')} count { SELECT * FROM t1 WHERE c=='world'; } } {5 hello world 11 hello world 5} do_test intpkey-3.8 { count { SELECT * FROM t1 WHERE c=='world' AND a>7; } } {11 hello world 5} do_test intpkey-3.9 { count { SELECT * FROM t1 WHERE 7=oid; } } {11 hello world 1} do_test intpkey-4.9 { count { SELECT * FROM t1 WHERE 11<=_rowid_ AND 12>=a; } } {11 hello world 1} do_test intpkey-4.10 { count { SELECT * FROM t1 WHERE 0>=_rowid_; } } {-4 y z 1} do_test intpkey-4.11 { count { SELECT * FROM t1 WHERE a<0; } } {-4 y z 1} do_test intpkey-4.12 { count { SELECT * FROM t1 WHERE a<0 AND a>10; } } {1} # Make sure it is OK to insert a rowid of 0 # do_test intpkey-5.1 { execsql { INSERT INTO t1 VALUES(0,'zero','entry'); } count { SELECT * FROM t1 WHERE a=0; } } {0 zero entry 0} do_test intpkey=5.2 { execsql { SELECT rowid, a FROM t1 } } {-4 -4 0 0 5 5 6 6 11 11} # Test the ability of the COPY command to put data into a # table that contains an integer primary key. # do_test intpkey-6.1 { set f [open ./data1.txt w] puts $f "20\tb-20\tc-20" puts $f "21\tb-21\tc-21" puts $f "22\tb-22\tc-22" close $f execsql { COPY t1 FROM 'data1.txt'; SELECT * FROM t1 WHERE a>=20; } } {20 b-20 c-20 21 b-21 c-21 22 b-22 c-22} do_test intpkey-6.2 { execsql { SELECT * FROM t1 WHERE b=='hello' } } {5 hello world 11 hello world} do_test intpkey-6.3 { execsql { DELETE FROM t1 WHERE b='b-21'; SELECT * FROM t1 WHERE b=='b-21'; } } {} do_test intpkey-6.4 { execsql { SELECT * FROM t1 WHERE a>=20 } } {20 b-20 c-20 22 b-22 c-22} # Do an insert of values with the columns specified out of order. # do_test intpkey-7.1 { execsql { INSERT INTO t1(c,b,a) VALUES('row','new',30); SELECT * FROM t1 WHERE rowid>=30; } } {30 new row} do_test intpkey-7.2 { execsql { SELECT * FROM t1 WHERE rowid>20; } } {22 b-22 c-22 30 new row} # Do an insert from a select statement. # do_test intpkey-8.1 { execsql { CREATE TABLE t2(x INTEGER PRIMARY KEY, y, z); INSERT INTO t2 SELECT * FROM t1; SELECT rowid FROM t2; } } {-4 0 5 6 11 20 22 30} do_test intpkey-8.2 { execsql { SELECT x FROM t2; } } {-4 0 5 6 11 20 22 30} do_test intpkey-9.1 { execsql { UPDATE t1 SET c='www' WHERE c='world'; SELECT rowid, a, c FROM t1 WHERE c=='www'; } } {5 5 www 11 11 www} finish_test