gitlab.com/CoiaPrant/sqlite3@v1.19.1/testdata/tcl/alter.test (about) 1 # 2004 November 10 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. The 12 # focus of this script is testing the ALTER TABLE statement. 13 # 14 # $Id: alter.test,v 1.32 2009/03/24 15:08:10 drh Exp $ 15 # 16 17 set testdir [file dirname $argv0] 18 source $testdir/tester.tcl 19 20 # If SQLITE_OMIT_ALTERTABLE is defined, omit this file. 21 ifcapable !altertable { 22 finish_test 23 return 24 } 25 26 #---------------------------------------------------------------------- 27 # Test organization: 28 # 29 # alter-1.1.* - alter-1.7.*: Basic tests of ALTER TABLE, including tables 30 # with implicit and explicit indices. These tests came from an earlier 31 # fork of SQLite that also supported ALTER TABLE. 32 # alter-1.8.*: Tests for ALTER TABLE when the table resides in an 33 # attached database. 34 # alter-1.9.*: Tests for ALTER TABLE when their is whitespace between the 35 # table name and left parenthesis token. i.e: 36 # "CREATE TABLE abc (a, b, c);" 37 # alter-2.*: Test error conditions and messages. 38 # alter-3.*: Test ALTER TABLE on tables that have TRIGGERs attached to them. 39 # alter-4.*: Test ALTER TABLE on tables that have AUTOINCREMENT fields. 40 # ... 41 # alter-12.*: Test ALTER TABLE on views. 42 # 43 44 # Create some tables to rename. Be sure to include some TEMP tables 45 # and some tables with odd names. 46 # 47 do_test alter-1.1 { 48 ifcapable tempdb { 49 set ::temp TEMP 50 } else { 51 set ::temp {} 52 } 53 execsql [subst -nocommands { 54 CREATE TABLE t1(a,b); 55 INSERT INTO t1 VALUES(1,2); 56 CREATE TABLE [t1'x1](c UNIQUE, b PRIMARY KEY); 57 INSERT INTO [t1'x1] VALUES(3,4); 58 CREATE INDEX t1i1 ON T1(B); 59 CREATE INDEX t1i2 ON t1(a,b); 60 CREATE INDEX i3 ON [t1'x1](b,c); 61 CREATE $::temp TABLE "temp table"(e,f,g UNIQUE); 62 CREATE INDEX i2 ON [temp table](f); 63 INSERT INTO [temp table] VALUES(5,6,7); 64 }] 65 execsql { 66 SELECT 't1', * FROM t1; 67 SELECT 't1''x1', * FROM "t1'x1"; 68 SELECT * FROM [temp table]; 69 } 70 } {t1 1 2 t1'x1 3 4 5 6 7} 71 do_test alter-1.2 { 72 execsql [subst { 73 CREATE $::temp TABLE objlist(type, name, tbl_name); 74 INSERT INTO objlist SELECT type, name, tbl_name 75 FROM sqlite_master WHERE NAME!='objlist'; 76 }] 77 ifcapable tempdb { 78 execsql { 79 INSERT INTO objlist SELECT type, name, tbl_name 80 FROM temp.sqlite_master WHERE NAME!='objlist'; 81 } 82 } 83 84 execsql { 85 SELECT type, name, tbl_name FROM objlist ORDER BY tbl_name, type desc, name; 86 } 87 } [list \ 88 table t1 t1 \ 89 index t1i1 t1 \ 90 index t1i2 t1 \ 91 table t1'x1 t1'x1 \ 92 index i3 t1'x1 \ 93 index {sqlite_autoindex_t1'x1_1} t1'x1 \ 94 index {sqlite_autoindex_t1'x1_2} t1'x1 \ 95 table {temp table} {temp table} \ 96 index i2 {temp table} \ 97 index {sqlite_autoindex_temp table_1} {temp table} \ 98 ] 99 100 # Make some changes 101 # 102 integrity_check alter-1.3.0 103 do_test alter-1.3 { 104 execsql { 105 ALTER TABLE [T1] RENAME to [-t1-]; 106 ALTER TABLE "t1'x1" RENAME TO T2; 107 ALTER TABLE [temp table] RENAME to TempTab; 108 } 109 } {} 110 integrity_check alter-1.3.1 111 do_test alter-1.4 { 112 execsql { 113 SELECT 't1', * FROM [-t1-]; 114 SELECT 't2', * FROM t2; 115 SELECT * FROM temptab; 116 } 117 } {t1 1 2 t2 3 4 5 6 7} 118 do_test alter-1.5 { 119 execsql { 120 DELETE FROM objlist; 121 INSERT INTO objlist SELECT type, name, tbl_name 122 FROM sqlite_master WHERE NAME!='objlist'; 123 } 124 catchsql { 125 INSERT INTO objlist SELECT type, name, tbl_name 126 FROM sqlite_temp_master WHERE NAME!='objlist'; 127 } 128 execsql { 129 SELECT type, name, tbl_name FROM objlist ORDER BY tbl_name, type desc, name; 130 } 131 } [list \ 132 table -t1- -t1- \ 133 index t1i1 -t1- \ 134 index t1i2 -t1- \ 135 table T2 T2 \ 136 index i3 T2 \ 137 index {sqlite_autoindex_T2_1} T2 \ 138 index {sqlite_autoindex_T2_2} T2 \ 139 table {TempTab} {TempTab} \ 140 index i2 {TempTab} \ 141 index {sqlite_autoindex_TempTab_1} {TempTab} \ 142 ] 143 144 # Make sure the changes persist after restarting the database. 145 # (The TEMP table will not persist, of course.) 146 # 147 ifcapable tempdb { 148 do_test alter-1.6 { 149 db close 150 sqlite3 db test.db 151 set DB [sqlite3_connection_pointer db] 152 execsql { 153 CREATE TEMP TABLE objlist(type, name, tbl_name); 154 INSERT INTO objlist SELECT type, name, tbl_name FROM sqlite_master; 155 INSERT INTO objlist 156 SELECT type, name, tbl_name FROM temp.sqlite_master 157 WHERE NAME!='objlist'; 158 SELECT type, name, tbl_name FROM objlist 159 ORDER BY tbl_name, type desc, name; 160 } 161 } [list \ 162 table -t1- -t1- \ 163 index t1i1 -t1- \ 164 index t1i2 -t1- \ 165 table T2 T2 \ 166 index i3 T2 \ 167 index {sqlite_autoindex_T2_1} T2 \ 168 index {sqlite_autoindex_T2_2} T2 \ 169 ] 170 } else { 171 execsql { 172 DROP TABLE TempTab; 173 } 174 } 175 176 # Create bogus application-defined functions for functions used 177 # internally by ALTER TABLE, to ensure that ALTER TABLE falls back 178 # to the built-in functions. 179 # 180 proc failing_app_func {args} {error "bad function"} 181 do_test alter-1.7-prep { 182 db func substr failing_app_func 183 db func like failing_app_func 184 db func sqlite_rename_table failing_app_func 185 db func sqlite_rename_trigger failing_app_func 186 db func sqlite_rename_parent failing_app_func 187 catchsql {SELECT substr(name,1,3) FROM sqlite_master} 188 } {1 {bad function}} 189 190 # Make sure the ALTER TABLE statements work with the 191 # non-callback API 192 # 193 do_test alter-1.7 { 194 stepsql $DB { 195 ALTER TABLE [-t1-] RENAME to [*t1*]; 196 ALTER TABLE T2 RENAME TO [<t2>]; 197 } 198 execsql { 199 DELETE FROM objlist; 200 INSERT INTO objlist SELECT type, name, tbl_name 201 FROM sqlite_master WHERE NAME!='objlist'; 202 } 203 catchsql { 204 INSERT INTO objlist SELECT type, name, tbl_name 205 FROM sqlite_temp_master WHERE NAME!='objlist'; 206 } 207 execsql { 208 SELECT type, name, tbl_name FROM objlist ORDER BY tbl_name, type desc, name; 209 } 210 } [list \ 211 table *t1* *t1* \ 212 index t1i1 *t1* \ 213 index t1i2 *t1* \ 214 table <t2> <t2> \ 215 index i3 <t2> \ 216 index {sqlite_autoindex_<t2>_1} <t2> \ 217 index {sqlite_autoindex_<t2>_2} <t2> \ 218 ] 219 220 # Check that ALTER TABLE works on attached databases. 221 # 222 ifcapable attach { 223 do_test alter-1.8.1 { 224 forcedelete test2.db 225 forcedelete test2.db-journal 226 execsql { 227 ATTACH 'test2.db' AS aux; 228 } 229 } {} 230 do_test alter-1.8.2 { 231 execsql { 232 CREATE TABLE t4(a PRIMARY KEY, b, c); 233 CREATE TABLE aux.t4(a PRIMARY KEY, b, c); 234 CREATE INDEX i4 ON t4(b); 235 CREATE INDEX aux.i4 ON t4(b); 236 } 237 } {} 238 do_test alter-1.8.3 { 239 execsql { 240 INSERT INTO t4 VALUES('main', 'main', 'main'); 241 INSERT INTO aux.t4 VALUES('aux', 'aux', 'aux'); 242 SELECT * FROM t4 WHERE a = 'main'; 243 } 244 } {main main main} 245 do_test alter-1.8.4 { 246 execsql { 247 ALTER TABLE t4 RENAME TO t5; 248 SELECT * FROM t4 WHERE a = 'aux'; 249 } 250 } {aux aux aux} 251 do_test alter-1.8.5 { 252 execsql { 253 SELECT * FROM t5; 254 } 255 } {main main main} 256 do_test alter-1.8.6 { 257 execsql { 258 SELECT * FROM t5 WHERE b = 'main'; 259 } 260 } {main main main} 261 do_test alter-1.8.7 { 262 execsql { 263 ALTER TABLE aux.t4 RENAME TO t5; 264 SELECT * FROM aux.t5 WHERE b = 'aux'; 265 } 266 } {aux aux aux} 267 } 268 269 do_test alter-1.9.1 { 270 execsql { 271 CREATE TABLE tbl1 (a, b, c); 272 INSERT INTO tbl1 VALUES(1, 2, 3); 273 } 274 } {} 275 do_test alter-1.9.2 { 276 execsql { 277 SELECT * FROM tbl1; 278 } 279 } {1 2 3} 280 do_test alter-1.9.3 { 281 execsql { 282 ALTER TABLE tbl1 RENAME TO tbl2; 283 SELECT * FROM tbl2; 284 } 285 } {1 2 3} 286 do_test alter-1.9.4 { 287 execsql { 288 DROP TABLE tbl2; 289 } 290 } {} 291 292 # Test error messages 293 # 294 do_test alter-2.1 { 295 catchsql { 296 ALTER TABLE none RENAME TO hi; 297 } 298 } {1 {no such table: none}} 299 do_test alter-2.2 { 300 execsql { 301 CREATE TABLE t3(p,q,r); 302 } 303 catchsql { 304 ALTER TABLE [<t2>] RENAME TO t3; 305 } 306 } {1 {there is already another table or index with this name: t3}} 307 do_test alter-2.3 { 308 catchsql { 309 ALTER TABLE [<t2>] RENAME TO i3; 310 } 311 } {1 {there is already another table or index with this name: i3}} 312 do_test alter-2.4 { 313 catchsql { 314 ALTER TABLE SqLiTe_master RENAME TO master; 315 } 316 } {1 {table sqlite_master may not be altered}} 317 do_test alter-2.5 { 318 catchsql { 319 ALTER TABLE t3 RENAME TO sqlite_t3; 320 } 321 } {1 {object name reserved for internal use: sqlite_t3}} 322 do_test alter-2.6 { 323 catchsql { 324 ALTER TABLE t3 ADD COLUMN (ALTER TABLE t3 ADD COLUMN); 325 } 326 } {1 {near "(": syntax error}} 327 328 # If this compilation does not include triggers, omit the alter-3.* tests. 329 ifcapable trigger { 330 331 #----------------------------------------------------------------------- 332 # Tests alter-3.* test ALTER TABLE on tables that have triggers. 333 # 334 # alter-3.1.*: ALTER TABLE with triggers. 335 # alter-3.2.*: Test that the ON keyword cannot be used as a database, 336 # table or column name unquoted. This is done because part of the 337 # ALTER TABLE code (specifically the implementation of SQL function 338 # "sqlite_alter_trigger") will break in this case. 339 # alter-3.3.*: ALTER TABLE with TEMP triggers (todo). 340 # 341 342 # An SQL user-function for triggers to fire, so that we know they 343 # are working. 344 proc trigfunc {args} { 345 set ::TRIGGER $args 346 } 347 db func trigfunc trigfunc 348 349 do_test alter-3.1.0 { 350 execsql { 351 CREATE TABLE t6(a, b, c); 352 -- Different case for the table name in the trigger. 353 CREATE TRIGGER trig1 AFTER INSERT ON T6 BEGIN 354 SELECT trigfunc('trig1', new.a, new.b, new.c); 355 END; 356 } 357 } {} 358 do_test alter-3.1.1 { 359 execsql { 360 INSERT INTO t6 VALUES(1, 2, 3); 361 } 362 set ::TRIGGER 363 } {trig1 1 2 3} 364 do_test alter-3.1.2 { 365 execsql { 366 ALTER TABLE t6 RENAME TO t7; 367 INSERT INTO t7 VALUES(4, 5, 6); 368 } 369 set ::TRIGGER 370 } {trig1 4 5 6} 371 do_test alter-3.1.3 { 372 execsql { 373 DROP TRIGGER trig1; 374 } 375 } {} 376 do_test alter-3.1.4 { 377 execsql { 378 CREATE TRIGGER trig2 AFTER INSERT ON main.t7 BEGIN 379 SELECT trigfunc('trig2', new.a, new.b, new.c); 380 END; 381 INSERT INTO t7 VALUES(1, 2, 3); 382 } 383 set ::TRIGGER 384 } {trig2 1 2 3} 385 do_test alter-3.1.5 { 386 execsql { 387 ALTER TABLE t7 RENAME TO t8; 388 INSERT INTO t8 VALUES(4, 5, 6); 389 } 390 set ::TRIGGER 391 } {trig2 4 5 6} 392 do_test alter-3.1.6 { 393 execsql { 394 DROP TRIGGER trig2; 395 } 396 } {} 397 do_test alter-3.1.7 { 398 execsql { 399 CREATE TRIGGER trig3 AFTER INSERT ON main.'t8'BEGIN 400 SELECT trigfunc('trig3', new.a, new.b, new.c); 401 END; 402 INSERT INTO t8 VALUES(1, 2, 3); 403 } 404 set ::TRIGGER 405 } {trig3 1 2 3} 406 do_test alter-3.1.8 { 407 execsql { 408 ALTER TABLE t8 RENAME TO t9; 409 INSERT INTO t9 VALUES(4, 5, 6); 410 } 411 set ::TRIGGER 412 } {trig3 4 5 6} 413 414 # Make sure "ON" cannot be used as a database, table or column name without 415 # quoting. Otherwise the sqlite_alter_trigger() function might not work. 416 forcedelete test3.db 417 forcedelete test3.db-journal 418 ifcapable attach { 419 do_test alter-3.2.1 { 420 catchsql { 421 ATTACH 'test3.db' AS ON; 422 } 423 } {1 {near "ON": syntax error}} 424 do_test alter-3.2.2 { 425 catchsql { 426 ATTACH 'test3.db' AS 'ON'; 427 } 428 } {0 {}} 429 do_test alter-3.2.3 { 430 catchsql { 431 CREATE TABLE ON.t1(a, b, c); 432 } 433 } {1 {near "ON": syntax error}} 434 do_test alter-3.2.4 { 435 catchsql { 436 CREATE TABLE 'ON'.t1(a, b, c); 437 } 438 } {0 {}} 439 do_test alter-3.2.4 { 440 catchsql { 441 CREATE TABLE 'ON'.ON(a, b, c); 442 } 443 } {1 {near "ON": syntax error}} 444 do_test alter-3.2.5 { 445 catchsql { 446 CREATE TABLE 'ON'.'ON'(a, b, c); 447 } 448 } {0 {}} 449 } 450 do_test alter-3.2.6 { 451 catchsql { 452 CREATE TABLE t10(a, ON, c); 453 } 454 } {1 {near "ON": syntax error}} 455 do_test alter-3.2.7 { 456 catchsql { 457 CREATE TABLE t10(a, 'ON', c); 458 } 459 } {0 {}} 460 do_test alter-3.2.8 { 461 catchsql { 462 CREATE TRIGGER trig4 AFTER INSERT ON ON BEGIN SELECT 1; END; 463 } 464 } {1 {near "ON": syntax error}} 465 ifcapable attach { 466 do_test alter-3.2.9 { 467 catchsql { 468 CREATE TRIGGER 'on'.trig4 AFTER INSERT ON 'ON' BEGIN SELECT 1; END; 469 } 470 } {0 {}} 471 } 472 do_test alter-3.2.10 { 473 execsql { 474 DROP TABLE t10; 475 } 476 } {} 477 478 do_test alter-3.3.1 { 479 execsql [subst { 480 CREATE TABLE tbl1(a, b, c); 481 CREATE $::temp TRIGGER trig1 AFTER INSERT ON tbl1 BEGIN 482 SELECT trigfunc('trig1', new.a, new.b, new.c); 483 END; 484 }] 485 } {} 486 do_test alter-3.3.2 { 487 execsql { 488 INSERT INTO tbl1 VALUES('a', 'b', 'c'); 489 } 490 set ::TRIGGER 491 } {trig1 a b c} 492 do_test alter-3.3.3 { 493 execsql { 494 ALTER TABLE tbl1 RENAME TO tbl2; 495 INSERT INTO tbl2 VALUES('d', 'e', 'f'); 496 } 497 set ::TRIGGER 498 } {trig1 d e f} 499 do_test alter-3.3.4 { 500 execsql [subst { 501 CREATE $::temp TRIGGER trig2 AFTER UPDATE ON tbl2 BEGIN 502 SELECT trigfunc('trig2', new.a, new.b, new.c); 503 END; 504 }] 505 } {} 506 do_test alter-3.3.5 { 507 execsql { 508 ALTER TABLE tbl2 RENAME TO tbl3; 509 INSERT INTO tbl3 VALUES('g', 'h', 'i'); 510 } 511 set ::TRIGGER 512 } {trig1 g h i} 513 do_test alter-3.3.6 { 514 execsql { 515 UPDATE tbl3 SET a = 'G' where a = 'g'; 516 } 517 set ::TRIGGER 518 } {trig2 G h i} 519 do_test alter-3.3.7 { 520 execsql { 521 DROP TABLE tbl3; 522 } 523 } {} 524 ifcapable tempdb { 525 do_test alter-3.3.8 { 526 execsql { 527 SELECT * FROM temp.sqlite_master WHERE type = 'trigger'; 528 } 529 } {} 530 } 531 532 } ;# ifcapable trigger 533 534 # If the build does not include AUTOINCREMENT fields, omit alter-4.*. 535 ifcapable autoinc { 536 537 do_test alter-4.1 { 538 execsql { 539 CREATE TABLE tbl1(a INTEGER PRIMARY KEY AUTOINCREMENT); 540 INSERT INTO tbl1 VALUES(10); 541 } 542 } {} 543 do_test alter-4.2 { 544 execsql { 545 INSERT INTO tbl1 VALUES(NULL); 546 SELECT a FROM tbl1; 547 } 548 } {10 11} 549 do_test alter-4.3 { 550 execsql { 551 ALTER TABLE tbl1 RENAME TO tbl2; 552 DELETE FROM tbl2; 553 INSERT INTO tbl2 VALUES(NULL); 554 SELECT a FROM tbl2; 555 } 556 } {12} 557 do_test alter-4.4 { 558 execsql { 559 DROP TABLE tbl2; 560 } 561 } {} 562 563 } ;# ifcapable autoinc 564 565 # Test that it is Ok to execute an ALTER TABLE immediately after 566 # opening a database. 567 do_test alter-5.1 { 568 execsql { 569 CREATE TABLE tbl1(a, b, c); 570 INSERT INTO tbl1 VALUES('x', 'y', 'z'); 571 } 572 } {} 573 do_test alter-5.2 { 574 sqlite3 db2 test.db 575 execsql { 576 ALTER TABLE tbl1 RENAME TO tbl2; 577 SELECT * FROM tbl2; 578 } db2 579 } {x y z} 580 do_test alter-5.3 { 581 db2 close 582 } {} 583 584 foreach tblname [execsql { 585 SELECT name FROM sqlite_master 586 WHERE type='table' AND name NOT GLOB 'sqlite*' 587 }] { 588 execsql "DROP TABLE \"$tblname\"" 589 } 590 591 set ::tbl_name "abc\uABCDdef" 592 do_test alter-6.1 { 593 string length $::tbl_name 594 } {7} 595 do_test alter-6.2 { 596 execsql " 597 CREATE TABLE ${tbl_name}(a, b, c); 598 " 599 set ::oid [execsql {SELECT max(oid) FROM sqlite_master}] 600 execsql " 601 SELECT sql FROM sqlite_master WHERE oid = $::oid; 602 " 603 } "{CREATE TABLE ${::tbl_name}(a, b, c)}" 604 execsql " 605 SELECT * FROM ${::tbl_name} 606 " 607 set ::tbl_name2 "abcXdef" 608 do_test alter-6.3 { 609 execsql " 610 ALTER TABLE $::tbl_name RENAME TO $::tbl_name2 611 " 612 execsql " 613 SELECT sql FROM sqlite_master WHERE oid = $::oid 614 " 615 } "{CREATE TABLE \"${::tbl_name2}\"(a, b, c)}" 616 do_test alter-6.4 { 617 execsql " 618 ALTER TABLE $::tbl_name2 RENAME TO $::tbl_name 619 " 620 execsql " 621 SELECT sql FROM sqlite_master WHERE oid = $::oid 622 " 623 } "{CREATE TABLE \"${::tbl_name}\"(a, b, c)}" 624 set ::col_name ghi\1234\jkl 625 do_test alter-6.5 { 626 execsql " 627 ALTER TABLE $::tbl_name ADD COLUMN $::col_name VARCHAR 628 " 629 execsql " 630 SELECT sql FROM sqlite_master WHERE oid = $::oid 631 " 632 } "{CREATE TABLE \"${::tbl_name}\"(a, b, c, $::col_name VARCHAR)}" 633 set ::col_name2 B\3421\A 634 do_test alter-6.6 { 635 db close 636 sqlite3 db test.db 637 execsql " 638 ALTER TABLE $::tbl_name ADD COLUMN $::col_name2 639 " 640 execsql " 641 SELECT sql FROM sqlite_master WHERE oid = $::oid 642 " 643 } "{CREATE TABLE \"${::tbl_name}\"(a, b, c, $::col_name VARCHAR, $::col_name2)}" 644 do_test alter-6.7 { 645 execsql " 646 INSERT INTO ${::tbl_name} VALUES(1, 2, 3, 4, 5); 647 SELECT $::col_name, $::col_name2 FROM $::tbl_name; 648 " 649 } {4 5} 650 651 # Ticket #1665: Make sure ALTER TABLE ADD COLUMN works on a table 652 # that includes a COLLATE clause. 653 # 654 do_realnum_test alter-7.1 { 655 execsql { 656 CREATE TABLE t1(a TEXT COLLATE BINARY); 657 ALTER TABLE t1 ADD COLUMN b INTEGER COLLATE NOCASE; 658 INSERT INTO t1 VALUES(1,'-2'); 659 INSERT INTO t1 VALUES(5.4e-08,'5.4e-08'); 660 SELECT typeof(a), a, typeof(b), b FROM t1; 661 } 662 } {text 1 integer -2 text 5.4e-08 real 5.4e-08} 663 664 # Make sure that when a column is added by ALTER TABLE ADD COLUMN and has 665 # a default value that the default value is used by aggregate functions. 666 # 667 do_test alter-8.1 { 668 execsql { 669 CREATE TABLE t2(a INTEGER); 670 INSERT INTO t2 VALUES(1); 671 INSERT INTO t2 VALUES(1); 672 INSERT INTO t2 VALUES(2); 673 ALTER TABLE t2 ADD COLUMN b INTEGER DEFAULT 9; 674 SELECT sum(b) FROM t2; 675 } 676 } {27} 677 do_test alter-8.2 { 678 execsql { 679 SELECT a, sum(b) FROM t2 GROUP BY a; 680 } 681 } {1 18 2 9} 682 683 #-------------------------------------------------------------------------- 684 # alter-9.X - Special test: Make sure the sqlite_rename_column() and 685 # rename_table() functions do not crash when handed bad input. 686 # 687 sqlite3_test_control SQLITE_TESTCTRL_INTERNAL_FUNCTIONS db 688 do_test alter-9.1 { 689 execsql {SELECT SQLITE_RENAME_COLUMN(0,0,0,0,0,0,0,0,0)} 690 } {{}} 691 foreach {tn sql} { 692 1 { SELECT SQLITE_RENAME_TABLE(0,0,0,0,0,0,0) } 693 2 { SELECT SQLITE_RENAME_TABLE(10,20,30,40,50,60,70) } 694 3 { SELECT SQLITE_RENAME_TABLE('foo','foo','foo','foo','foo','foo','foo') } 695 } { 696 do_test alter-9.2.$tn { 697 catch { execsql $sql } 698 } 1 699 } 700 sqlite3_test_control SQLITE_TESTCTRL_INTERNAL_FUNCTIONS db 701 702 # If the INTERNAL_FUNCTIONS test-control is disabled (which is the default), 703 # then the sqlite_rename_table() SQL function is not accessible to ordinary SQL. 704 # 705 do_catchsql_test alter-9.3 { 706 SELECT sqlite_rename_table(0,0,0,0,0,0,0); 707 } {1 {no such function: sqlite_rename_table}} 708 709 #------------------------------------------------------------------------ 710 # alter-10.X - Make sure ALTER TABLE works with multi-byte UTF-8 characters 711 # in the names. 712 # 713 do_test alter-10.1 { 714 execsql "CREATE TABLE xyz(x UNIQUE)" 715 execsql "ALTER TABLE xyz RENAME TO xyz\u1234abc" 716 execsql {SELECT name FROM sqlite_master WHERE name GLOB 'xyz*'} 717 } [list xyz\u1234abc] 718 do_test alter-10.2 { 719 execsql {SELECT name FROM sqlite_master WHERE name GLOB 'sqlite_autoindex*'} 720 } [list sqlite_autoindex_xyz\u1234abc_1] 721 do_test alter-10.3 { 722 execsql "ALTER TABLE xyz\u1234abc RENAME TO xyzabc" 723 execsql {SELECT name FROM sqlite_master WHERE name GLOB 'xyz*'} 724 } [list xyzabc] 725 do_test alter-10.4 { 726 execsql {SELECT name FROM sqlite_master WHERE name GLOB 'sqlite_autoindex*'} 727 } [list sqlite_autoindex_xyzabc_1] 728 729 do_test alter-11.1 { 730 sqlite3_exec db {CREATE TABLE t11(%c6%c6)} 731 execsql { 732 ALTER TABLE t11 ADD COLUMN abc; 733 } 734 catchsql { 735 ALTER TABLE t11 ADD COLUMN abc; 736 } 737 } {1 {duplicate column name: abc}} 738 set isutf16 [regexp 16 [db one {PRAGMA encoding}]] 739 if {!$isutf16} { 740 do_test alter-11.2 { 741 execsql {INSERT INTO t11 VALUES(1,2)} 742 sqlite3_exec db {SELECT %c6%c6 AS xyz, abc FROM t11} 743 } {0 {xyz abc 1 2}} 744 } 745 do_test alter-11.3 { 746 sqlite3_exec db {CREATE TABLE t11b("%81%82%83" text)} 747 execsql { 748 ALTER TABLE t11b ADD COLUMN abc; 749 } 750 catchsql { 751 ALTER TABLE t11b ADD COLUMN abc; 752 } 753 } {1 {duplicate column name: abc}} 754 if {!$isutf16} { 755 do_test alter-11.4 { 756 execsql {INSERT INTO t11b VALUES(3,4)} 757 sqlite3_exec db {SELECT %81%82%83 AS xyz, abc FROM t11b} 758 } {0 {xyz abc 3 4}} 759 do_test alter-11.5 { 760 sqlite3_exec db {SELECT [%81%82%83] AS xyz, abc FROM t11b} 761 } {0 {xyz abc 3 4}} 762 do_test alter-11.6 { 763 sqlite3_exec db {SELECT "%81%82%83" AS xyz, abc FROM t11b} 764 } {0 {xyz abc 3 4}} 765 } 766 do_test alter-11.7 { 767 sqlite3_exec db {CREATE TABLE t11c(%81%82%83 text)} 768 execsql { 769 ALTER TABLE t11c ADD COLUMN abc; 770 } 771 catchsql { 772 ALTER TABLE t11c ADD COLUMN abc; 773 } 774 } {1 {duplicate column name: abc}} 775 if {!$isutf16} { 776 do_test alter-11.8 { 777 execsql {INSERT INTO t11c VALUES(5,6)} 778 sqlite3_exec db {SELECT %81%82%83 AS xyz, abc FROM t11c} 779 } {0 {xyz abc 5 6}} 780 do_test alter-11.9 { 781 sqlite3_exec db {SELECT [%81%82%83] AS xyz, abc FROM t11c} 782 } {0 {xyz abc 5 6}} 783 do_test alter-11.10 { 784 sqlite3_exec db {SELECT "%81%82%83" AS xyz, abc FROM t11c} 785 } {0 {xyz abc 5 6}} 786 } 787 788 do_test alter-12.1 { 789 execsql { 790 CREATE TABLE t12(a, b, c); 791 CREATE VIEW v1 AS SELECT * FROM t12; 792 } 793 } {} 794 do_test alter-12.2 { 795 catchsql { 796 ALTER TABLE v1 RENAME TO v2; 797 } 798 } {1 {view v1 may not be altered}} 799 do_test alter-12.3 { 800 execsql { SELECT * FROM v1; } 801 } {} 802 do_test alter-12.4 { 803 db close 804 sqlite3 db test.db 805 execsql { SELECT * FROM v1; } 806 } {} 807 do_test alter-12.5 { 808 catchsql { 809 ALTER TABLE v1 ADD COLUMN new_column; 810 } 811 } {1 {Cannot add a column to a view}} 812 813 # Ticket #3102: 814 # Verify that comments do not interfere with the table rename 815 # algorithm. 816 # 817 do_test alter-13.1 { 818 execsql { 819 CREATE TABLE /* hi */ t3102a(x); 820 CREATE TABLE t3102b -- comment 821 (y); 822 CREATE INDEX t3102c ON t3102a(x); 823 SELECT name FROM sqlite_master WHERE name GLOB 't3102*' ORDER BY 1; 824 } 825 } {t3102a t3102b t3102c} 826 do_test alter-13.2 { 827 execsql { 828 ALTER TABLE t3102a RENAME TO t3102a_rename; 829 SELECT name FROM sqlite_master WHERE name GLOB 't3102*' ORDER BY 1; 830 } 831 } {t3102a_rename t3102b t3102c} 832 do_test alter-13.3 { 833 execsql { 834 ALTER TABLE t3102b RENAME TO t3102b_rename; 835 SELECT name FROM sqlite_master WHERE name GLOB 't3102*' ORDER BY 1; 836 } 837 } {t3102a_rename t3102b_rename t3102c} 838 839 # Ticket #3651 840 do_test alter-14.1 { 841 catchsql { 842 CREATE TABLE t3651(a UNIQUE); 843 INSERT INTO t3651 VALUES(5); 844 ALTER TABLE t3651 ADD COLUMN b UNIQUE; 845 } 846 } {1 {Cannot add a UNIQUE column}} 847 do_test alter-14.2 { 848 catchsql { 849 ALTER TABLE t3651 ADD COLUMN b PRIMARY KEY; 850 } 851 } {1 {Cannot add a PRIMARY KEY column}} 852 853 854 #------------------------------------------------------------------------- 855 # Test that it is not possible to use ALTER TABLE on any system table. 856 # 857 set system_table_list {1 sqlite_master} 858 catchsql ANALYZE 859 ifcapable analyze { lappend system_table_list 2 sqlite_stat1 } 860 ifcapable stat4 { lappend system_table_list 4 sqlite_stat4 } 861 862 foreach {tn tbl} $system_table_list { 863 do_test alter-15.$tn.1 { 864 catchsql "ALTER TABLE $tbl RENAME TO xyz" 865 } [list 1 "table $tbl may not be altered"] 866 867 do_test alter-15.$tn.2 { 868 catchsql "ALTER TABLE $tbl ADD COLUMN xyz" 869 } [list 1 "table $tbl may not be altered"] 870 } 871 872 #------------------------------------------------------------------------ 873 # Verify that ALTER TABLE works on tables with the WITHOUT rowid option. 874 # 875 do_execsql_test alter-16.1 { 876 CREATE TABLE t16a(a TEXT, b REAL, c INT, PRIMARY KEY(a,b)) WITHOUT rowid; 877 INSERT INTO t16a VALUES('abc',1.25,99); 878 ALTER TABLE t16a ADD COLUMN d TEXT DEFAULT 'xyzzy'; 879 INSERT INTO t16a VALUES('cba',5.5,98,'fizzle'); 880 SELECT * FROM t16a ORDER BY a; 881 } {abc 1.25 99 xyzzy cba 5.5 98 fizzle} 882 do_execsql_test alter-16.2 { 883 ALTER TABLE t16a RENAME TO t16a_rn; 884 SELECT * FROM t16a_rn ORDER BY a; 885 } {abc 1.25 99 xyzzy cba 5.5 98 fizzle} 886 887 # 2018-09-16 ticket b41031ea2b5372378cb3d2d43cf9fe2a4a5c2510 888 # 889 ifcapable rtree { 890 db close 891 sqlite3 db :memory: 892 do_execsql_test alter-17.100 { 893 CREATE TABLE t1(a INTEGER PRIMARY KEY, b); 894 CREATE VIRTUAL TABLE t2 USING rtree(id,x0,x1); 895 INSERT INTO t1 VALUES(1,'apple'),(2,'fig'),(3,'pear'); 896 INSERT INTO t2 VALUES(1,1.0,2.0),(2,2.0,3.0),(3,1.5,3.5); 897 CREATE TRIGGER r1 AFTER UPDATE ON t1 BEGIN 898 DELETE FROM t2 WHERE id = OLD.a; 899 END; 900 ALTER TABLE t1 RENAME TO t3; 901 UPDATE t3 SET b='peach' WHERE a=2; 902 SELECT * FROM t2 ORDER BY 1; 903 } {1 1.0 2.0 3 1.5 3.5} 904 } 905 906 # 2021-03-08 dbsqlfuzz 3f0a7245b69cd08617d7d7781ebaedb0fe765a93 907 reset_db 908 do_catchsql_test alter-18.1 { 909 CREATE TABLE t1(a,b,c); 910 CREATE TABLE log(a INTEGER PRIMARY KEY,b,c); 911 CREATE TRIGGER tr1 AFTER INSERT ON t1 BEGIN 912 INSERT INTO logx(a,b,c) VALUES(new.a,new.b,new.c) 913 ON CONFLICT(a) DO UPDATE SET c=excluded.c, b=new.b; 914 END; 915 ALTER TABLE log RENAME COLUMN a TO x; 916 } {1 {error in trigger tr1: no such table: main.logx}} 917 918 # 2021-10-13 dbsqlfuzz e89174cbfad2d904f06b5e24df0a22510b6a1c1e 919 reset_db 920 do_execsql_test alter-19.1 { 921 CREATE TABLE t1(x); 922 CREATE TABLE t2(c); 923 CREATE TRIGGER r1 AFTER INSERT ON t2 BEGIN 924 UPDATE t2 SET (c)=( 925 EXISTS(SELECT 1 WHERE (WITH cte1(a) AS (SELECT 1 FROM t1 WHERE (SELECT 1 WHERE (WITH cte2(b) AS (VALUES(1))SELECT b FROM cte2)))SELECT a FROM cte1)) 926 ); 927 END; 928 ALTER TABLE t2 RENAME TO t3; 929 } {} 930 do_execsql_test alter-19.2 { 931 SELECT name FROM sqlite_schema WHERE sql LIKE '%t2%'; 932 } {} 933 do_execsql_test alter-19.3 { 934 SELECT name FROM sqlite_schema WHERE sql LIKE '%t3%' ORDER BY name; 935 } {r1 t3} 936 937 938 finish_test