Import SQLite 3.10.2.

third_party/sqlite/src/test/capi3c.test

 # 2006 November 08
 #
 # 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.  
 #
 # This is a copy of the capi3.test file that has been adapted to
 # test the new sqlite3_prepare_v2 interface.
 #
 # $Id: capi3c.test,v 1.23 2009/07/22 07:27:57 danielk1977 Exp $
 #
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
+set testprefix capi3c
 
 # Do not use a codec for tests in this file, as the database file is
 # manipulated directly using tcl scripts (using the [hexio_write] command).
 #
 do_not_use_codec
 
 # Return the UTF-16 representation of the supplied UTF-8 string $str.
 # If $nt is true, append two 0x00 bytes as a nul terminator.
 proc utf16 {str {nt 1}} {
   set r [encoding convertto unicode $str]
@@ skipping 1337 matching lines @@
 do_test capi3c-24.5 {
   decltype {
     SELECT (SELECT x FROM (SELECT c AS x)) 
     FROM (SELECT * FROM t5 ORDER BY c LIMIT 1) ORDER BY b
   }
 } {DATETIME}
 do_test capi3c-24.3 {
   decltype {SELECT (SELECT x FROM (SELECT t5.a AS x)) FROM t5}
 } {INTEGER}
 
+
+# Further tests of sqlite3_column_decltype():
+#
+do_execsql_test 25.0 {
+  CREATE TABLE t11(a VARCHAR(10), b INTEGER);
+  CREATE TABLE t12(a VARCHAR(15), b FLOAT);
+}
+
+foreach {tn sql} {
+  1 "SELECT * FROM t11 UNION ALL SELECT * FROM t12"
+  2 "SELECT * FROM t11 UNION SELECT * FROM t12"
+  3 "SELECT * FROM t11 EXCEPT SELECT * FROM t12"
+  4 "SELECT * FROM t11 INTERSECT SELECT * FROM t12"
+
+  5 "SELECT * FROM t11 UNION ALL SELECT * FROM t12 ORDER BY 1"
+  6 "SELECT * FROM t11 UNION SELECT * FROM t12 ORDER BY 1"
+  7 "SELECT * FROM t11 EXCEPT SELECT * FROM t12 ORDER BY 1"
+  8 "SELECT * FROM t11 INTERSECT SELECT * FROM t12 ORDER BY 1"
+} {
+  do_test 25.$tn { decltype $sql } {VARCHAR(10) INTEGER}
+}
+
 finish_test