Import SQLite 3.7.6.3.

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
 
+# 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]
   if {$nt} {
     append r "\x00\x00"
   }
   return $r
 }
 
@@ skipping 567 matching lines @@
   sqlite3_finalize $STMT
 } SQLITE_OK
 
 
 set ::ENC [execsql {pragma encoding}]
 db close
 
 do_test capi3c-6.0 {
   sqlite3 db test.db
   set DB [sqlite3_connection_pointer db]
-  sqlite3_key $DB xyzzy
+  if {[sqlite3 -has-codec]==0} { sqlite3_key $DB xyzzy }
   set sql {SELECT a FROM t1 order by rowid}
   set STMT [sqlite3_prepare_v2 $DB $sql -1 TAIL]
   expr 0
 } {0}
 do_test capi3c-6.1 {
   db cache flush
   sqlite3_close $DB
 } {SQLITE_BUSY}
 do_test capi3c-6.2 {
   sqlite3_step $STMT
@@ skipping 26 matching lines @@
 proc get_file_format {{fname test.db}} {
   return [hexio_get_int [hexio_read $fname 44 4]]
 }
 
 if {![sqlite3 -has-codec]} {
   # Test what happens when the library encounters a newer file format.
   do_test capi3c-7.1 {
     set_file_format 5
   } {}
   do_test capi3c-7.2 {
-    sqlite3 db test.db
+    catch { sqlite3 db test.db }
     catchsql {
       SELECT * FROM sqlite_master;
     }
   } {1 {unsupported file format}}
   db close
 }
 
 if {![sqlite3 -has-codec]} {
   # Now test that the library correctly handles bogus entries in the
   # sqlite_master table (schema corruption).
   do_test capi3c-8.1 {
     file delete -force test.db test.db-journal
     sqlite3 db test.db
     execsql {
       CREATE TABLE t1(a);
     }
     db close
   } {}
   do_test capi3c-8.2 {
     sqlite3 db test.db
     execsql {
       PRAGMA writable_schema=ON;
       INSERT INTO sqlite_master VALUES(NULL,NULL,NULL,NULL,NULL);
     }
     db close
   } {}
   do_test capi3c-8.3 {
-    sqlite3 db test.db
+    catch { sqlite3 db test.db }
     catchsql {
       SELECT * FROM sqlite_master;
     }
   } {1 {malformed database schema (?)}}
   do_test capi3c-8.4 {
     # Build a 5-field row record. The first field is a string 'table', and
     # subsequent fields are all NULL.
     db close
     file delete -force test.db test.db-journal
     sqlite3 db test.db
     execsql {
       CREATE TABLE t1(a);
       PRAGMA writable_schema=ON;
       INSERT INTO sqlite_master VALUES('table',NULL,NULL,NULL,NULL);
     }
     db close
   } {};
   do_test capi3c-8.5 {
-    sqlite3 db test.db
+    catch { sqlite3 db test.db }
     catchsql {
       SELECT * FROM sqlite_master;
     }
   } {1 {malformed database schema (?)}}
   db close
 }
 file delete -force test.db
 file delete -force test.db-journal
 
 
@@ skipping 455 matching lines @@
 do_test capi3c-19.2 {
   sqlite3_column_int $STMT 0
 } 1
 do_test capi3c-19.3 {
   sqlite3_step $STMT
 } SQLITE_DONE
 do_test capi3c-19.4 {
   sqlite3_reset $STMT
   db eval {DROP TABLE t3}
   sqlite3_step $STMT
-} SQLITE_SCHEMA
+} SQLITE_ERROR
 do_test capi3c-19.4.1 {
   sqlite3_errmsg $DB
 } {no such table: t3}
 ifcapable deprecated {
   do_test capi3c-19.4.2 {
     sqlite3_expired $STMT
   } 1
 }
 do_test capi3c-19.4.3 {
   sqlite3_errmsg $DB
@@ skipping 159 matching lines @@
   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}
 
 finish_test