Import SQLite 3.7.6.3.

third_party/sqlite/src/test/alter4.test

 # 2009 February 2
 #
 # 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.  The
 # focus of this script is testing that SQLite can handle a subtle 
 # file format change that may be used in the future to implement
 # "ALTER TABLE ... ADD COLUMN".
 #
 # $Id: alter4.test,v 1.1 2009/02/02 18:03:22 drh Exp $
 #
 
 set testdir [file dirname $argv0]
 
 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} {
-  set has_codec 1
-} else {
-  set has_codec 0
-}
-
 
 # Test Organisation:
 # ------------------
 #
 # alter4-1.*: Test that ALTER TABLE correctly modifies the CREATE TABLE sql.
 # alter4-2.*: Test error messages.
 # alter4-3.*: Test adding columns with default value NULL.
 # alter4-4.*: Test adding columns with default values other than NULL.
 # alter4-5.*: Test adding columns to tables in ATTACHed databases.
 # alter4-6.*: Test that temp triggers are not accidentally dropped.
 # alter4-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 alter4-1.1 {
   execsql {
     CREATE TEMP TABLE abc(a, b, c);
     SELECT sql FROM sqlite_temp_master;
   }
 } {{CREATE TABLE abc(a, b, c)}}
 do_test alter4-1.2 {
   execsql {ALTER TABLE abc ADD d INTEGER;}
   execsql {
     SELECT sql FROM sqlite_temp_master;
@@ skipping 109 matching lines @@
   execsql {
     PRAGMA schema_version = 10;
   }
 } {}
 do_test alter4-3.2 {
   execsql {
     ALTER TABLE t1 ADD c;
     SELECT * FROM t1;
   }
 } {1 100 {} 2 300 {}}
-if {!$has_codec} {
-  do_test alter4-3.3 {
-    get_file_format
-  } {3}
-}
 ifcapable schema_version {
   do_test alter4-3.4 {
     execsql {
       PRAGMA schema_version;
     }
   } {10}
 }
 
 do_test alter4-4.1 {
   db close
@@ skipping 10 matching lines @@
   execsql {
     PRAGMA schema_version = 20;
   }
 } {}
 do_test alter4-4.2 {
   execsql {
     ALTER TABLE t1 ADD c DEFAULT 'hello world';
     SELECT * FROM t1;
   }
 } {1 100 {hello world} 2 300 {hello world}}
-if {!$has_codec} {
-  do_test alter4-4.3 {
-    get_file_format
-  } {3}
-}
 ifcapable schema_version {
   do_test alter4-4.4 {
     execsql {
       PRAGMA schema_version;
     }
   } {20}
 }
 do_test alter4-4.99 {
   execsql {
     DROP TABLE t1;
@@ skipping 25 matching lines @@
       SELECT * FROM aux.t1;
     }
   } {1 one {} 2 two {}}
   ifcapable schema_version {
     do_test alter4-5.4 {
       execsql {
         PRAGMA aux.schema_version;
       }
     } {31}
   }
-  if {!$has_codec} {
-    do_test alter4-5.5 {
-      list [get_file_format test2.db] [get_file_format]
-    } {2 3}
-  }
   do_test alter4-5.6 {
     execsql {
       ALTER TABLE aux.t1 ADD COLUMN d DEFAULT 1000;
       SELECT sql FROM aux.sqlite_master;
     }
   } {{CREATE TABLE t1(a,b, c VARCHAR(128), d DEFAULT 1000)}}
   do_test alter4-5.7 {
     execsql {
       SELECT * FROM aux.t1;
     }
@@ skipping 41 matching lines @@
   } {b 1 2 a 1 2}
   do_test alter4-6.2 {
     execsql {
       ALTER TABLE t1 ADD COLUMN c DEFAULT 'c';
       INSERT INTO t1(a, b) VALUES(3, 4);
       SELECT * FROM log;
     }
   } {b 1 2 a 1 2 b 3 4 a 3 4}
 }
 
-if {!$has_codec} {
-  ifcapable vacuum {
-    do_test alter4-7.1 {
-      execsql {
-        VACUUM;
-      }
-      get_file_format
-    } {1}
-    do_test alter4-7.2 {
-      execsql {
-        CREATE TEMP TABLE abc(a, b, c);
-        ALTER TABLE abc ADD d DEFAULT NULL;
-      }
-      get_file_format
-    } {2}
-    do_test alter4-7.3 {
-      execsql {
-        ALTER TABLE abc ADD e DEFAULT 10;
-      }
-      get_file_format
-    } {3}
-    do_test alter4-7.4 {
-      execsql {
-        ALTER TABLE abc ADD f DEFAULT NULL;
-      }
-      get_file_format
-    } {3}
-    do_test alter4-7.5 {
-      execsql {
-        VACUUM;
-      }
-      get_file_format
-    } {1}
-  }
-}
-
 # Ticket #1183 - Make sure adding columns to large tables does not cause
 # memory corruption (as was the case before this bug was fixed).
 do_test alter4-8.1 {
   execsql {
     CREATE TEMP TABLE t4(c1);
   }
 } {}
 set ::sql ""
 do_test alter4-8.2 {
   set cols c1
   for {set i 2} {$i < 100} {incr i} {
     execsql "
       ALTER TABLE t4 ADD c$i
     "
     lappend cols c$i
   }
   set ::sql "CREATE TABLE t4([join $cols {, }])"
   list 
 } {}
 do_test alter4-8.2 {
   execsql {
     SELECT sql FROM sqlite_temp_master WHERE name = 't4';
   }
 } [list $::sql]
 
 finish_test