Index: third_party/sqlite/src/test/tkt-f67b41381a.test |
diff --git a/third_party/sqlite/src/test/tkt-f67b41381a.test b/third_party/sqlite/src/test/tkt-f67b41381a.test |
new file mode 100644 |
index 0000000000000000000000000000000000000000..1ddec988cd108f90bd3d96a12e60bbf293d9bd66 |
--- /dev/null |
+++ b/third_party/sqlite/src/test/tkt-f67b41381a.test |
@@ -0,0 +1,53 @@ |
+# 2014 April 26 |
+# |
+# 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. |
+# |
+#*********************************************************************** |
+# Test that ticket f67b41381a has been resolved. |
+# |
+ |
+set testdir [file dirname $argv0] |
+source $testdir/tester.tcl |
+set testprefix tkt-f67b41381a |
+ |
+do_execsql_test 1.0 { |
+ CREATE TABLE t1(a); |
+ INSERT INTO t1 VALUES(1); |
+ ALTER TABLE t1 ADD COLUMN b DEFAULT 2; |
+ CREATE TABLE t2(a, b); |
+ INSERT INTO t2 SELECT * FROM t1; |
+ SELECT * FROM t2; |
+} {1 2} |
+ |
+db cache size 0 |
+foreach {tn tbls xfer} { |
+ 1 { CREATE TABLE t1(a, b); CREATE TABLE t2(a, b) } 1 |
+ 2 { CREATE TABLE t1(a, b DEFAULT 'x'); CREATE TABLE t2(a, b) } 0 |
+ 3 { CREATE TABLE t1(a, b DEFAULT 'x'); CREATE TABLE t2(a, b DEFAULT 'x') } 1 |
+ 4 { CREATE TABLE t1(a, b DEFAULT NULL); CREATE TABLE t2(a, b) } 0 |
+ 5 { CREATE TABLE t1(a DEFAULT 2, b); CREATE TABLE t2(a DEFAULT 1, b) } 1 |
+ 6 { CREATE TABLE t1(a DEFAULT 1, b); CREATE TABLE t2(a DEFAULT 1, b) } 1 |
+ 7 { CREATE TABLE t1(a DEFAULT 1, b DEFAULT 1); |
+ CREATE TABLE t2(a DEFAULT 3, b DEFAULT 1) } 1 |
+ 8 { CREATE TABLE t1(a DEFAULT 1, b DEFAULT 1); |
+ CREATE TABLE t2(a DEFAULT 3, b DEFAULT 3) } 0 |
+ |
+} { |
+ |
+ execsql { DROP TABLE t1; DROP TABLE t2 } |
+ execsql $tbls |
+ |
+ set res 1 |
+ db eval { EXPLAIN INSERT INTO t1 SELECT * FROM t2 } { |
+ if {$opcode == "Column"} { set res 0 } |
+ } |
+ |
+ do_test 2.$tn [list set res] $xfer |
+} |
+ |
+finish_test |