Import SQLite 3.10.2.

third_party/sqlite/src/test/capi3.test

 # 2003 January 29
 #
 # 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 434 matching lines @@
   # Use the return value of sqlite3_column_count() to build
   # a list of column indexes. i.e. If sqlite3_column_count
   # is 3, build the list {0 1 2}.
   set ::idxlist [list]
   set numcols [sqlite3_data_count $STMT]
   for {set i 0} {$i < $numcols} {incr i} {lappend ::idxlist $i}
 
 # types
 do_test $test.1 {
   set types [list]
-  foreach i $idxlist {lappend types [sqlite3_column_type $STMT $i]}
+  foreach i $idxlist {
+    set x [sqlite3_column_type $STMT $i]
+    # EVIDENCE-OF: R-12793-43283 Every value in SQLite has one of five
+    # fundamental datatypes: 64-bit signed integer 64-bit IEEE floating
+    # point number string BLOB NULL
+    if {[lsearch {INTEGER FLOAT TEXT BLOB NULL} $x]<0} {
+      set types ERROR
+      break
+    } else {
+      lappend types $x
+    }
+  }
   set types
 } $types
+ 
 
 # Integers
 do_test $test.2 {
   set ints [list]
   foreach i $idxlist {lappend ints [sqlite3_column_int64 $STMT $i]}
   set ints
 } $ints
 
 # bytes
 set lens [list]
@@ skipping 776 matching lines @@
 if {![info exists tester_do_binarylog]} {
   db close
   vfs_unregister_all
   do_test capi3-20.1 {
     sqlite3_sleep 100
   } {0}
   vfs_reregister_all
 }
 
 finish_test