Import SQLite 3.7.6.3.

third_party/sqlite/src/test/alter3.test

 # 2005 February 19
 #
 # 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 10 matching lines @@
 source $testdir/tester.tcl
 
 # If SQLITE_OMIT_ALTERTABLE is defined, omit this file.
 ifcapable !altertable {
   finish_test
   return
 }
 
 # Determine if there is a codec available on this test.
 #
-if {[catch {sqlite3 -has_codec} r] || $r} {
+if {[catch {sqlite3 -has-codec} r] || $r} {
   set has_codec 1
 } else {
   set has_codec 0
 }
 
 
 # Test Organisation:
 # ------------------
 #
 # alter3-1.*: Test that ALTER TABLE correctly modifies the CREATE TABLE sql.
 # alter3-2.*: Test error messages.
 # alter3-3.*: Test adding columns with default value NULL.
 # alter3-4.*: Test adding columns with default values other than NULL.
 # alter3-5.*: Test adding columns to tables in ATTACHed databases.
 # alter3-6.*: Test that temp triggers are not accidentally dropped.
 # alter3-7.*: Test that VACUUM resets the file-format.
 #
 
 # This procedure returns the value of the file-format in file 'test.db'.
 # 
 proc get_file_format {{fname test.db}} {
   return [hexio_get_int [hexio_read $fname 44 4]]
 }
 
 do_test alter3-1.1 {
   execsql {
+    PRAGMA legacy_file_format=ON;
     CREATE TABLE abc(a, b, c);
     SELECT sql FROM sqlite_master;
   }
 } {{CREATE TABLE abc(a, b, c)}}
 do_test alter3-1.2 {
   execsql {ALTER TABLE abc ADD d INTEGER;}
   execsql {
     SELECT sql FROM sqlite_master;
   }
 } {{CREATE TABLE abc(a, b, c, d INTEGER)}}
@@ skipping 123 matching lines @@
       PRAGMA schema_version;
     }
   } {11}
 }
 
 do_test alter3-4.1 {
   db close
   file delete -force test.db
   set ::DB [sqlite3 db test.db]
   execsql {
+    PRAGMA legacy_file_format=ON;
     CREATE TABLE t1(a, b);
     INSERT INTO t1 VALUES(1, 100);
     INSERT INTO t1 VALUES(2, 300);
     SELECT * FROM t1;
   }
 } {1 100 2 300}
 do_test alter3-4.1 {
   execsql {
     PRAGMA schema_version = 20;
   }
@@ skipping 175 matching lines @@
   set ::sql "CREATE TABLE t4([join $cols {, }])"
   list 
 } {}
 do_test alter3-8.2 {
   execsql {
     SELECT sql FROM sqlite_master WHERE name = 't4';
   }
 } [list $::sql]
 
 finish_test