Import SQLite 3.8.7.4.

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.
 #
 #***********************************************************************
@@ skipping 151 matching lines @@
     set db2 [sqlite3_open /bogus/path/test.db {}]
   }
   sqlite3_errcode $db2
 } {SQLITE_CANTOPEN}
 do_test capi3c-3.4 {
   sqlite3_errmsg $db2
 } {unable to open database file}
 do_test capi3c-3.5 {
   sqlite3_close $db2
 } {SQLITE_OK}
-do_test capi3c-3.6.1-misuse {
-  sqlite3_close $db2
-} {SQLITE_MISUSE}
-do_test capi3c-3.6.2-misuse {
-  sqlite3_errmsg $db2
-} {library routine called out of sequence}
-ifcapable {utf16} {
-  do_test capi3c-3.6.3-misuse {
-    utf8 [sqlite3_errmsg16 $db2]
+if {[clang_sanitize_address]==0} {
+  do_test capi3c-3.6.1-misuse {
+    sqlite3_close $db2
+  } {SQLITE_MISUSE}
+  do_test capi3c-3.6.2-misuse {
+    sqlite3_errmsg $db2
   } {library routine called out of sequence}
+  ifcapable {utf16} {
+    do_test capi3c-3.6.3-misuse {
+      utf8 [sqlite3_errmsg16 $db2]
+    } {library routine called out of sequence}
+  }
 }
 
 # rename sqlite3_open ""
 # rename sqlite3_open_old sqlite3_open
 
 ifcapable {utf16} {
 do_test capi3c-4.1 {
   set db2 [sqlite3_open16 [utf16 test.db] {}]
   sqlite3_errcode $db2
 } {SQLITE_OK}
@@ skipping 428 matching lines @@
   db cache flush
   sqlite3_close $DB
 } {SQLITE_BUSY}
 do_test capi3c-6.2 {
   sqlite3_step $STMT
 } {SQLITE_ROW}
 check_data $STMT capi3c-6.3 {INTEGER} {1} {1.0} {1}
 do_test capi3c-6.3 {
   sqlite3_finalize $STMT
 } {SQLITE_OK}
-do_test capi3c-6.4 {
-  db cache flush
-  sqlite3_close $DB
-} {SQLITE_OK}
-do_test capi3c-6.99-misuse {
+if {[clang_sanitize_address]==0} {
+  do_test capi3c-6.4 {
+    db cache flush
+      sqlite3_close $DB
+  } {SQLITE_OK}
+  do_test capi3c-6.99-misuse {
+    db close
+  } {}
+} else {
   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 {}
@@ skipping 16 matching lines @@
       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
+    forcedelete 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 {
     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
+    forcedelete 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 {
     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
+forcedelete test.db
+forcedelete test.db-journal
 
 
 # Test the english language string equivalents for sqlite error codes
 set code2english [list \
 SQLITE_OK         {not an error} \
 SQLITE_ERROR      {SQL logic error or missing database} \
 SQLITE_PERM       {access permission denied} \
 SQLITE_ABORT      {callback requested query abort} \
 SQLITE_BUSY       {database is locked} \
 SQLITE_LOCKED     {database table is locked} \
@@ skipping 17 matching lines @@
 unknownerror      {unknown error} \
 ]
 
 set test_number 1
 foreach {code english} $code2english {
   do_test capi3c-9.$test_number "sqlite3_test_errstr $code" $english
   incr test_number
 }
 
 # Test the error message when a "real" out of memory occurs.
+if { [permutation] != "nofaultsim" } {
 ifcapable memdebug {
   do_test capi3c-10-1 {
     sqlite3 db test.db
     set DB [sqlite3_connection_pointer db]
     sqlite3_memdebug_fail 0
     catchsql {
       select * from sqlite_master;
     }
   } {1 {out of memory}}
   do_test capi3c-10-2 {
     sqlite3_errmsg $::DB
   } {out of memory}
   ifcapable {utf16} {
     do_test capi3c-10-3 {
       utf8 [sqlite3_errmsg16 $::DB]
     } {out of memory}
   }
   db close
   sqlite3_memdebug_fail -1
 }
+}
 
 # The following tests - capi3c-11.* - test that a COMMIT or ROLLBACK
 # statement issued while there are still outstanding VMs that are part of
 # the transaction fails.
 sqlite3 db test.db
 set DB [sqlite3_connection_pointer db]
 sqlite_register_test_function $DB func
 do_test capi3c-11.1 {
   execsql {
     BEGIN;
@@ skipping 58 matching lines @@
   set STMT [sqlite3_prepare_v2 $DB "SELECT a FROM t2" -1 TAIL]
   sqlite3_step $STMT
 } {SQLITE_ROW}
 do_test capi3c-11.9.1 {
   sqlite3_get_autocommit $DB
 } 0
 do_test capi3c-11.9.2 {
   catchsql {
     ROLLBACK;
   }
-} {1 {cannot rollback transaction - SQL statements in progress}}
+} {0 {}}
 do_test capi3c-11.9.3 {
   sqlite3_get_autocommit $DB
-} 0
+} 1
 do_test capi3c-11.10 {
   sqlite3_step $STMT
 } {SQLITE_ROW}
+ifcapable !autoreset {
+  # If SQLITE_OMIT_AUTORESET is defined, then the statement must be
+  # reset() before it can be passed to step() again.
+  do_test capi3-11.11a { sqlite3_step $STMT } {SQLITE_MISUSE}
+  do_test capi3-11.11b { sqlite3_reset $STMT } {SQLITE_ABORT}
+}
 do_test capi3c-11.11 {
   sqlite3_step $STMT
-} {SQLITE_ROW}
+} {SQLITE_DONE}
 do_test capi3c-11.12 {
   sqlite3_step $STMT
-} {SQLITE_DONE}
+  sqlite3_step $STMT
+} {SQLITE_ROW}
 do_test capi3c-11.13 {
   sqlite3_finalize $STMT
 } {SQLITE_OK}
 do_test capi3c-11.14 {
   execsql {
     SELECT a FROM t2;
   }
-} {1 2 3}
+} {1 2}
 do_test capi3c-11.14.1 {
   sqlite3_get_autocommit $DB
-} 0
+} 1
 do_test capi3c-11.15 {
   catchsql {
     ROLLBACK;
   }
-} {0 {}}
+} {1 {cannot rollback - no transaction is active}}
 do_test capi3c-11.15.1 {
   sqlite3_get_autocommit $DB
 } 1
 do_test capi3c-11.16 {
   execsql {
     SELECT a FROM t2;
   }
 } {1 2}
 
 # Sanity check on the definition of 'outstanding VM'. This means any VM
@@ skipping 463 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