Import SQLite 3.8.7.4.

third_party/sqlite/src/test/alter.test

 # 2004 November 10
 #
 # 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.
 #
 #*************************************************************************
@@ skipping 203 matching lines @@
      table <t2>                         <t2>          \
      index i3                           <t2>          \
      index {sqlite_autoindex_<t2>_1}    <t2>          \
      index {sqlite_autoindex_<t2>_2}    <t2>          \
   ]
 
 # Check that ALTER TABLE works on attached databases.
 #
 ifcapable attach {
   do_test alter-1.8.1 {
-    file delete -force test2.db
-    file delete -force test2.db-journal
+    forcedelete test2.db
+    forcedelete test2.db-journal
     execsql {
       ATTACH 'test2.db' AS aux;
     }
   } {}
   do_test alter-1.8.2 {
     execsql {
       CREATE TABLE t4(a PRIMARY KEY, b, c);
       CREATE TABLE aux.t4(a PRIMARY KEY, b, c);
       CREATE INDEX i4 ON t4(b);
       CREATE INDEX aux.i4 ON t4(b);
@@ skipping 106 matching lines @@
 # An SQL user-function for triggers to fire, so that we know they
 # are working.
 proc trigfunc {args} {
   set ::TRIGGER $args
 }
 db func trigfunc trigfunc
 
 do_test alter-3.1.0 {
   execsql {
     CREATE TABLE t6(a, b, c);
-    CREATE TRIGGER trig1 AFTER INSERT ON t6 BEGIN
+    -- Different case for the table name in the trigger.
+    CREATE TRIGGER trig1 AFTER INSERT ON T6 BEGIN
       SELECT trigfunc('trig1', new.a, new.b, new.c);
     END;
   }
 } {}
 do_test alter-3.1.1 {
   execsql {
     INSERT INTO t6 VALUES(1, 2, 3);
   }
   set ::TRIGGER
 } {trig1 1 2 3}
@@ skipping 42 matching lines @@
 do_test alter-3.1.8 {
   execsql {
     ALTER TABLE t8 RENAME TO t9;
     INSERT INTO t9 VALUES(4, 5, 6);
   }
   set ::TRIGGER
 } {trig3 4 5 6}
 
 # Make sure "ON" cannot be used as a database, table or column name without
 # quoting. Otherwise the sqlite_alter_trigger() function might not work.
-file delete -force test3.db
-file delete -force test3.db-journal
+forcedelete test3.db
+forcedelete test3.db-journal
 ifcapable attach {
   do_test alter-3.2.1 {
     catchsql {
       ATTACH 'test3.db' AS ON;
     }
   } {1 {near "ON": syntax error}}
   do_test alter-3.2.2 {
     catchsql {
       ATTACH 'test3.db' AS 'ON';
     }
@@ skipping 216 matching lines @@
 do_test alter-6.7 {
   execsql "
     INSERT INTO ${::tbl_name} VALUES(1, 2, 3, 4, 5);
     SELECT $::col_name, $::col_name2 FROM $::tbl_name;
   "
 } {4 5}
 
 # Ticket #1665:  Make sure ALTER TABLE ADD COLUMN works on a table
 # that includes a COLLATE clause.
 #
-do_test alter-7.1 {
+do_realnum_test alter-7.1 {
   execsql {
     CREATE TABLE t1(a TEXT COLLATE BINARY);
     ALTER TABLE t1 ADD COLUMN b INTEGER COLLATE NOCASE;
     INSERT INTO t1 VALUES(1,'-2');
     INSERT INTO t1 VALUES(5.4e-08,'5.4e-08');
     SELECT typeof(a), a, typeof(b), b FROM t1;
   }
 } {text 1 integer -2 text 5.4e-08 real 5.4e-08}
 
 # Make sure that when a column is added by ALTER TABLE ADD COLUMN and has
@@ skipping 175 matching lines @@
   }
 } {1 {Cannot add a PRIMARY KEY column}}
 
 
 #-------------------------------------------------------------------------
 # Test that it is not possible to use ALTER TABLE on any system table.
 #
 set system_table_list {1 sqlite_master}
 catchsql ANALYZE
 ifcapable analyze { lappend system_table_list 2 sqlite_stat1 }
-ifcapable stat2   { lappend system_table_list 3 sqlite_stat2 }
+ifcapable stat3   { lappend system_table_list 3 sqlite_stat3 }
+ifcapable stat4   { lappend system_table_list 4 sqlite_stat4 }
 
 foreach {tn tbl} $system_table_list {
   do_test alter-15.$tn.1 {
     catchsql "ALTER TABLE $tbl RENAME TO xyz"
   } [list 1 "table $tbl may not be altered"]
 
   do_test alter-15.$tn.2 {
     catchsql "ALTER TABLE $tbl ADD COLUMN xyz"
   } [list 1 "table $tbl may not be altered"]
 }
 
+#------------------------------------------------------------------------
+# Verify that ALTER TABLE works on tables with the WITHOUT rowid option.
+#
+do_execsql_test alter-16.1 {
+  CREATE TABLE t16a(a TEXT, b REAL, c INT, PRIMARY KEY(a,b)) WITHOUT rowid;
+  INSERT INTO t16a VALUES('abc',1.25,99);
+  ALTER TABLE t16a ADD COLUMN d TEXT DEFAULT 'xyzzy';
+  INSERT INTO t16a VALUES('cba',5.5,98,'fizzle');
+  SELECT * FROM t16a ORDER BY a;
+} {abc 1.25 99 xyzzy cba 5.5 98 fizzle}
+do_execsql_test alter-16.2 {
+  ALTER TABLE t16a RENAME TO t16a_rn;
+  SELECT * FROM t16a_rn ORDER BY a;
+} {abc 1.25 99 xyzzy cba 5.5 98 fizzle}
+
+#-------------------------------------------------------------------------
+# Verify that NULL values into the internal-use-only sqlite_rename_*()
+# functions do not cause problems.
+#
+do_execsql_test alter-17.1 {
+  SELECT sqlite_rename_table('CREATE TABLE xyz(a,b,c)','abc');
+} {{CREATE TABLE "abc"(a,b,c)}}
+do_execsql_test alter-17.2 {
+  SELECT sqlite_rename_table('CREATE TABLE xyz(a,b,c)',NULL);
+} {{CREATE TABLE "(NULL)"(a,b,c)}}
+do_execsql_test alter-17.3 {
+  SELECT sqlite_rename_table(NULL,'abc');
+} {{}}
+do_execsql_test alter-17.4 {
+  SELECT sqlite_rename_trigger('CREATE TRIGGER r1 ON xyz WHEN','abc');
+} {{CREATE TRIGGER r1 ON "abc" WHEN}}
+do_execsql_test alter-17.5 {
+  SELECT sqlite_rename_trigger('CREATE TRIGGER r1 ON xyz WHEN',NULL);
+} {{CREATE TRIGGER r1 ON "(NULL)" WHEN}}
+do_execsql_test alter-17.6 {
+  SELECT sqlite_rename_trigger(NULL,'abc');
+} {{}}
+do_execsql_test alter-17.7 {
+  SELECT sqlite_rename_parent('CREATE TABLE t1(a REFERENCES "xyzzy")',
+         'xyzzy','lmnop');
+} {{CREATE TABLE t1(a REFERENCES "lmnop")}}
+do_execsql_test alter-17.8 {
+  SELECT sqlite_rename_parent('CREATE TABLE t1(a REFERENCES "xyzzy")',
+         'xyzzy',NULL);
+} {{CREATE TABLE t1(a REFERENCES "(NULL)")}}
+do_execsql_test alter-17.9 {
+  SELECT sqlite_rename_parent('CREATE TABLE t1(a REFERENCES "xyzzy")',
+         NULL, 'lmnop');
+} {{}}
+do_execsql_test alter-17.10 {
+  SELECT sqlite_rename_parent(NULL,'abc','xyz');
+} {{}}
 
 finish_test