3 # The author disclaims copyright to this source code. In place of
4 # a legal notice, here is a blessing:
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.
10 #***********************************************************************
11 # This file implements regression tests for SQLite library. The
12 # focus of this file is testing the CREATE TABLE statement.
15 set testdir [file dirname $argv0]
16 source $testdir/tester.tcl
18 # Create a basic table and verify it is added to sqlite_master
28 SELECT sql FROM sqlite_master WHERE type!='meta'
30 } {{CREATE TABLE test1 (
36 # Verify the other fields of the sqlite_master file.
39 execsql {SELECT name, tbl_name, type FROM sqlite_master WHERE type!='meta'}
42 # Close and reopen the database. Verify that everything is
48 execsql {SELECT name, tbl_name, type from sqlite_master WHERE type!='meta'}
51 # Drop the database and make sure it disappears.
54 execsql {DROP TABLE test1}
55 execsql {SELECT * FROM sqlite_master WHERE type!='meta'}
58 # Close and reopen the database. Verify that the table is
64 execsql {SELECT name FROM sqlite_master WHERE type!='meta'}
67 # Repeat the above steps, but this time quote the table name.
70 execsql {CREATE TABLE "create" (f1 int)}
71 execsql {SELECT name FROM sqlite_master WHERE type!='meta'}
74 execsql {DROP TABLE "create"}
75 execsql {SELECT name FROM "sqlite_master" WHERE type!='meta'}
78 execsql {CREATE TABLE test1("f1 ho" int)}
79 execsql {SELECT name as "X" FROM sqlite_master WHERE type!='meta'}
82 execsql {DROP TABLE "TEST1"}
83 execsql {SELECT name FROM "sqlite_master" WHERE type!='meta'}
88 # Verify that we cannot make two tables with the same name
91 execsql {CREATE TABLE TEST2(one text)}
92 catchsql {CREATE TABLE test2(two text default 'hi')}
93 } {1 {table test2 already exists}}
95 catchsql {CREATE TABLE "test2" (two)}
96 } {1 {table "test2" already exists}}
98 set v [catch {execsql {CREATE TABLE sqlite_master(two text)}} msg]
100 } {1 {object name reserved for internal use: sqlite_master}}
104 set v [catch {execsql {CREATE TABLE sqlite_master(two text)}} msg]
106 } {1 {object name reserved for internal use: sqlite_master}}
108 catchsql {CREATE TABLE IF NOT EXISTS test2(x,y)}
111 catchsql {CREATE TABLE IF NOT EXISTS test2(x UNIQUE, y TEXT PRIMARY KEY)}
114 execsql {DROP TABLE test2; SELECT name FROM sqlite_master WHERE type!='meta'}
117 # Verify that we cannot make a table with the same name as an index
120 execsql {CREATE TABLE test2(one text)}
121 execsql {CREATE INDEX test3 ON test2(one)}
122 catchsql {CREATE TABLE test3(two text)}
123 } {1 {there is already an index named test3}}
127 set v [catch {execsql {CREATE TABLE test3(two text)}} msg]
129 } {1 {there is already an index named test3}}
131 execsql {SELECT name FROM sqlite_master WHERE type!='meta' ORDER BY name}
134 execsql {DROP INDEX test3}
135 set v [catch {execsql {CREATE TABLE test3(two text)}} msg]
139 execsql {SELECT name FROM sqlite_master WHERE type!='meta' ORDER BY name}
142 execsql {DROP TABLE test2; DROP TABLE test3}
143 execsql {SELECT name FROM sqlite_master WHERE type!='meta' ORDER BY name}
146 # Create a table with many field names
152 f3 varchar(30) primary key,
173 execsql {SELECT sql FROM sqlite_master WHERE type=='table'}
176 set v [catch {execsql {CREATE TABLE BIG(xyz foo)}} msg]
178 } {1 {table BIG already exists}}
180 set v [catch {execsql {CREATE TABLE biG(xyz foo)}} msg]
182 } {1 {table biG already exists}}
184 set v [catch {execsql {CREATE TABLE bIg(xyz foo)}} msg]
186 } {1 {table bIg already exists}}
190 set v [catch {execsql {CREATE TABLE Big(xyz foo)}} msg]
192 } {1 {table Big already exists}}
194 execsql {DROP TABLE big}
195 execsql {SELECT name FROM sqlite_master WHERE type!='meta'}
198 # Try creating large numbers of tables
201 for {set i 1} {$i<=100} {incr i} {
202 lappend r [format test%03d $i]
205 for {set i 1} {$i<=100} {incr i} {
206 set sql "CREATE TABLE [format test%03d $i] ("
207 for {set k 1} {$k<$i} {incr k} {
208 append sql "field$k text,"
210 append sql "last_field text)"
213 execsql {SELECT name FROM sqlite_master WHERE type!='meta' ORDER BY name}
218 execsql {SELECT name FROM sqlite_master WHERE type!='meta' ORDER BY name}
221 # Drop the even numbered tables
224 for {set i 1} {$i<=100} {incr i 2} {
225 lappend r [format test%03d $i]
228 for {set i 2} {$i<=100} {incr i 2} {
229 # if {$i==38} {execsql {pragma vdbe_trace=on}}
230 set sql "DROP TABLE [format TEST%03d $i]"
233 execsql {SELECT name FROM sqlite_master WHERE type!='meta' ORDER BY name}
237 # Drop the odd number tables
240 for {set i 1} {$i<=100} {incr i 2} {
241 set sql "DROP TABLE [format test%03d $i]"
244 execsql {SELECT name FROM sqlite_master WHERE type!='meta' ORDER BY name}
247 # Try to drop a table that does not exist
249 do_test table-5.1.1 {
250 catchsql {DROP TABLE test009}
251 } {1 {no such table: test009}}
252 do_test table-5.1.2 {
253 catchsql {DROP TABLE IF EXISTS test009}
256 # Try to drop sqlite_master
259 catchsql {DROP TABLE IF EXISTS sqlite_master}
260 } {1 {table sqlite_master may not be dropped}}
262 # Dropping sqlite_statN tables is OK.
264 do_test table-5.2.1 {
267 DROP TABLE IF EXISTS sqlite_stat1;
268 DROP TABLE IF EXISTS sqlite_stat2;
269 DROP TABLE IF EXISTS sqlite_stat3;
270 DROP TABLE IF EXISTS sqlite_stat4;
271 SELECT name FROM sqlite_master WHERE name GLOB 'sqlite_stat*';
275 # Make sure an EXPLAIN does not really create a new table
278 ifcapable {explain} {
279 execsql {EXPLAIN CREATE TABLE test1(f1 int)}
281 execsql {SELECT name FROM sqlite_master WHERE type!='meta'}
284 # Make sure an EXPLAIN does not really drop an existing table
287 execsql {CREATE TABLE test1(f1 int)}
288 ifcapable {explain} {
289 execsql {EXPLAIN DROP TABLE test1}
291 execsql {SELECT name FROM sqlite_master WHERE type!='meta'}
294 # Create a table with a goofy name
297 # execsql {CREATE TABLE 'Spaces In This Name!'(x int)}
298 # execsql {INSERT INTO 'spaces in this name!' VALUES(1)}
299 # set list [glob -nocomplain testdb/spaces*.tbl]
300 #} {testdb/spaces+in+this+name+.tbl}
302 # Try using keywords as table names or column names.
305 set v [catch {execsql {
311 fuzzy_dog_12 varchar(10),
320 INSERT INTO weird VALUES('a','b',9,0,'xyz','hi','y''all');
323 } {a b 9 0 xyz hi y'all}
328 } {desc a asc b key 9 14_vac 0 fuzzy_dog_12 xyz begin hi end y'all}
331 CREATE TABLE savepoint(release);
332 INSERT INTO savepoint(release) VALUES(10);
333 UPDATE savepoint SET release = 5;
334 SELECT release FROM savepoint;
338 # Try out the CREATE TABLE AS syntax
342 CREATE TABLE t2 AS SELECT * FROM weird;
345 } {desc a asc b key 9 14_vac 0 fuzzy_dog_12 xyz begin hi end y'all}
346 do_test table-8.1.1 {
348 SELECT sql FROM sqlite_master WHERE name='t2';
361 CREATE TABLE "t3""xyz"(a,b,c);
362 INSERT INTO [t3"xyz] VALUES(1,2,3);
363 SELECT * FROM [t3"xyz];
368 CREATE TABLE [t4"abc] AS SELECT count(*) as cnt, max(b+c) FROM [t3"xyz];
369 SELECT * FROM [t4"abc];
373 # Update for v3: The declaration type of anything except a column is now a
374 # NULL pointer, so the created table has no column types. (Changed result
375 # from {{CREATE TABLE 't4"abc'(cnt NUMERIC,"max(b+c)" NUMERIC)}}).
376 do_test table-8.3.1 {
378 SELECT sql FROM sqlite_master WHERE name='t4"abc'
380 } {{CREATE TABLE "t4""abc"(cnt,"max(b+c)")}}
385 CREATE TEMPORARY TABLE t5 AS SELECT count(*) AS [y'all] FROM [t3"xyz];
395 SELECT * FROM [t4"abc];
402 } {desc a asc b key 9 14_vac 0 fuzzy_dog_12 xyz begin hi end y'all}
407 } {1 {no such table: t5}}
410 CREATE TABLE t5 AS SELECT * FROM no_such_table;
412 } {1 {no such table: no_such_table}}
416 CREATE TABLE t10("col.1" [char.3]);
417 CREATE TABLE t11 AS SELECT * FROM t10;
418 SELECT sql FROM sqlite_master WHERE name = 't11';
420 } {{CREATE TABLE t11("col.1" TEXT)}}
429 f "VARCHAR (+1,-10, 5)",
432 CREATE TABLE t13 AS SELECT * FROM t12;
433 SELECT sql FROM sqlite_master WHERE name = 't13';
435 } {{CREATE TABLE t13(
445 # Make sure we cannot have duplicate column names within a table.
449 CREATE TABLE t6(a,b,a);
451 } {1 {duplicate column name: a}}
454 CREATE TABLE t6(a varchar(100), b blob, a integer);
456 } {1 {duplicate column name: a}}
458 # Check the foreign key syntax.
460 ifcapable {foreignkey} {
463 CREATE TABLE t6(a REFERENCES t4(a) NOT NULL);
464 INSERT INTO t6 VALUES(NULL);
466 } {1 {NOT NULL constraint failed: t6.a}}
470 CREATE TABLE t6(a REFERENCES t4(a) MATCH PARTIAL);
476 CREATE TABLE t6(a REFERENCES t4 MATCH FULL ON DELETE SET NULL NOT NULL);
482 CREATE TABLE t6(a REFERENCES t4 MATCH FULL ON UPDATE SET DEFAULT DEFAULT 1);
488 CREATE TABLE t6(a NOT NULL NOT DEFERRABLE INITIALLY IMMEDIATE);
494 CREATE TABLE t6(a NOT NULL DEFERRABLE INITIALLY DEFERRED);
501 FOREIGN KEY (a) REFERENCES t4(b) DEFERRABLE INITIALLY DEFERRED
508 CREATE TABLE t6(a,b,c,
509 FOREIGN KEY (b,c) REFERENCES t4(x,y) MATCH PARTIAL
510 ON UPDATE SET NULL ON DELETE CASCADE DEFERRABLE INITIALLY DEFERRED
517 CREATE TABLE t6(a,b,c,
518 FOREIGN KEY (b,c) REFERENCES t4(x)
521 } {1 {number of columns in foreign key does not match the number of columns in the referenced table}}
522 do_test table-10.10 {
523 catchsql {DROP TABLE t6}
525 CREATE TABLE t6(a,b,c,
526 FOREIGN KEY (b,c) REFERENCES t4(x,y,z)
529 } {1 {number of columns in foreign key does not match the number of columns in the referenced table}}
530 do_test table-10.11 {
531 catchsql {DROP TABLE t6}
533 CREATE TABLE t6(a,b, c REFERENCES t4(x,y));
535 } {1 {foreign key on c should reference only one column of table t4}}
536 do_test table-10.12 {
537 catchsql {DROP TABLE t6}
539 CREATE TABLE t6(a,b,c,
540 FOREIGN KEY (b,x) REFERENCES t4(x,y)
543 } {1 {unknown column "x" in foreign key definition}}
544 do_test table-10.13 {
545 catchsql {DROP TABLE t6}
547 CREATE TABLE t6(a,b,c,
548 FOREIGN KEY (x,b) REFERENCES t4(x,y)
551 } {1 {unknown column "x" in foreign key definition}}
552 } ;# endif foreignkey
554 # Test for the "typeof" function. More tests for the
555 # typeof() function are found in bind.test and types.test.
560 a integer primary key,
562 c character varying (8),
569 INSERT INTO t7(a) VALUES(1);
570 SELECT typeof(a), typeof(b), typeof(c), typeof(d),
571 typeof(e), typeof(f), typeof(g), typeof(h)
574 } {integer null null null null null null null}
577 SELECT typeof(a+b), typeof(a||b), typeof(c+d), typeof(c||d)
580 } {null null null null}
582 # Test that when creating a table using CREATE TABLE AS, column types are
583 # assigned correctly for (SELECT ...) and 'x AS y' expressions.
587 CREATE TABLE t8 AS SELECT b, h, a as i, (SELECT f FROM t7) as j FROM t7;
591 CREATE TABLE t8 AS SELECT b, h, a as i, f as j FROM t7;
597 SELECT sql FROM sqlite_master WHERE tbl_name = 't8'
599 } {{CREATE TABLE t8(b NUM,h,i INT,j)}}
601 #--------------------------------------------------------------------
602 # Test cases table-13.*
604 # Test the ability to have default values of CURRENT_TIME, CURRENT_DATE
605 # and CURRENT_TIMESTAMP.
609 CREATE TABLE tablet8(
610 a integer primary key,
611 tm text DEFAULT CURRENT_TIME,
612 dt text DEFAULT CURRENT_DATE,
613 dttm text DEFAULT CURRENT_TIMESTAMP
615 SELECT * FROM tablet8;
619 unset -nocomplain date time seconds
620 foreach {date time seconds} {
621 1976-07-04 12:00:00 205329600
622 1994-04-16 14:00:00 766504800
623 2000-01-01 00:00:00 946684800
624 2003-12-31 12:34:56 1072874096
627 set sqlite_current_time $seconds
628 do_test table-13.2.$i {
630 INSERT INTO tablet8(a) VALUES($i);
631 SELECT tm, dt, dttm FROM tablet8 WHERE a=$i;
633 } [list $time $date [list $date $time]]
635 set sqlite_current_time 0
637 #--------------------------------------------------------------------
638 # Test cases table-14.*
640 # Test that a table cannot be created or dropped while other virtual
641 # machines are active. This is required because otherwise when in
642 # auto-vacuum mode the btree-layer may need to move the root-pages of
643 # a table for which there is an open cursor.
645 # 2007-05-02: A open btree cursor no longer blocks CREATE TABLE.
646 # But DROP TABLE is still prohibited because we do not want to
647 # delete a table out from under a running query.
651 # pragma vdbe_trace = 0;
653 # Try to create a table from within a callback:
654 unset -nocomplain result
658 db eval {SELECT * FROM tablet8 LIMIT 1} {} {
659 db eval {CREATE TABLE t9(a, b, c)}
663 set result [list $rc $msg]
666 # Try to drop a table from within a callback:
670 db eval {SELECT * FROM tablet8 LIMIT 1} {} {
671 db eval {DROP TABLE t9;}
675 set result [list $rc $msg]
676 } {1 {database table is locked}}
679 # Now attach a database and ensure that a table can be created in the
680 # attached database whilst in a callback from a query on the main database.
683 forcedelete test2.db-journal
685 ATTACH 'test2.db' as aux;
687 db eval {SELECT * FROM tablet8 LIMIT 1} {} {
688 db eval {CREATE TABLE aux.t1(a, b, c)}
692 # On the other hand, it should be impossible to drop a table when any VMs
693 # are active. This is because VerifyCookie instructions may have already
694 # been executed, and btree root-pages may not move after this (which a
695 # delete table might do).
699 db eval {SELECT * FROM tablet8 LIMIT 1} {} {
700 db eval {DROP TABLE aux.t1;}
704 set result [list $rc $msg]
705 } {1 {database table is locked}}
708 # Create and drop 2000 tables. This is to check that the balance_shallow()
709 # routine works correctly on the sqlite_master table. At one point it
710 # contained a bug that would prevent the right-child pointer of the
711 # child page from being copied to the root page.
715 for {set i 0} {$i<2000} {incr i} {
716 execsql "CREATE TABLE tbl$i (a, b, c)"
722 for {set i 0} {$i<2000} {incr i} {
723 execsql "DROP TABLE tbl$i"
728 # Ticket 3a88d85f36704eebe134f7f48aebf00cd6438c1a (2014-08-05)
729 # The following SQL script segfaults while running the INSERT statement:
731 # CREATE TABLE t1(x DEFAULT(max(1)));
732 # INSERT INTO t1(rowid) VALUES(1);
734 # The problem appears to be the use of an aggregate function as part of
735 # the default value for a column. This problem has been in the code since
736 # at least 2006-01-01 and probably before that. This problem was detected
737 # and reported on the sqlite-users@sqlite.org mailing list by Zsbán Ambrus.
739 do_execsql_test table-16.1 {
740 CREATE TABLE t16(x DEFAULT(max(1)));
741 INSERT INTO t16(x) VALUES(123);
742 SELECT rowid, x FROM t16;
744 do_catchsql_test table-16.2 {
745 INSERT INTO t16(rowid) VALUES(4);
746 } {1 {unknown function: max()}}
747 do_execsql_test table-16.3 {
749 CREATE TABLE t16(x DEFAULT(abs(1)));
750 INSERT INTO t16(rowid) VALUES(4);
751 SELECT rowid, x FROM t16;
753 do_catchsql_test table-16.4 {
755 CREATE TABLE t16(x DEFAULT(avg(1)));
756 INSERT INTO t16(rowid) VALUES(123);
757 SELECT rowid, x FROM t16;
758 } {1 {unknown function: avg()}}
759 do_catchsql_test table-16.5 {
761 CREATE TABLE t16(x DEFAULT(count()));
762 INSERT INTO t16(rowid) VALUES(123);
763 SELECT rowid, x FROM t16;
764 } {1 {unknown function: count()}}
765 do_catchsql_test table-16.6 {
767 CREATE TABLE t16(x DEFAULT(group_concat('x',',')));
768 INSERT INTO t16(rowid) VALUES(123);
769 SELECT rowid, x FROM t16;
770 } {1 {unknown function: group_concat()}}
771 do_catchsql_test table-16.7 {
772 INSERT INTO t16 DEFAULT VALUES;
773 } {1 {unknown function: group_concat()}}
775 # Ticket [https://www.sqlite.org/src/info/094d39a4c95ee4abbc417f04214617675ba15c63]
776 # describes a assertion fault that occurs on a CREATE TABLE .. AS SELECT statement.
777 # the following test verifies that the problem has been fixed.
779 do_execsql_test table-17.1 {
780 DROP TABLE IF EXISTS t1;
781 CREATE TABLE t1(a TEXT);
782 INSERT INTO t1(a) VALUES(1),(2);
783 DROP TABLE IF EXISTS t2;
784 CREATE TABLE t2(x TEXT, y TEXT);
785 INSERT INTO t2(x,y) VALUES(3,4);
786 DROP TABLE IF EXISTS t3;
788 SELECT a AS p, coalesce(y,a) AS q FROM t1 LEFT JOIN t2 ON a=x;
789 SELECT p, q, '|' FROM t3 ORDER BY p;