Import SQLite 3.10.2.

third_party/sqlite/src/test/incrblob2.test

 # 2008 June 9
 #
 # 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 306 matching lines @@
 
   close $wrHandle
   close $rdHandle
 } {}
 
 do_test incrblob2-6.2 {
   set rdHandle [db incrblob -readonly t1 data 1]
   sqlite3_blob_read $rdHandle 0 2
 } {AB}
 
+if {$::tcl_platform(pointerSize)>=8} {
+  do_test incrblob2-6.2b {
+    set rc [catch {
+      # Prior to 2015-02-07, the following caused a segfault due to
+      # integer overflow.
+      sqlite3_blob_read $rdHandle 2147483647 2147483647
+    } errmsg]
+    lappend rc $errmsg
+  } {1 SQLITE_ERROR}
+}
+do_test incrblob2-6.2c {
+  set rc [catch {
+    # Prior to 2015-02-07, the following caused a segfault due to
+    # integer overflow.
+    sqlite3_blob_read $rdHandle 2147483647 100
+  } errmsg]
+  lappend rc $errmsg
+} {1 SQLITE_ERROR}
+
 do_test incrblob2-6.3 {
   set wrHandle [db incrblob t1 data 1]
   sqlite3_blob_write $wrHandle 0 ZZZZZZZZZZ
   sqlite3_blob_read $rdHandle 2 4
 } {ZZZZ}
 
+do_test incrblob2-6.3b {
+  set rc [catch {
+    # Prior to 2015-02-07, the following caused a segfault due to
+    # integer overflow.
+    sqlite3_blob_write $wrHandle 2147483647 YYYYYYYYYYYYYYYYYY
+  } errmsg]
+  lappend rc $errmsg
+} {1 SQLITE_ERROR}
+do_test incrblob2-6.3c {
+  sqlite3_blob_read $rdHandle 2 4
+} {ZZZZ}
+
+
 do_test incrblob2-6.4 {
   close $wrHandle
   close $rdHandle
 } {}
 
 sqlite3_memory_highwater 1
 do_test incrblob2-7.1 {
   db eval {
     CREATE TABLE t2(B BLOB);
     INSERT INTO t2 VALUES(zeroblob(10 * 1024 * 1024)); 
@@ skipping 66 matching lines @@
 } {1 {UNIQUE constraint failed: t3.a}}
 do_test incrblob2-8.9 {
   set rc [catch {sqlite3_blob_read $h 0 20} msg]
   list $rc $msg
 } {1 SQLITE_ABORT}
 do_test incrblob2-8.X {
   close $h
 } {}
 
 finish_test