714 lines
		
	
	
		
			23 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			714 lines
		
	
	
		
			23 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.
 | |
| #
 | |
| # This file implements tests for miscellanous features that were
 | |
| # left out of other test files.
 | |
| #
 | |
| 
 | |
| set testdir [file dirname $argv0]
 | |
| source $testdir/tester.tcl
 | |
| 
 | |
| # Mimic the SQLite 2 collation type NUMERIC.
 | |
| db collate numeric numeric_collate
 | |
| proc numeric_collate {lhs rhs} {
 | |
|   if {$lhs == $rhs} {return 0} 
 | |
|   return [expr ($lhs>$rhs)?1:-1]
 | |
| }
 | |
| 
 | |
| # Mimic the SQLite 2 collation type TEXT.
 | |
| db collate text text_collate
 | |
| proc numeric_collate {lhs rhs} {
 | |
|   return [string compare $lhs $rhs]
 | |
| }
 | |
| 
 | |
| # Test the creation and use of tables that have a large number
 | |
| # of columns.
 | |
| #
 | |
| do_test misc1-1.1 {
 | |
|   set cmd "CREATE TABLE manycol(x0 text"
 | |
|   for {set i 1} {$i<=99} {incr i} {
 | |
|     append cmd ",x$i text"
 | |
|   }
 | |
|   append cmd ")";
 | |
|   execsql $cmd
 | |
|   set cmd "INSERT INTO manycol VALUES(0"
 | |
|   for {set i 1} {$i<=99} {incr i} {
 | |
|     append cmd ",$i"
 | |
|   }
 | |
|   append cmd ")";
 | |
|   execsql $cmd
 | |
|   execsql "SELECT x99 FROM manycol"
 | |
| } 99
 | |
| do_test misc1-1.2 {
 | |
|   execsql {SELECT x0, x10, x25, x50, x75 FROM manycol}
 | |
| } {0 10 25 50 75}
 | |
| do_test misc1-1.3.1 {
 | |
|   for {set j 100} {$j<=1000} {incr j 100} {
 | |
|     set cmd "INSERT INTO manycol VALUES($j"
 | |
|     for {set i 1} {$i<=99} {incr i} {
 | |
|       append cmd ",[expr {$i+$j}]"
 | |
|     }
 | |
|     append cmd ")"
 | |
|     execsql $cmd
 | |
|   }
 | |
|   execsql {SELECT x50 FROM manycol ORDER BY x80+0}
 | |
| } {50 150 250 350 450 550 650 750 850 950 1050}
 | |
| do_test misc1-1.3.2 {
 | |
|   execsql {SELECT x50 FROM manycol ORDER BY x80}
 | |
| } {1050 150 250 350 450 550 650 750 50 850 950}
 | |
| do_test misc1-1.4 {
 | |
|   execsql {SELECT x75 FROM manycol WHERE x50=350}
 | |
| } 375
 | |
| do_test misc1-1.5 {
 | |
|   execsql {SELECT x50 FROM manycol WHERE x99=599}
 | |
| } 550
 | |
| do_test misc1-1.6 {
 | |
|   execsql {CREATE INDEX manycol_idx1 ON manycol(x99)}
 | |
|   execsql {SELECT x50 FROM manycol WHERE x99=899}
 | |
| } 850
 | |
| do_test misc1-1.7 {
 | |
|   execsql {SELECT count(*) FROM manycol}
 | |
| } 11
 | |
| do_test misc1-1.8 {
 | |
|   execsql {DELETE FROM manycol WHERE x98=1234}
 | |
|   execsql {SELECT count(*) FROM manycol}
 | |
| } 11
 | |
| do_test misc1-1.9 {
 | |
|   execsql {DELETE FROM manycol WHERE x98=998}
 | |
|   execsql {SELECT count(*) FROM manycol}
 | |
| } 10
 | |
| do_test misc1-1.10 {
 | |
|   execsql {DELETE FROM manycol WHERE x99=500}
 | |
|   execsql {SELECT count(*) FROM manycol}
 | |
| } 10
 | |
| do_test misc1-1.11 {
 | |
|   execsql {DELETE FROM manycol WHERE x99=599}
 | |
|   execsql {SELECT count(*) FROM manycol}
 | |
| } 9
 | |
| 
 | |
| # Check GROUP BY expressions that name two or more columns.
 | |
| #
 | |
| do_test misc1-2.1 {
 | |
|   execsql {
 | |
|     BEGIN TRANSACTION;
 | |
|     CREATE TABLE agger(one text, two text, three text, four text);
 | |
|     INSERT INTO agger VALUES(1, 'one', 'hello', 'yes');
 | |
|     INSERT INTO agger VALUES(2, 'two', 'howdy', 'no');
 | |
|     INSERT INTO agger VALUES(3, 'thr', 'howareya', 'yes');
 | |
|     INSERT INTO agger VALUES(4, 'two', 'lothere', 'yes');
 | |
|     INSERT INTO agger VALUES(5, 'one', 'atcha', 'yes');
 | |
|     INSERT INTO agger VALUES(6, 'two', 'hello', 'no');
 | |
|     COMMIT
 | |
|   }
 | |
|   execsql {SELECT count(*) FROM agger}
 | |
| } 6
 | |
| do_test misc1-2.2 {
 | |
|   execsql {SELECT sum(one), two, four FROM agger
 | |
|            GROUP BY two, four ORDER BY sum(one) desc}
 | |
| } {8 two no 6 one yes 4 two yes 3 thr yes}
 | |
| do_test misc1-2.3 {
 | |
|   execsql {SELECT sum((one)), (two), (four) FROM agger
 | |
|            GROUP BY (two), (four) ORDER BY sum(one) desc}
 | |
| } {8 two no 6 one yes 4 two yes 3 thr yes}
 | |
| 
 | |
| # Here's a test for a bug found by Joel Lucsy.  The code below
 | |
| # was causing an assertion failure.
 | |
| #
 | |
| do_test misc1-3.1 {
 | |
|   set r [execsql {
 | |
|     CREATE TABLE t1(a);
 | |
|     INSERT INTO t1 VALUES('hi');
 | |
|     PRAGMA full_column_names=on;
 | |
|     SELECT rowid, * FROM t1;
 | |
|   }]
 | |
|   lindex $r 1
 | |
| } {hi}
 | |
| 
 | |
| # Here's a test for yet another bug found by Joel Lucsy.  The code
 | |
| # below was causing an assertion failure.
 | |
| #
 | |
| do_test misc1-4.1 {
 | |
|   execsql {
 | |
|     BEGIN;
 | |
|     CREATE TABLE t2(a);
 | |
|     INSERT INTO t2 VALUES('This is a long string to use up a lot of disk -');
 | |
|     UPDATE t2 SET a=a||a||a||a;
 | |
|     INSERT INTO t2 SELECT '1 - ' || a FROM t2;
 | |
|     INSERT INTO t2 SELECT '2 - ' || a FROM t2;
 | |
|     INSERT INTO t2 SELECT '3 - ' || a FROM t2;
 | |
|     INSERT INTO t2 SELECT '4 - ' || a FROM t2;
 | |
|     INSERT INTO t2 SELECT '5 - ' || a FROM t2;
 | |
|     INSERT INTO t2 SELECT '6 - ' || a FROM t2;
 | |
|     COMMIT;
 | |
|     SELECT count(*) FROM t2;
 | |
|   }
 | |
| } {64}
 | |
| 
 | |
| # Make sure we actually see a semicolon or end-of-file in the SQL input
 | |
| # before executing a command.  Thus if "WHERE" is misspelled on an UPDATE,
 | |
| # the user won't accidently update every record.
 | |
| #
 | |
| do_test misc1-5.1 {
 | |
|   catchsql {
 | |
|     CREATE TABLE t3(a,b);
 | |
|     INSERT INTO t3 VALUES(1,2);
 | |
|     INSERT INTO t3 VALUES(3,4);
 | |
|     UPDATE t3 SET a=0 WHEREwww b=2;
 | |
|   }
 | |
| } {1 {near "WHEREwww": syntax error}}
 | |
| do_test misc1-5.2 {
 | |
|   execsql {
 | |
|     SELECT * FROM t3 ORDER BY a;
 | |
|   }
 | |
| } {1 2 3 4}
 | |
| 
 | |
| # Certain keywords (especially non-standard keywords like "REPLACE") can
 | |
| # also be used as identifiers.  The way this works in the parser is that
 | |
| # the parser first detects a syntax error, the error handling routine
 | |
| # sees that the special keyword caused the error, then replaces the keyword
 | |
| # with "ID" and tries again.
 | |
| #
 | |
| # Check the operation of this logic.
 | |
| #
 | |
| do_test misc1-6.1 {
 | |
|   catchsql {
 | |
|     CREATE TABLE t4(
 | |
|       abort, asc, begin, cluster, conflict, copy, delimiters, desc, end,
 | |
|       explain, fail, ignore, key, offset, pragma, replace, temp,
 | |
|       vacuum, view
 | |
|     );
 | |
|   }
 | |
| } {0 {}}
 | |
| do_test misc1-6.2 {
 | |
|   catchsql {
 | |
|     INSERT INTO t4
 | |
|        VALUES(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19);
 | |
|   }
 | |
| } {0 {}}
 | |
| do_test misc1-6.3 {
 | |
|   execsql {
 | |
|     SELECT * FROM t4
 | |
|   }
 | |
| } {1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19}
 | |
| do_test misc1-6.4 {
 | |
|   execsql {
 | |
|     SELECT abort+asc,max(key,pragma,temp) FROM t4
 | |
|   }
 | |
| } {3 17}
 | |
| 
 | |
| # Test for multi-column primary keys, and for multiple primary keys.
 | |
| #
 | |
| do_test misc1-7.1 {
 | |
|   catchsql {
 | |
|     CREATE TABLE error1(
 | |
|       a TYPE PRIMARY KEY,
 | |
|       b TYPE PRIMARY KEY
 | |
|     );
 | |
|   }
 | |
| } {1 {table "error1" has more than one primary key}}
 | |
| do_test misc1-7.2 {
 | |
|   catchsql {
 | |
|     CREATE TABLE error1(
 | |
|       a INTEGER PRIMARY KEY,
 | |
|       b TYPE PRIMARY KEY
 | |
|     );
 | |
|   }
 | |
| } {1 {table "error1" has more than one primary key}}
 | |
| do_test misc1-7.3 {
 | |
|   execsql {
 | |
|     CREATE TABLE t5(a,b,c,PRIMARY KEY(a,b));
 | |
|     INSERT INTO t5 VALUES(1,2,3);
 | |
|     SELECT * FROM t5 ORDER BY a;
 | |
|   }
 | |
| } {1 2 3}
 | |
| do_test misc1-7.4 {
 | |
|   catchsql {
 | |
|     INSERT INTO t5 VALUES(1,2,4);
 | |
|   }
 | |
| } {1 {UNIQUE constraint failed: t5.a, t5.b}}
 | |
| do_test misc1-7.5 {
 | |
|   catchsql {
 | |
|     INSERT INTO t5 VALUES(0,2,4);
 | |
|   }
 | |
| } {0 {}}
 | |
| do_test misc1-7.6 {
 | |
|   execsql {
 | |
|     SELECT * FROM t5 ORDER BY a;
 | |
|   }
 | |
| } {0 2 4 1 2 3}
 | |
| 
 | |
| do_test misc1-8.1 {
 | |
|   catchsql {
 | |
|     SELECT *;
 | |
|   }
 | |
| } {1 {no tables specified}}
 | |
| do_test misc1-8.2 {
 | |
|   catchsql {
 | |
|     SELECT t1.*;
 | |
|   }
 | |
| } {1 {no such table: t1}}
 | |
| 
 | |
| execsql {
 | |
|   DROP TABLE t1;
 | |
|   DROP TABLE t2;
 | |
|   DROP TABLE t3;
 | |
|   DROP TABLE t4;
 | |
| }
 | |
| 
 | |
| # 64-bit integers are represented exactly.
 | |
| #
 | |
| do_test misc1-9.1 {
 | |
|   catchsql {
 | |
|     CREATE TABLE t1(a unique not null, b unique not null);
 | |
|     INSERT INTO t1 VALUES('a',1234567890123456789);
 | |
|     INSERT INTO t1 VALUES('b',1234567891123456789);
 | |
|     INSERT INTO t1 VALUES('c',1234567892123456789);
 | |
|     SELECT * FROM t1;
 | |
|   }
 | |
| } {0 {a 1234567890123456789 b 1234567891123456789 c 1234567892123456789}}
 | |
| 
 | |
| # A WHERE clause is not allowed to contain more than 99 terms.  Check to
 | |
| # make sure this limit is enforced.
 | |
| #
 | |
| # 2005-07-16: There is no longer a limit on the number of terms in a
 | |
| # WHERE clause.  But keep these tests just so that we have some tests
 | |
| # that use a large number of terms in the WHERE clause.
 | |
| #
 | |
| do_test misc1-10.0 {
 | |
|   execsql {SELECT count(*) FROM manycol}
 | |
| } {9}
 | |
| do_test misc1-10.1 {
 | |
|   set ::where {WHERE x0>=0}
 | |
|   for {set i 1} {$i<=99} {incr i} {
 | |
|     append ::where " AND x$i<>0"
 | |
|   }
 | |
|   catchsql "SELECT count(*) FROM manycol $::where"
 | |
| } {0 9}
 | |
| do_test misc1-10.2 {
 | |
|   catchsql "SELECT count(*) FROM manycol $::where AND rowid>0"
 | |
| } {0 9}
 | |
| do_test misc1-10.3 {
 | |
|   regsub "x0>=0" $::where "x0=0" ::where
 | |
|   catchsql "DELETE FROM manycol $::where"
 | |
| } {0 {}}
 | |
| do_test misc1-10.4 {
 | |
|   execsql {SELECT count(*) FROM manycol}
 | |
| } {8}
 | |
| do_test misc1-10.5 {
 | |
|   catchsql "DELETE FROM manycol $::where AND rowid>0"
 | |
| } {0 {}}
 | |
| do_test misc1-10.6 {
 | |
|   execsql {SELECT x1 FROM manycol WHERE x0=100}
 | |
| } {101}
 | |
| do_test misc1-10.7 {
 | |
|   regsub "x0=0" $::where "x0=100" ::where
 | |
|   catchsql "UPDATE manycol SET x1=x1+1 $::where"
 | |
| } {0 {}}
 | |
| do_test misc1-10.8 {
 | |
|   execsql {SELECT x1 FROM manycol WHERE x0=100}
 | |
| } {102}
 | |
| do_test misc1-10.9 {
 | |
|   catchsql "UPDATE manycol SET x1=x1+1 $::where AND rowid>0"
 | |
| } {0 {}}
 | |
| do_test misc1-10.10 {
 | |
|   execsql {SELECT x1 FROM manycol WHERE x0=100}
 | |
| } {103}
 | |
| 
 | |
| # Make sure the initialization works even if a database is opened while
 | |
| # another process has the database locked.
 | |
| #
 | |
| # Update for v3: The BEGIN doesn't lock the database so the schema is read
 | |
| # and the SELECT returns successfully.
 | |
| do_test misc1-11.1 {
 | |
|   execsql {BEGIN}
 | |
|   execsql {UPDATE t1 SET a=0 WHERE 0}
 | |
|   sqlite3 db2 test.db
 | |
|   set rc [catch {db2 eval {SELECT count(*) FROM t1}} msg]
 | |
|   lappend rc $msg
 | |
| # v2 result: {1 {database is locked}}
 | |
| } {0 3}
 | |
| do_test misc1-11.2 {
 | |
|   execsql {COMMIT}
 | |
|   set rc [catch {db2 eval {SELECT count(*) FROM t1}} msg]
 | |
|   db2 close
 | |
|   lappend rc $msg
 | |
| } {0 3}
 | |
| 
 | |
| # Make sure string comparisons really do compare strings in format4+.
 | |
| # Similar tests in the format3.test file show that for format3 and earlier
 | |
| # all comparisions where numeric if either operand looked like a number.
 | |
| #
 | |
| do_test misc1-12.1 {
 | |
|   execsql {SELECT '0'=='0.0'}
 | |
| } {0}
 | |
| do_test misc1-12.2 {
 | |
|   execsql {SELECT '0'==0.0}
 | |
| } {0}
 | |
| do_test misc1-12.3 {
 | |
|   execsql {SELECT '12345678901234567890'=='12345678901234567891'}
 | |
| } {0}
 | |
| do_test misc1-12.4 {
 | |
|   execsql {
 | |
|     CREATE TABLE t6(a INT UNIQUE, b TEXT UNIQUE);
 | |
|     INSERT INTO t6 VALUES('0','0.0');
 | |
|     SELECT * FROM t6;
 | |
|   }
 | |
| } {0 0.0}
 | |
| ifcapable conflict {
 | |
|   do_test misc1-12.5 {
 | |
|     execsql {
 | |
|       INSERT OR IGNORE INTO t6 VALUES(0.0,'x');
 | |
|       SELECT * FROM t6;
 | |
|     }
 | |
|   } {0 0.0}
 | |
|   do_test misc1-12.6 {
 | |
|     execsql {
 | |
|       INSERT OR IGNORE INTO t6 VALUES('y',0);
 | |
|       SELECT * FROM t6;
 | |
|     }
 | |
|   } {0 0.0 y 0}
 | |
| }
 | |
| do_test misc1-12.7 {
 | |
|   execsql {
 | |
|     CREATE TABLE t7(x INTEGER, y TEXT, z);
 | |
|     INSERT INTO t7 VALUES(0,0,1);
 | |
|     INSERT INTO t7 VALUES(0.0,0,2);
 | |
|     INSERT INTO t7 VALUES(0,0.0,3);
 | |
|     INSERT INTO t7 VALUES(0.0,0.0,4);
 | |
|     SELECT DISTINCT x, y FROM t7 ORDER BY z;
 | |
|   }
 | |
| } {0 0 0 0.0}
 | |
| do_test misc1-12.8 {
 | |
|   execsql {
 | |
|     SELECT min(z), max(z), count(z) FROM t7 GROUP BY x ORDER BY 1;
 | |
|   }
 | |
| } {1 4 4}
 | |
| do_test misc1-12.9 {
 | |
|   execsql {
 | |
|     SELECT min(z), max(z), count(z) FROM t7 GROUP BY y ORDER BY 1;
 | |
|   }
 | |
| } {1 2 2 3 4 2}
 | |
| 
 | |
| # This used to be an error.  But we changed the code so that arbitrary
 | |
| # identifiers can be used as a collating sequence.  Collation is by text
 | |
| # if the identifier contains "text", "blob", or "clob" and is numeric
 | |
| # otherwise.
 | |
| #
 | |
| # Update: In v3, it is an error again.
 | |
| #
 | |
| #do_test misc1-12.10 {
 | |
| #  catchsql {
 | |
| #    SELECT * FROM t6 ORDER BY a COLLATE unknown;
 | |
| #  }
 | |
| #} {0 {0 0 y 0}}
 | |
| do_test misc1-12.11 {
 | |
|   execsql {
 | |
|     CREATE TABLE t8(x TEXT COLLATE numeric, y INTEGER COLLATE text, z);
 | |
|     INSERT INTO t8 VALUES(0,0,1);
 | |
|     INSERT INTO t8 VALUES(0.0,0,2);
 | |
|     INSERT INTO t8 VALUES(0,0.0,3);
 | |
|     INSERT INTO t8 VALUES(0.0,0.0,4);
 | |
|     SELECT DISTINCT x, y FROM t8 ORDER BY z;
 | |
|   }
 | |
| } {0 0 0.0 0}
 | |
| do_test misc1-12.12 {
 | |
|   execsql {
 | |
|     SELECT min(z), max(z), count(z) FROM t8 GROUP BY x ORDER BY 1;
 | |
|   }
 | |
| } {1 3 2 2 4 2}
 | |
| do_test misc1-12.13 {
 | |
|   execsql {
 | |
|     SELECT min(z), max(z), count(z) FROM t8 GROUP BY y ORDER BY 1;
 | |
|   }
 | |
| } {1 4 4}
 | |
| 
 | |
| # There was a problem with realloc() in the OP_MemStore operation of
 | |
| # the VDBE.  A buffer was being reallocated but some pointers into 
 | |
| # the old copy of the buffer were not being moved over to the new copy.
 | |
| # The following code tests for the problem.
 | |
| #
 | |
| ifcapable subquery {
 | |
|   do_test misc1-13.1 {
 | |
|      execsql {
 | |
|        CREATE TABLE t9(x,y);
 | |
|        INSERT INTO t9 VALUES('one',1);
 | |
|        INSERT INTO t9 VALUES('two',2);
 | |
|        INSERT INTO t9 VALUES('three',3);
 | |
|        INSERT INTO t9 VALUES('four',4);
 | |
|        INSERT INTO t9 VALUES('five',5);
 | |
|        INSERT INTO t9 VALUES('six',6);
 | |
|        INSERT INTO t9 VALUES('seven',7);
 | |
|        INSERT INTO t9 VALUES('eight',8);
 | |
|        INSERT INTO t9 VALUES('nine',9);
 | |
|        INSERT INTO t9 VALUES('ten',10);
 | |
|        INSERT INTO t9 VALUES('eleven',11);
 | |
|        SELECT y FROM t9
 | |
|        WHERE x=(SELECT x FROM t9 WHERE y=1)
 | |
|           OR x=(SELECT x FROM t9 WHERE y=2)
 | |
|           OR x=(SELECT x FROM t9 WHERE y=3)
 | |
|           OR x=(SELECT x FROM t9 WHERE y=4)
 | |
|           OR x=(SELECT x FROM t9 WHERE y=5)
 | |
|           OR x=(SELECT x FROM t9 WHERE y=6)
 | |
|           OR x=(SELECT x FROM t9 WHERE y=7)
 | |
|           OR x=(SELECT x FROM t9 WHERE y=8)
 | |
|           OR x=(SELECT x FROM t9 WHERE y=9)
 | |
|           OR x=(SELECT x FROM t9 WHERE y=10)
 | |
|           OR x=(SELECT x FROM t9 WHERE y=11)
 | |
|           OR x=(SELECT x FROM t9 WHERE y=12)
 | |
|           OR x=(SELECT x FROM t9 WHERE y=13)
 | |
|           OR x=(SELECT x FROM t9 WHERE y=14)
 | |
|        ;
 | |
|      }
 | |
|   } {1 2 3 4 5 6 7 8 9 10 11}
 | |
| }
 | |
| 
 | |
| #
 | |
| # The following tests can only work if the current SQLite VFS has the concept
 | |
| # of a current directory.
 | |
| #
 | |
| ifcapable curdir {
 | |
| # Make sure a database connection still works after changing the
 | |
| # working directory.
 | |
| #
 | |
| do_test misc1-14.1 {
 | |
|   file mkdir tempdir
 | |
|   cd tempdir
 | |
|   execsql {BEGIN}
 | |
|   file exists ./test.db-journal
 | |
| } {0}
 | |
| do_test misc1-14.2a {
 | |
|   execsql {UPDATE t1 SET a=a||'x' WHERE 0}
 | |
|   file exists ../test.db-journal
 | |
| } {0}
 | |
| do_test misc1-14.2b {
 | |
|   execsql {UPDATE t1 SET a=a||'y' WHERE 1}
 | |
|   file exists ../test.db-journal
 | |
| } {1}
 | |
| do_test misc1-14.3 {
 | |
|   cd ..
 | |
|   forcedelete tempdir
 | |
|   execsql {COMMIT}
 | |
|   file exists ./test.db-journal
 | |
| } {0}
 | |
| }
 | |
| 
 | |
| # A failed create table should not leave the table in the internal
 | |
| # data structures.  Ticket #238.
 | |
| #
 | |
| do_test misc1-15.1.1 {
 | |
|   catchsql {
 | |
|     CREATE TABLE t10 AS SELECT c1;
 | |
|   }
 | |
| } {1 {no such column: c1}}
 | |
| do_test misc1-15.1.2 {
 | |
|   catchsql {
 | |
|     CREATE TABLE t10 AS SELECT t9.c1;
 | |
|   }
 | |
| } {1 {no such column: t9.c1}}
 | |
| do_test misc1-15.1.3 {
 | |
|   catchsql {
 | |
|     CREATE TABLE t10 AS SELECT main.t9.c1;
 | |
|   }
 | |
| } {1 {no such column: main.t9.c1}}
 | |
| do_test misc1-15.2 {
 | |
|   catchsql {
 | |
|     CREATE TABLE t10 AS SELECT 1;
 | |
|   }
 | |
|   # The bug in ticket #238 causes the statement above to fail with
 | |
|   # the error "table t10 alread exists"
 | |
| } {0 {}}
 | |
| 
 | |
| # Test for memory leaks when a CREATE TABLE containing a primary key
 | |
| # fails.  Ticket #249.
 | |
| #
 | |
| do_test misc1-16.1 {
 | |
|   catchsql {SELECT name FROM sqlite_master LIMIT 1}
 | |
|   catchsql {
 | |
|     CREATE TABLE test(a integer, primary key(a));
 | |
|   }
 | |
| } {0 {}}
 | |
| do_test misc1-16.2 {
 | |
|   catchsql {
 | |
|     CREATE TABLE test(a integer, primary key(a));
 | |
|   }
 | |
| } {1 {table test already exists}}
 | |
| do_test misc1-16.3 {
 | |
|   catchsql {
 | |
|     CREATE TABLE test2(a text primary key, b text, primary key(a,b));
 | |
|   }
 | |
| } {1 {table "test2" has more than one primary key}}
 | |
| do_test misc1-16.4 {
 | |
|   execsql {
 | |
|     INSERT INTO test VALUES(1);
 | |
|     SELECT rowid, a FROM test;
 | |
|   }
 | |
| } {1 1}
 | |
| do_test misc1-16.5 {
 | |
|   execsql {
 | |
|     INSERT INTO test VALUES(5);
 | |
|     SELECT rowid, a FROM test;
 | |
|   }
 | |
| } {1 1 5 5}
 | |
| do_test misc1-16.6 {
 | |
|   execsql {
 | |
|     INSERT INTO test VALUES(NULL);
 | |
|     SELECT rowid, a FROM test;
 | |
|   }
 | |
| } {1 1 5 5 6 6}
 | |
| 
 | |
| ifcapable trigger&&tempdb {
 | |
| # Ticket #333: Temp triggers that modify persistent tables.
 | |
| #
 | |
| do_test misc1-17.1 {
 | |
|   execsql {
 | |
|     BEGIN;
 | |
|     CREATE TABLE RealTable(TestID INTEGER PRIMARY KEY, TestString TEXT);
 | |
|     CREATE TEMP TABLE TempTable(TestID INTEGER PRIMARY KEY, TestString TEXT);
 | |
|     CREATE TEMP TRIGGER trigTest_1 AFTER UPDATE ON TempTable BEGIN
 | |
|       INSERT INTO RealTable(TestString) 
 | |
|          SELECT new.TestString FROM TempTable LIMIT 1;
 | |
|     END;
 | |
|     INSERT INTO TempTable(TestString) VALUES ('1');
 | |
|     INSERT INTO TempTable(TestString) VALUES ('2');
 | |
|     UPDATE TempTable SET TestString = TestString + 1 WHERE TestID=1 OR TestId=2;
 | |
|     COMMIT;
 | |
|     SELECT TestString FROM RealTable ORDER BY 1;
 | |
|   }
 | |
| } {2 3}
 | |
| }
 | |
| 
 | |
| do_test misc1-18.1 {
 | |
|   set n [sqlite3_sleep 100]
 | |
|   expr {$n>=100}
 | |
| } {1}
 | |
| 
 | |
| # 2014-01-10:  In a CREATE TABLE AS, if one or more of the column names
 | |
| # are an empty string, that is still OK.
 | |
| #
 | |
| do_execsql_test misc1-19.1 {
 | |
|   CREATE TABLE t19 AS SELECT 1, 2 AS '', 3;
 | |
|   SELECT * FROM t19;
 | |
| } {1 2 3}
 | |
| do_execsql_test misc1-19.2 {
 | |
|   CREATE TABLE t19b AS SELECT 4 AS '', 5 AS '',  6 AS '';
 | |
|   SELECT * FROM t19b;
 | |
| } {4 5 6}
 | |
| 
 | |
| # 2015-05-20:  CREATE TABLE AS should not store INT value is a TEXT
 | |
| # column.
 | |
| #
 | |
| do_execsql_test misc1-19.3 {
 | |
|   CREATE TABLE t19c(x TEXT);
 | |
|   CREATE TABLE t19d AS SELECT * FROM t19c UNION ALL SELECT 1234;
 | |
|   SELECT x, typeof(x) FROM t19d;
 | |
| } {1234 text}
 | |
| 
 | |
| # 2014-05-16:  Tests for the SQLITE_TESTCTRL_FAULT_INSTALL feature.
 | |
| #
 | |
| unset -nocomplain fault_callbacks
 | |
| set fault_callbacks {}
 | |
| proc fault_callback {n} {
 | |
|   lappend ::fault_callbacks $n
 | |
|   return 0
 | |
| }
 | |
| do_test misc1-19.1 {
 | |
|   sqlite3_test_control_fault_install fault_callback
 | |
|   set fault_callbacks
 | |
| } {0}
 | |
| do_test misc1-19.2 {
 | |
|   sqlite3_test_control_fault_install
 | |
|   set fault_callbacks
 | |
| } {0}
 | |
| 
 | |
| # 2015-01-26:  Valgrind-detected over-read.
 | |
| # Reported on sqlite-users@sqlite.org by Michal Zalewski.  Found by afl-fuzz
 | |
| # presumably.
 | |
| #
 | |
| do_execsql_test misc1-20.1 {
 | |
|   CREATE TABLE t0(x INTEGER DEFAULT(0==0) NOT NULL);
 | |
|   REPLACE INTO t0(x) VALUES('');
 | |
|   SELECT rowid, quote(x) FROM t0;
 | |
| } {1 ''}
 | |
| 
 | |
| # 2015-03-22: NULL pointer dereference after a syntax error
 | |
| #
 | |
| do_catchsql_test misc1-21.1 {
 | |
|   select''like''like''like#0;
 | |
| } {1 {near "#0": syntax error}}
 | |
| do_catchsql_test misc1-21.2 {
 | |
|   VALUES(0,0x0MATCH#0;
 | |
| } {1 {near ";": syntax error}}
 | |
| 
 | |
| # 2015-04-15
 | |
| do_execsql_test misc1-22.1 {
 | |
|   SELECT ""+3 FROM (SELECT ""+5);
 | |
| } {3}
 | |
| 
 | |
| # 2015-04-19: NULL pointer dereference on a corrupt schema
 | |
| #
 | |
| db close
 | |
| sqlite3 db :memory:
 | |
| do_execsql_test misc1-23.1 {
 | |
|   CREATE TABLE t1(x);
 | |
|   PRAGMA writable_schema=ON;
 | |
|   UPDATE sqlite_master SET sql='CREATE table t(d CHECK(T(#0)';
 | |
|   BEGIN;
 | |
|   CREATE TABLE t2(y);
 | |
|   ROLLBACK;
 | |
|   DROP TABLE IF EXISTS t3;
 | |
| } {}
 | |
| 
 | |
| # 2015-04-19:  Faulty assert() statement
 | |
| #
 | |
| db close
 | |
| database_may_be_corrupt
 | |
| sqlite3 db :memory:
 | |
| do_catchsql_test misc1-23.2 {
 | |
|   CREATE TABLE t1(x UNIQUE);
 | |
|   PRAGMA writable_schema=ON;
 | |
|   UPDATE sqlite_master SET sql='CREATE TABLE IF not EXISTS t(c)';
 | |
|   BEGIN;
 | |
|   CREATE TABLE t2(x);
 | |
|   ROLLBACK;
 | |
|   DROP TABLE F;
 | |
| } {1 {no such table: F}}
 | |
| db close
 | |
| sqlite3 db :memory:
 | |
| do_catchsql_test misc1-23.3 {
 | |
|   CREATE TABLE t1(x UNIQUE);
 | |
|   PRAGMA writable_schema=ON;
 | |
|   UPDATE sqlite_master SET sql='CREATE table y(a TEXT, a TEXT)';
 | |
|   BEGIN;
 | |
|   CREATE TABLE t2(y);
 | |
|   ROLLBACK;
 | |
|   DROP TABLE IF EXISTS t;
 | |
| } {0 {}}
 | |
| 
 | |
| 
 | |
| # At one point, running this would read one byte passed the end of a 
 | |
| # buffer, upsetting valgrind.
 | |
| #
 | |
| do_test misc1-24.0 {
 | |
|   list [catch { sqlite3_prepare_v2 db ! -1 dummy } msg] $msg
 | |
| } {1 {(1) unrecognized token: "!}}
 | |
| 
 | |
| # The following query (provided by Kostya Serebryany) used to take 25
 | |
| # minutes to prepare.  This has been speeded up to about 250 milliseconds.
 | |
| #
 | |
| do_catchsql_test misc1-25.0 {
 | |
| SELECT-1 UNION  SELECT 5 UNION SELECT 0 UNION SElECT*from(SELECT-5) UNION SELECT*from(SELECT-0) UNION  SELECT:SELECT-0 UNION SELECT-1 UNION SELECT 1 UNION SELECT 1 ORDER BY S  in(WITH K AS(WITH K AS(select'CREINDERcharREADEVIRTUL5TABLECONFLICT !1 USIN'' MFtOR(b38q,eWITH K AS(selectCREATe TABLE t0(a,b,c,d,e, PRIMARY KEY(a,b,c,d,c,a,b,b,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,d,c,a,b,c,e,d,d,c,a,b,b,c,c,a,b,b,c,d,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,a,b,b,c,d,c,a,c,d,c,d,c,e,d,d,c,a,b,b,c,c,a,b,b,E,d,c,d,c,b,c,d,c,d,c,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,a,b,c,e,d,d,c,a,b,b,c,d,d,c,a,b,c,e,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,a,b,c,e,d,d,c,a,b,b,b,c,e,d,d,c,a,b,b,c,c,a,b,b,c,d,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,d,c,e,d,d,c,a,b,b,c,c,a,b,b,E,d,c,d,c,b,c,d,c,d,c,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d'CEIl,k'',ab, g, a,b,o11b, i'nEX/charREDE IVT LR!VABLt5SG',N  ,N in rement,l_vacuum,M&U,'te3(''5l' a,bB,b,l*e)SELECT:SELECT, *,*,*from(( SELECT
 | |
| $group,:conc ap0,1)fro,(select"",:PBAG,c,a,b,b,c,a,b,c,e,d,d,c,a,b,b,c,d,d,c,a,b,c,e,d,c,d,c,a,b,c,e,c,d,c,d,c,a,b,b,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,d,c,a,b,c,e,d,d,c,a,b,b,c,c,a,b,b,c,d,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,a,b,c,e,d,d,c,a,b,b,b,c,e,d,d,c,a,b,b,c,c,a,b,b,c,d,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,d,c,e,d,d,c,a,b,b,c,c,a,b,b,E,d,c,d,c,b,c,d,c,d,c,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,a,b,c,e,d,d,c,a,b,b,c,d,d,c,a,b,c,e,d,c,d,c,a,b,c,e,c,d,c,d,c,a,b,b,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,d,c,a,b,c,e,d,d,c,a,b,b,c,c,a,b,b,c,d,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,d,c,e,d,d,c,a,b,b,c,c,a,b,b,E,d,c,d,c,b,c,d,c,d,c,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,a,b,c,e,d,d,c,a,b,b,c,d,d,c,a,b,c,e,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,c,d,c,c,a,a,b,d,d,c,a,b,b,c,d,c,a,b,e,e,d,b,c,d,c,a,b,b,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,d,c,a,b,c,e,d,d,c,a,b,b,c,c,a,b,b,c,d,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d, foreign_keysc,d,c,e,d,d,c,a,b,b,c,c,a,b,b,E,d,c,d,c,b,c,d,c,d,c,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,a,b,d,d,c,a,b,b,c,d,c,a,b,e,e,d,b,c,d,c,a,b,b,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,d,c,a,b,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,d,c,e,d,d,c,a,b,b,c,c,a,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,d,c,a,b,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,d,c,e,d,d,c,a,b,b,c,c,a,b,b,E,d,c,d,c,b,c,d,c,d,c,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,a,b,c,e,d,d,c,a,b,b,c,d,d,c,a,b,c,e,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,c,d,c,a,b,d,d,c,a,a,b,d,d,c,a,b,b,c,d,c,a,b,e,e,d,b,c,d,c,a,b,b,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,d,c,a,b,c,e,d,d,c,a,b,b,c,c,a,b,b,c,d,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,d,c,e,d,d,c,a,b,b,c,c,a,b,b,E,d,c,d,c,b,c,d,c,d,c,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,a,b,d,d,c,a,b,b,c,d,c,a,b,e,e,d,b,c,d,c,a,b,b,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,d,c,a,b,c,e,d,d,c,a,b,b,c,c,a,b,b,c,d,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,d,c,e,d,d,c,a,b,b,c,c,a,b,b,E,d,c,d,c,b,c,d,c,d,c,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,a,bb,b,E,d,c,d,c,b,c,d,c,d,c,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,a,b,c,e,d,d,c,a,b,b,c,d,d,c,a,b,c,e,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,c,d,c,a,b,d,d,c,a,a,b,d,d,c,a,b,b,c,d,c,a,b,e,e,d,b,c,d,c,a,b,b,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,c,a,b,c,e,d,d,c,a,b,b,c,d,c,d,c,a,b,c,e,c,d,c,a,b,b,c,d,MAato_aecSELEC,+?b," "O,"i","a",""b  ,5 ))KEY)SELECT*FROM((k()reaC,k,K) eA,k '' )t ,K  M);
 | |
| } {1 {'k' is not a function}}
 | |
| 
 | |
| 
 | |
| finish_test
 | 
