Import SQLite 3.7.6.3.

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.
 #
 #***********************************************************************
 # This file implements regression tests for SQLite library.  The
 # focus of this script testing the callback-free C/C++ API.
 #
 # $Id: capi3.test,v 1.70 2009/01/09 02:49:32 drh 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 598 matching lines @@
   sqlite3_finalize $STMT
 } SQLITE_OK
 
 
 set ::ENC [execsql {pragma encoding}]
 db close
 
 do_test capi3-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 $DB $sql -1 TAIL]
   expr 0
 } {0}
 do_test capi3-6.1 {
   db cache flush
   sqlite3_close $DB
 } {SQLITE_BUSY}
 do_test capi3-6.2 {
   sqlite3_step $STMT
-} {SQLITE_ROW}
-check_data $STMT capi3-6.3 {INTEGER} {1} {1.0} {1}
+} {SQLITE_ERROR}
+#check_data $STMT capi3-6.3 {INTEGER} {1} {1.0} {1}
 do_test capi3-6.3 {
   sqlite3_finalize $STMT
-} {SQLITE_OK}
+} {SQLITE_SCHEMA}
 do_test capi3-6.4-misuse {
   db cache flush
   sqlite3_close $DB
 } {SQLITE_OK}
 db close
 
 # This procedure sets the value of the file-format in file 'test.db'
 # to $newval. Also, the schema cookie is incremented.
 # 
 proc set_file_format {newval} {
   hexio_write test.db 44 [hexio_render_int32 $newval]
   set schemacookie [hexio_get_int [hexio_read test.db 40 4]]
   incr schemacookie
   hexio_write test.db 40 [hexio_render_int32 $schemacookie]
   return {}
 }
 
 # This procedure returns the value of the file-format in file 'test.db'.
 # 
 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 capi3-7.1 {
     set_file_format 5
   } {}
   do_test capi3-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 capi3-8.1 {
     file delete -force test.db test.db-journal
     sqlite3 db test.db
     execsql {
       CREATE TABLE t1(a);
     }
     db close
   } {}
   do_test capi3-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 capi3-8.3 {
-    sqlite3 db test.db
+    catch { sqlite3 db test.db }
     catchsql {
       SELECT * FROM sqlite_master;
     }
   } {1 {malformed database schema (?)}}
   do_test capi3-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 capi3-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 460 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