Import SQLite 3.8.7.4.

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.
 #
 #*************************************************************************
@@ skipping 125 matching lines @@
     catchsql {
       alter table v1 add column d;
     }
   } {1 {Cannot add a column to a view}}
 }
 do_test alter4-2.6 {
   catchsql {
     alter table t1 add column d DEFAULT CURRENT_TIME;
   }
 } {1 {Cannot add a column with non-constant default}}
+do_test alter4-2.7 {
+  catchsql {
+    alter table t1 add column d default (-5+1);
+  }
+} {1 {Cannot add a column with non-constant default}}
 do_test alter4-2.99 {
   execsql {
     DROP TABLE t1;
   }
 } {}
 
 do_test alter4-3.1 {
   execsql {
     CREATE TEMP TABLE t1(a, b);
     INSERT INTO t1 VALUES(1, 100);
@@ skipping 15 matching lines @@
 ifcapable schema_version {
   do_test alter4-3.4 {
     execsql {
       PRAGMA schema_version;
     }
   } {10}
 }
 
 do_test alter4-4.1 {
   db close
-  file delete -force test.db
+  forcedelete test.db
   set ::DB [sqlite3 db test.db]
   execsql {
     CREATE TEMP 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 alter4-4.1 {
   execsql {
@@ skipping 14 matching lines @@
   } {20}
 }
 do_test alter4-4.99 {
   execsql {
     DROP TABLE t1;
   }
 } {}
 
 ifcapable attach {
   do_test alter4-5.1 {
-    file delete -force test2.db
-    file delete -force test2.db-journal
+    forcedelete test2.db
+    forcedelete test2.db-journal
     execsql {
       CREATE TEMP TABLE t1(a, b);
       INSERT INTO t1 VALUES(1, 'one');
       INSERT INTO t1 VALUES(2, 'two');
       ATTACH 'test2.db' AS aux;
       CREATE TABLE aux.t1 AS SELECT * FROM t1;
       PRAGMA aux.schema_version = 30;
       SELECT sql FROM aux.sqlite_master;
     } 
   } {{CREATE TABLE t1(a,b)}}
@@ skipping 94 matching lines @@
   }
   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]
 
+
+# Test that a default value equal to -1 multipied by the smallest possible
+# 64-bit integer is correctly converted to a real.
+do_execsql_test alter4-9.1 {
+  CREATE TABLE t5(
+    a INTEGER DEFAULT -9223372036854775808,
+    b INTEGER DEFAULT (-(-9223372036854775808))
+  );
+  INSERT INTO t5 DEFAULT VALUES;
+}
+
+do_execsql_test alter4-9.2 { SELECT typeof(a), a, typeof(b), b FROM t5; } {
+  integer -9223372036854775808
+  real     9.22337203685478e+18
+}
+
+do_execsql_test alter4-9.3 { 
+  ALTER TABLE t5 ADD COLUMN c INTEGER DEFAULT (-(-9223372036854775808));
+  SELECT typeof(c), c FROM t5;
+} {real 9.22337203685478e+18}
+
 finish_test