Symaptic: os/persistentdata/persistentstorage/sqlite3api/TEST/TclScript/intpkey.test@bde4ae8d615e

     1 # 2001 September 15

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.

    12 #

    13 # This file implements tests for the special processing associated

    14 # with INTEGER PRIMARY KEY columns.

    15 #

    16 # $Id: intpkey.test,v 1.24 2007/11/29 17:43:28 danielk1977 Exp $

    18 set testdir [file dirname $argv0]

    19 source $testdir/tester.tcl

    21 # Create a table with a primary key and a datatype other than

    22 # integer

    23 #

    24 do_test intpkey-1.0 {

    25   execsql {

    26     CREATE TABLE t1(a TEXT PRIMARY KEY, b, c);

    27   }

    28 } {}

    30 # There should be an index associated with the primary key

    31 #

    32 do_test intpkey-1.1 {

    33   execsql {

    34     SELECT name FROM sqlite_master

    35     WHERE type='index' AND tbl_name='t1';

    36   }

    37 } {sqlite_autoindex_t1_1}

    39 # Now create a table with an integer primary key and verify that

    40 # there is no associated index.

    41 #

    42 do_test intpkey-1.2 {

    43   execsql {

    44     DROP TABLE t1;

    45     CREATE TABLE t1(a INTEGER PRIMARY KEY, b, c);

    46     SELECT name FROM sqlite_master

    47       WHERE type='index' AND tbl_name='t1';

    48   }

    49 } {}

    51 # Insert some records into the new table.  Specify the primary key

    52 # and verify that the key is used as the record number.

    53 #

    54 do_test intpkey-1.3 {

    55   execsql {

    56     INSERT INTO t1 VALUES(5,'hello','world');

    57   }

    58   db last_insert_rowid

    59 } {5}

    60 do_test intpkey-1.4 {

    61   execsql {

    62     SELECT * FROM t1;

    63   }

    64 } {5 hello world}

    65 do_test intpkey-1.5 {

    66   execsql {

    67     SELECT rowid, * FROM t1;

    68   }

    69 } {5 5 hello world}

    71 # Attempting to insert a duplicate primary key should give a constraint

    72 # failure.

    73 #

    74 do_test intpkey-1.6 {

    75   set r [catch {execsql {

    76      INSERT INTO t1 VALUES(5,'second','entry');

    77   }} msg]

    78   lappend r $msg

    79 } {1 {PRIMARY KEY must be unique}}

    80 do_test intpkey-1.7 {

    81   execsql {

    82     SELECT rowid, * FROM t1;

    83   }

    84 } {5 5 hello world}

    85 do_test intpkey-1.8 {

    86   set r [catch {execsql {

    87      INSERT INTO t1 VALUES(6,'second','entry');

    88   }} msg]

    89   lappend r $msg

    90 } {0 {}}

    91 do_test intpkey-1.8.1 {

    92   db last_insert_rowid

    93 } {6}

    94 do_test intpkey-1.9 {

    95   execsql {

    96     SELECT rowid, * FROM t1;

    97   }

    98 } {5 5 hello world 6 6 second entry}

   100 # A ROWID is automatically generated for new records that do not specify

   101 # the integer primary key.

   102 #

   103 do_test intpkey-1.10 {

   104   execsql {

   105     INSERT INTO t1(b,c) VALUES('one','two');

   106     SELECT b FROM t1 ORDER BY b;

   107   }

   108 } {hello one second}

   110 # Try to change the ROWID for the new entry.

   111 #

   112 do_test intpkey-1.11 {

   113   execsql {

   114     UPDATE t1 SET a=4 WHERE b='one';

   115     SELECT * FROM t1;

   116   }

   117 } {4 one two 5 hello world 6 second entry}

   119 # Make sure SELECT statements are able to use the primary key column

   120 # as an index.

   121 #

   122 do_test intpkey-1.12.1 {

   123   execsql {

   124     SELECT * FROM t1 WHERE a==4;

   125   }

   126 } {4 one two}

   127 do_test intpkey-1.12.2 {

   128   set sqlite_query_plan

   129 } {t1 *}

   131 # Try to insert a non-integer value into the primary key field.  This

   132 # should result in a data type mismatch.

   133 #

   134 do_test intpkey-1.13.1 {

   135   set r [catch {execsql {

   136     INSERT INTO t1 VALUES('x','y','z');

   137   }} msg]

   138   lappend r $msg

   139 } {1 {datatype mismatch}}

   140 do_test intpkey-1.13.2 {

   141   set r [catch {execsql {

   142     INSERT INTO t1 VALUES('','y','z');

   143   }} msg]

   144   lappend r $msg

   145 } {1 {datatype mismatch}}

   146 do_test intpkey-1.14 {

   147   set r [catch {execsql {

   148     INSERT INTO t1 VALUES(3.4,'y','z');

   149   }} msg]

   150   lappend r $msg

   151 } {1 {datatype mismatch}}

   152 do_test intpkey-1.15 {

   153   set r [catch {execsql {

   154     INSERT INTO t1 VALUES(-3,'y','z');

   155   }} msg]

   156   lappend r $msg

   157 } {0 {}}

   158 do_test intpkey-1.16 {

   159   execsql {SELECT * FROM t1}

   160 } {-3 y z 4 one two 5 hello world 6 second entry}

   162 #### INDICES

   163 # Check to make sure indices work correctly with integer primary keys

   164 #

   165 do_test intpkey-2.1 {

   166   execsql {

   167     CREATE INDEX i1 ON t1(b);

   168     SELECT * FROM t1 WHERE b=='y'

   169   }

   170 } {-3 y z}

   171 do_test intpkey-2.1.1 {

   172   execsql {

   173     SELECT * FROM t1 WHERE b=='y' AND rowid<0

   174   }

   175 } {-3 y z}

   176 do_test intpkey-2.1.2 {

   177   execsql {

   178     SELECT * FROM t1 WHERE b=='y' AND rowid<0 AND rowid>=-20

   179   }

   180 } {-3 y z}

   181 do_test intpkey-2.1.3 {

   182   execsql {

   183     SELECT * FROM t1 WHERE b>='y'

   184   }

   185 } {-3 y z}

   186 do_test intpkey-2.1.4 {

   187   execsql {

   188     SELECT * FROM t1 WHERE b>='y' AND rowid<10

   189   }

   190 } {-3 y z}

   192 do_test intpkey-2.2 {

   193   execsql {

   194     UPDATE t1 SET a=8 WHERE b=='y';

   195     SELECT * FROM t1 WHERE b=='y';

   196   }

   197 } {8 y z}

   198 do_test intpkey-2.3 {

   199   execsql {

   200     SELECT rowid, * FROM t1;

   201   }

   202 } {4 4 one two 5 5 hello world 6 6 second entry 8 8 y z}

   203 do_test intpkey-2.4 {

   204   execsql {

   205     SELECT rowid, * FROM t1 WHERE b<'second'

   206   }

   207 } {5 5 hello world 4 4 one two}

   208 do_test intpkey-2.4.1 {

   209   execsql {

   210     SELECT rowid, * FROM t1 WHERE 'second'>b

   211   }

   212 } {5 5 hello world 4 4 one two}

   213 do_test intpkey-2.4.2 {

   214   execsql {

   215     SELECT rowid, * FROM t1 WHERE 8>rowid AND 'second'>b

   216   }

   217 } {4 4 one two 5 5 hello world}

   218 do_test intpkey-2.4.3 {

   219   execsql {

   220     SELECT rowid, * FROM t1 WHERE 8>rowid AND 'second'>b AND 0<rowid

   221   }

   222 } {4 4 one two 5 5 hello world}

   223 do_test intpkey-2.5 {

   224   execsql {

   225     SELECT rowid, * FROM t1 WHERE b>'a'

   226   }

   227 } {5 5 hello world 4 4 one two 6 6 second entry 8 8 y z}

   228 do_test intpkey-2.6 {

   229   execsql {

   230     DELETE FROM t1 WHERE rowid=4;

   231     SELECT * FROM t1 WHERE b>'a';

   232   }

   233 } {5 hello world 6 second entry 8 y z}

   234 do_test intpkey-2.7 {

   235   execsql {

   236     UPDATE t1 SET a=-4 WHERE rowid=8;

   237     SELECT * FROM t1 WHERE b>'a';

   238   }

   239 } {5 hello world 6 second entry -4 y z}

   240 do_test intpkey-2.7 {

   241   execsql {

   242     SELECT * FROM t1

   243   }

   244 } {-4 y z 5 hello world 6 second entry}

   246 # Do an SQL statement.  Append the search count to the end of the result.

   247 #

   248 proc count sql {

   249   set ::sqlite_search_count 0

   250   return [concat [execsql $sql] $::sqlite_search_count]

   251 }

   253 # Create indices that include the integer primary key as one of their

   254 # columns.

   255 #

   256 do_test intpkey-3.1 {

   257   execsql {

   258     CREATE INDEX i2 ON t1(a);

   259   }

   260 } {}

   261 do_test intpkey-3.2 {

   262   count {

   263     SELECT * FROM t1 WHERE a=5;

   264   }

   265 } {5 hello world 0}

   266 do_test intpkey-3.3 {

   267   count {

   268     SELECT * FROM t1 WHERE a>4 AND a<6;

   269   }

   270 } {5 hello world 2}

   271 do_test intpkey-3.4 {

   272   count {

   273     SELECT * FROM t1 WHERE b>='hello' AND b<'hello2';

   274   }

   275 } {5 hello world 3}

   276 do_test intpkey-3.5 {

   277   execsql {

   278     CREATE INDEX i3 ON t1(c,a);

   279   }

   280 } {}

   281 do_test intpkey-3.6 {

   282   count {

   283     SELECT * FROM t1 WHERE c=='world';

   284   }

   285 } {5 hello world 3}

   286 do_test intpkey-3.7 {

   287   execsql {INSERT INTO t1 VALUES(11,'hello','world')}

   288   count {

   289     SELECT * FROM t1 WHERE c=='world';

   290   }

   291 } {5 hello world 11 hello world 5}

   292 do_test intpkey-3.8 {

   293   count {

   294     SELECT * FROM t1 WHERE c=='world' AND a>7;

   295   }

   296 } {11 hello world 4}

   297 do_test intpkey-3.9 {

   298   count {

   299     SELECT * FROM t1 WHERE 7<a;

   300   }

   301 } {11 hello world 1}

   303 # Test inequality constraints on integer primary keys and rowids

   304 #

   305 do_test intpkey-4.1 {

   306   count {

   307     SELECT * FROM t1 WHERE 11=rowid

   308   }

   309 } {11 hello world 0}

   310 do_test intpkey-4.2 {

   311   count {

   312     SELECT * FROM t1 WHERE 11=rowid AND b=='hello'

   313   }

   314 } {11 hello world 0}

   315 do_test intpkey-4.3 {

   316   count {

   317     SELECT * FROM t1 WHERE 11=rowid AND b=='hello' AND c IS NOT NULL;

   318   }

   319 } {11 hello world 0}

   320 do_test intpkey-4.4 {

   321   count {

   322     SELECT * FROM t1 WHERE rowid==11

   323   }

   324 } {11 hello world 0}

   325 do_test intpkey-4.5 {

   326   count {

   327     SELECT * FROM t1 WHERE oid==11 AND b=='hello'

   328   }

   329 } {11 hello world 0}

   330 do_test intpkey-4.6 {

   331   count {

   332     SELECT * FROM t1 WHERE a==11 AND b=='hello' AND c IS NOT NULL;

   333   }

   334 } {11 hello world 0}

   336 do_test intpkey-4.7 {

   337   count {

   338     SELECT * FROM t1 WHERE 8<rowid;

   339   }

   340 } {11 hello world 1}

   341 do_test intpkey-4.8 {

   342   count {

   343     SELECT * FROM t1 WHERE 8<rowid AND 11>=oid;

   344   }

   345 } {11 hello world 1}

   346 do_test intpkey-4.9 {

   347   count {

   348     SELECT * FROM t1 WHERE 11<=_rowid_ AND 12>=a;

   349   }

   350 } {11 hello world 1}

   351 do_test intpkey-4.10 {

   352   count {

   353     SELECT * FROM t1 WHERE 0>=_rowid_;

   354   }

   355 } {-4 y z 1}

   356 do_test intpkey-4.11 {

   357   count {

   358     SELECT * FROM t1 WHERE a<0;

   359   }

   360 } {-4 y z 1}

   361 do_test intpkey-4.12 {

   362   count {

   363     SELECT * FROM t1 WHERE a<0 AND a>10;

   364   }

   365 } {1}

   367 # Make sure it is OK to insert a rowid of 0

   368 #

   369 do_test intpkey-5.1 {

   370   execsql {

   371     INSERT INTO t1 VALUES(0,'zero','entry');

   372   }

   373   count {

   374     SELECT * FROM t1 WHERE a=0;

   375   }

   376 } {0 zero entry 0}

   377 do_test intpkey-5.2 {

   378   execsql {

   379     SELECT rowid, a FROM t1

   380   }

   381 } {-4 -4 0 0 5 5 6 6 11 11}

   383 # Test the ability of the COPY command to put data into a

   384 # table that contains an integer primary key.

   385 #

   386 # COPY command has been removed.  But we retain these tests so

   387 # that the tables will contain the right data for tests that follow.

   388 #

   389 do_test intpkey-6.1 {

   390   execsql {

   391     BEGIN;

   392     INSERT INTO t1 VALUES(20,'b-20','c-20');

   393     INSERT INTO t1 VALUES(21,'b-21','c-21');

   394     INSERT INTO t1 VALUES(22,'b-22','c-22');

   395     COMMIT;

   396     SELECT * FROM t1 WHERE a>=20;

   397   }

   398 } {20 b-20 c-20 21 b-21 c-21 22 b-22 c-22}

   399 do_test intpkey-6.2 {

   400   execsql {

   401     SELECT * FROM t1 WHERE b=='hello'

   402   }

   403 } {5 hello world 11 hello world}

   404 do_test intpkey-6.3 {

   405   execsql {

   406     DELETE FROM t1 WHERE b='b-21';

   407     SELECT * FROM t1 WHERE b=='b-21';

   408   }

   409 } {}

   410 do_test intpkey-6.4 {

   411   execsql {

   412     SELECT * FROM t1 WHERE a>=20

   413   }

   414 } {20 b-20 c-20 22 b-22 c-22}

   416 # Do an insert of values with the columns specified out of order.

   417 #

   418 do_test intpkey-7.1 {

   419   execsql {

   420     INSERT INTO t1(c,b,a) VALUES('row','new',30);

   421     SELECT * FROM t1 WHERE rowid>=30;

   422   }

   423 } {30 new row}

   424 do_test intpkey-7.2 {

   425   execsql {

   426     SELECT * FROM t1 WHERE rowid>20;

   427   }

   428 } {22 b-22 c-22 30 new row}

   430 # Do an insert from a select statement.

   431 #

   432 do_test intpkey-8.1 {

   433   execsql {

   434     CREATE TABLE t2(x INTEGER PRIMARY KEY, y, z);

   435     INSERT INTO t2 SELECT * FROM t1;

   436     SELECT rowid FROM t2;

   437   }

   438 } {-4 0 5 6 11 20 22 30}

   439 do_test intpkey-8.2 {

   440   execsql {

   441     SELECT x FROM t2;

   442   }

   443 } {-4 0 5 6 11 20 22 30}

   445 do_test intpkey-9.1 {

   446   execsql {

   447     UPDATE t1 SET c='www' WHERE c='world';

   448     SELECT rowid, a, c FROM t1 WHERE c=='www';

   449   }

   450 } {5 5 www 11 11 www}

   453 # Check insert of NULL for primary key

   454 #

   455 do_test intpkey-10.1 {

   456   execsql {

   457     DROP TABLE t2;

   458     CREATE TABLE t2(x INTEGER PRIMARY KEY, y, z);

   459     INSERT INTO t2 VALUES(NULL, 1, 2);

   460     SELECT * from t2;

   461   }

   462 } {1 1 2}

   463 do_test intpkey-10.2 {

   464   execsql {

   465     INSERT INTO t2 VALUES(NULL, 2, 3);

   466     SELECT * from t2 WHERE x=2;

   467   }

   468 } {2 2 3}

   469 do_test intpkey-10.3 {

   470   execsql {

   471     INSERT INTO t2 SELECT NULL, z, y FROM t2;

   472     SELECT * FROM t2;

   473   }

   474 } {1 1 2 2 2 3 3 2 1 4 3 2}

   476 # This tests checks to see if a floating point number can be used

   477 # to reference an integer primary key.

   478 #

   479 do_test intpkey-11.1 {

   480   execsql {

   481     SELECT b FROM t1 WHERE a=2.0+3.0;

   482   }

   483 } {hello}

   484 do_test intpkey-11.1 {

   485   execsql {

   486     SELECT b FROM t1 WHERE a=2.0+3.5;

   487   }

   488 } {}

   490 integrity_check intpkey-12.1

   492 # Try to use a string that looks like a floating point number as

   493 # an integer primary key.  This should actually work when the floating

   494 # point value can be rounded to an integer without loss of data.

   495 #

   496 do_test intpkey-13.1 {

   497   execsql {

   498     SELECT * FROM t1 WHERE a=1;

   499   }

   500 } {}

   501 do_test intpkey-13.2 {

   502   execsql {

   503     INSERT INTO t1 VALUES('1.0',2,3);

   504     SELECT * FROM t1 WHERE a=1;

   505   }

   506 } {1 2 3}

   507 do_test intpkey-13.3 {

   508   catchsql {

   509     INSERT INTO t1 VALUES('1.5',3,4);

   510   }

   511 } {1 {datatype mismatch}}

   512 ifcapable {bloblit} {

   513   do_test intpkey-13.4 {

   514     catchsql {

   515       INSERT INTO t1 VALUES(x'123456',3,4);

   516     }

   517   } {1 {datatype mismatch}}

   518 }

   519 do_test intpkey-13.5 {

   520   catchsql {

   521     INSERT INTO t1 VALUES('+1234567890',3,4);

   522   }

   523 } {0 {}}

   525 # Compare an INTEGER PRIMARY KEY against a TEXT expression. The INTEGER

   526 # affinity should be applied to the text value before the comparison

   527 # takes place.

   528 #

   529 do_test intpkey-14.1 {

   530   execsql {

   531     CREATE TABLE t3(a INTEGER PRIMARY KEY, b INTEGER, c TEXT);

   532     INSERT INTO t3 VALUES(1, 1, 'one');

   533     INSERT INTO t3 VALUES(2, 2, '2');

   534     INSERT INTO t3 VALUES(3, 3, 3);

   535   }

   536 } {}

   537 do_test intpkey-14.2 {

   538   execsql {

   539     SELECT * FROM t3 WHERE a>2;

   540   }

   541 } {3 3 3}

   542 do_test intpkey-14.3 {

   543   execsql {

   544     SELECT * FROM t3 WHERE a>'2';

   545   }

   546 } {3 3 3}

   547 do_test intpkey-14.4 {

   548   execsql {

   549     SELECT * FROM t3 WHERE a<'2';

   550   }

   551 } {1 1 one}

   552 do_test intpkey-14.5 {

   553   execsql {

   554     SELECT * FROM t3 WHERE a<c;

   555   }

   556 } {1 1 one}

   557 do_test intpkey-14.6 {

   558   execsql {

   559     SELECT * FROM t3 WHERE a=c;

   560   }

   561 } {2 2 2 3 3 3}

   563 # Check for proper handling of primary keys greater than 2^31.

   564 # Ticket #1188

   565 #

   566 do_test intpkey-15.1 {

   567   execsql {

   568     INSERT INTO t1 VALUES(2147483647, 'big-1', 123);

   569     SELECT * FROM t1 WHERE a>2147483648;

   570   }

   571 } {}

   572 do_test intpkey-15.2 {

   573   execsql {

   574     INSERT INTO t1 VALUES(NULL, 'big-2', 234);

   575     SELECT b FROM t1 WHERE a>=2147483648;

   576   }

   577 } {big-2}

   578 do_test intpkey-15.3 {

   579   execsql {

   580     SELECT b FROM t1 WHERE a>2147483648;

   581   }

   582 } {}

   583 do_test intpkey-15.4 {

   584   execsql {

   585     SELECT b FROM t1 WHERE a>=2147483647;

   586   }

   587 } {big-1 big-2}

   588 do_test intpkey-15.5 {

   589   execsql {

   590     SELECT b FROM t1 WHERE a<2147483648;

   591   }

   592 } {y zero 2 hello second hello b-20 b-22 new 3 big-1}

   593 do_test intpkey-15.6 {

   594   execsql {

   595     SELECT b FROM t1 WHERE a<12345678901;

   596   }

   597 } {y zero 2 hello second hello b-20 b-22 new 3 big-1 big-2}

   598 do_test intpkey-15.7 {

   599   execsql {

   600     SELECT b FROM t1 WHERE a>12345678901;

   601   }

   602 } {}

   605 finish_test

author	sl@SLION-WIN7.fritz.box
	Fri, 15 Jun 2012 03:10:57 +0200
changeset 0	bde4ae8d615e
permissions	-rw-r--r--